8 BEGIN { print "1..5\n"; }
16 sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::UNSEEN::test;}
20 sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::UNSEEN::test;}
24 sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::UNSEEN::test;}
28 sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::UNSEEN::test;}
38 package Diamond::Base;
39 sub test { print "ok ", $count++, "\n"; shift->NEXT::UNSEEN::test; }
41 package Diamond::Left; @ISA = qw[Diamond::Base];
42 package Diamond::Right; @ISA = qw[Diamond::Base];
43 package Diamond::Top; @ISA = qw[Diamond::Left Diamond::Right];