NAME

       Devel::BeginLift - make selected sub calls evaluate at compile time

SYNOPSIS

         use Devel::BeginLift qw(foo baz);

         use vars qw($i);

         BEGIN { $i = 0 }

         sub foo { "foo: $_[0]\n"; }

         sub bar { "bar: $_[0]\n"; }

         for (1 .. 3) {
           print foo($i++);
           print bar($i++);
         }

         no Devel::BeginLift;

         print foo($i++);

       outputs -

       foo: 0 bar: 1 foo: 0 bar: 2 foo: 0 bar: 3 foo: 4

DESCRIPTION

       Devel::BeginLift 'lifts' arbitrary sub calls to running at compile time - sort of a souped
       up version of "use constant". It does this via some slightly insane perlguts magic.

   import
         use Devel::BeginLift qw(list of subs);

       Calls Devel::BeginLift->setup_for(__PACKAGE__ => \@list_of_subs);

   unimport
         no Devel::BeginLift;

       Calls Devel::BeginLift->teardown_for(__PACKAGE__);

   setup_for
         Devel::BeginLift->setup_for($package => \@subnames);

       Installs begin lifting magic (unless already installed) and registers "${package}::$name"
       for each member of @subnames to be executed when parsed and replaced with its output
       rather than left for runtime.

   teardown_for
         Devel::BeginLift->teardown_for($package);

       Deregisters all subs currently registered for $package and uninstalls begin lifting magic
       is number of teardown_for calls matches number of setup_for calls.

   setup_for_cv
         $id = Devel::BeginLift->setup_for_cv(\&code);

       Same as "setup_for", but only registers begin lifting magic for one code reference.
       Returns an id to be used in "teardown_for_cv".

   teardown_for_cv
         Devel::BeginLift->teardown_for_cv($id);

       Deregisters begin lifting magic referred to by $id.

AUTHOR

       Matt S Trout - <mst@shadowcatsystems.co.uk>

       Company: http://www.shadowcatsystems.co.uk/ Blog: http://chainsawblues.vox.com/

LICENSE

       This library is free software under the same terms as perl itself