var lifting

diff --git a/t/liftvar.t b/t/liftvar.t
new file mode 100644 (file)
index 0000000..0301368
--- /dev/null
+++ b/t/liftvar.t
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+use Test::More 'no_plan';
+
+sub foo { $_[0] = $_[1]; (); }
+
+sub bar { is($_[0], 'yay', 'Var set ok'); (); }
+
+use Devel::BeginLift qw(foo bar);
+
+foo(my $meep, 'yay');
+
+bar($meep);