[Bast-commits] r3542 - trunk/Devel-BeginLift/t

matthewt at dev.catalyst.perl.org matthewt at dev.catalyst.perl.org
Wed Jun 27 06:23:12 GMT 2007


Author: matthewt
Date: 2007-06-27 06:23:11 +0100 (Wed, 27 Jun 2007)
New Revision: 3542

Added:
   trunk/Devel-BeginLift/t/liftvar.t
Log:
var lifting

Added: trunk/Devel-BeginLift/t/liftvar.t
===================================================================
--- trunk/Devel-BeginLift/t/liftvar.t	                        (rev 0)
+++ trunk/Devel-BeginLift/t/liftvar.t	2007-06-27 05:23:11 UTC (rev 3542)
@@ -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);




More information about the Bast-commits mailing list