gitpan / devel-beginlift Goto Github PK

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 - <[email protected]>

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

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