test.pl

   1 use Devel::BeginLift 'foo';
   2
   3 use vars qw($int);
   4
   5 BEGIN { $int = 1 }
   6
   7 sub foo { warn "foo: $_[0]\n"; $int++; 4; }
   8
   9 sub bar { warn "bar: $_[0]\n"; }
  10
  11 warn "yep\n";
  12
  13 warn foo("foo");
  14
  15 warn bar("bar");
  16
  17 warn "yep2: $int\n";
  18
  19 no Devel::BeginLift;
  20
  21 foo();