13 # package klonk doesn't have a stash.
22 @urkkk::ISA = 'klonk';
27 @urkkk::ISA = ('klonk', 'kapow');
31 # No parents, has @ISA
36 @zzzzzwap::ISA = ('thwacke', 'kapow');
40 @whamm::ISA = ('kapow', 'thwacke');
49 urkkk => [qw(urkkk klonk kapow)],
52 thwacke => [qw(thwacke)],
53 zzzzzwap => [qw(zzzzzwap thwacke kapow)],
54 whamm => [qw(whamm kapow thwacke)],
57 foreach my $package (qw(klonk urkkk kapow kayo thwacke zzzzzwap whamm)) {
58 my $ref = bless [], $package;
59 my $isa = $expect{$package};
60 is("@{mro::get_linear_isa($package)}", "@$isa", "\@ISA for $package");
62 foreach my $class ($package, @$isa, 'UNIVERSAL') {
63 isa_ok($ref, $class, $package);