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'); (); }
   8
   9 use Devel::BeginLift qw(foo bar);
  10
  11 foo(my $meep, 'yay');
  12
  13 bar($meep);