dist/base/t/isa.t

   1 #!/usr/bin/perl -w
   2
   3 # Regression test some quirky behavior of base.pm.
   4
   5 use strict;
   6 use Test::More tests => 1;
   7
   8 {
   9     package Parent;
  10
  11     sub foo { 42 }
  12
  13     package Middle;
  14
  15     use base qw(Parent);
  16
  17     package Child;
  18
  19     base->import(qw(Middle Parent));
  20 }
  21
  22 is_deeply [@Child::ISA], [qw(Middle)],
  23           'base.pm will not add to @ISA if you already are-a';