This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / foo
diff --git a/foo b/foo
index b7de1fc..8977a26 100755 (executable)
--- a/foo
+++ b/foo
@@ -1,4 +1,12 @@
 #!./perl
 
-BEGIN { $/ = "" }
-print while <>;
+tie ( @a, TST_tie, "arg1", "arg2" ); 
+$a[2]=[1];
+
+package TST_tie;
+
+sub new { bless []; }
+
+sub fetch { print "store @_\n" }
+sub store { print "store @_\n" }
+sub delete { print "store @_\n" }