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