t/liftvar.t

   1 use strict;
   2 use warnings;
   3 use Test::More 'no_plan';
   4
   5 sub foo { $_[0] = $_[1]; (); }
   6
   7 sub bar { is($_[0], 'yay', 'Var set ok by sub'); (); }
   8
   9 sub baz { () }
  10
  11 sub quux { is($_[0], 'w00t', 'Var set ok by ='); (); }
  12
  13 use Devel::BeginLift qw(foo bar baz quux);
  14
  15 foo(my $meep, 'yay');
  16
  17 bar($meep);
  18
  19 baz(my $lolz = 'w00t');
  20
  21 quux($lolz);