diff options
| author | Casey West <casey@geeknest.com> | 2003-07-29 13:37:15 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-30 13:28:30 +0000 |
| commit | d36e5bffcaa31e87b66f7867bd33e8c225204efd (patch) | |
| tree | b87ebc35d558c99a9bd218b6b2d58c9d45101330 /lib/NEXT | |
| parent | 924a5df912d426c87116919236e37a89c996fd37 (diff) | |
| download | perl-d36e5bffcaa31e87b66f7867bd33e8c225204efd.tar.gz | |
NEXT and Diamond Inheritance
Message-ID: <20030729213715.GY76899@geeknest.com>
(Use Damian's NEXT-0.51 once Damian and PAUSE like each other)
p4raw-id: //depot/perl@20348
Diffstat (limited to 'lib/NEXT')
| -rw-r--r-- | lib/NEXT/t/unseen.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/NEXT/t/unseen.t b/lib/NEXT/t/unseen.t index af8d1f7612..ec24564cad 100644 --- a/lib/NEXT/t/unseen.t +++ b/lib/NEXT/t/unseen.t @@ -5,7 +5,7 @@ BEGIN { } } -BEGIN { print "1..4\n"; } +BEGIN { print "1..5\n"; } use NEXT; my $count=1; @@ -34,3 +34,14 @@ my $foo = {}; bless($foo,"A"); $foo->test; + +package Diamond::Base; +sub test { print "ok ", $count++, "\n"; shift->NEXT::UNSEEN::test; } + +package Diamond::Left; @ISA = qw[Diamond::Base]; +package Diamond::Right; @ISA = qw[Diamond::Base]; +package Diamond::Top; @ISA = qw[Diamond::Left Diamond::Right]; + +package main; + +Diamond::Top->test; |