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
1 #!./perl
2
3 $o = {A,1};
4 $r = \($o->{A});
5 print $$r;
6 $$r = foo;
7 print $$r;