Commit | Line | Data |
13021a80 |
1 | BEGIN { |
2 | if ($ENV{PERL_CORE}) { |
3 | chdir('t') if -d 't'; |
4 | @INC = qw(../lib); |
5 | } |
6 | } |
7 | |
8 | BEGIN { print "1..5\n"; } |
9 | use NEXT; |
10 | |
11 | my $count=1; |
12 | |
13 | package A; |
14 | @ISA = qw/B C D/; |
15 | |
16 | sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::UNSEEN::ACTUAL::test;} |
17 | |
18 | package B; |
19 | @ISA = qw/C D/; |
20 | sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::UNSEEN::test;} |
21 | |
22 | package C; |
23 | @ISA = qw/D/; |
24 | sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::UNSEEN::ACTUAL::test;} |
25 | |
26 | package D; |
27 | |
28 | sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::UNSEEN::test;} |
29 | |
30 | package main; |
31 | |
32 | my $foo = {}; |
33 | |
34 | bless($foo,"A"); |
35 | |
36 | eval { $foo->test } and print "not "; |
37 | print "ok 5\n"; |