example/simple.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Devel::BeginLift qw(foo baz);
   7
   8 use vars qw($i);
   9
  10 BEGIN { $i = 0 }
  11
  12 sub foo { "foo: $_[0]\n"; }
  13
  14 sub bar { "bar: $_[0]\n"; }
  15
  16 for (1 .. 3) {
  17   print foo($i++);
  18   print bar($i++);
  19 }
  20
  21 no Devel::BeginLift;
  22
  23 print foo($i++);