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
1 #!./perl
2
3 tie ( @a, TST_tie, "arg1", "arg2" ); 
4 $a[2]=[1];
5
6 package TST_tie;
7
8 sub new { bless []; }
9
10 sub fetch { print "store @_\n" }
11 sub store { print "store @_\n" }
12 sub delete { print "store @_\n" }