[Bast-commits] r3540 - in trunk/Devel-BeginLift: . example

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-06-27 04:48:16 +0100 (Wed, 27 Jun 2007)
New Revision: 3540

Added:
   trunk/Devel-BeginLift/example/
   trunk/Devel-BeginLift/example/simple.pl
Log:
added example

Added: trunk/Devel-BeginLift/example/simple.pl
===================================================================
--- trunk/Devel-BeginLift/example/simple.pl	                        (rev 0)
+++ trunk/Devel-BeginLift/example/simple.pl	2007-06-27 03:48:16 UTC (rev 3540)
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Devel::BeginLift qw(foo baz);
+
+use vars qw($i);
+
+BEGIN { $i = 0 }
+
+sub foo { "foo: $_[0]\n"; }
+
+sub bar { "bar: $_[0]\n"; }
+
+for (1 .. 3) {
+  print foo($i++);
+  print bar($i++);
+}
+
+no Devel::BeginLift;
+
+print foo($i++);


Property changes on: trunk/Devel-BeginLift/example/simple.pl
___________________________________________________________________
Name: svn:executable
   + *
Name: svn:mime-type
   + text/script