t/mro/package_aliases.t

   1 #!./perl
   2
   3 BEGIN {
   4     unless (-d 'blib') {
   5         chdir 't' if -d 't';
   6         @INC = '../lib';
   7     }
   8 }
   9
  10 use strict;
  11 use warnings;
  12 require q(./test.pl); plan(tests => 4);
  13
  14 {
  15     package New;
  16     use strict;
  17     use warnings;
  18
  19     package Old;
  20     use strict;
  21     use warnings;
  22
  23     {
  24       no strict 'refs';
  25       *{'Old::'} = *{'New::'};
  26     }
  27 }
  28
  29 ok (Old->isa (New::), 'Old inherits from New');
  30 ok (New->isa (Old::), 'New inherits from Old');
  31
  32 isa_ok (bless ({}, Old::), New::, 'Old object');
  33 isa_ok (bless ({}, New::), Old::, 'New object');