lib/NEXT/t/actuns.t

   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";