Eric Strom (ASG)

While working on a module for source code injection, one of my example "macros" was one that allows you to declare and assign to a lexical variable at compile time, without having to write the variable names twice. That concept more or less hijacked the conversation, and after some prodding from p5p to make the interface better, I've used Devel::Declare to add two new keywords to Perl, MY and OUR.

Here is the synopsis from the module:

don't you hate writing:

my ($foo, @bar);
BEGIN {
    ($foo, @bar) = ('fooval', 1 .. 10);
}

when you should be able to write:

MY ($foo, @bar) = ('fooval', 1 .. 10);

just use Begin::Declare; and you can.

The module lifts the computation of the rhs to compile time, as well as the assignment.

https://metacpan.org/module/Begin::Declare