This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5a5:pat/inherit.pat
[perl5.git] / bar
CommitLineData
93a17b20
LW
1#!./perl
2
463ee0b2
LW
3$o = {A,1};
4$r = \($o->{A});
5print $$r;
6$$r = foo;
7print $$r;