From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 27 Jun 2007 05:23:11 +0000 (+0000)
Subject: var lifting
X-Git-Tag: 0.001000~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31bd32f91bcd7e94bc7569ddc445c6e63f978049;p=p5sagit%2FDevel-BeginLift.git

var lifting
---

diff --git a/t/liftvar.t b/t/liftvar.t
new file mode 100644
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);