13 # package klonk doesn't have a stash.
24 @urkkk::ISA = 'klonk';
30 @urkkk::ISA = ('klonk', 'kapow');
35 # No parents, has @ISA
41 @zzzzzwap::ISA = ('thwacke', 'kapow');
46 @whamm::ISA = ('kapow', 'thwacke');
53 urkkk => [qw(urkkk klonk kapow)],
56 thwacke => [qw(thwacke)],
57 zzzzzwap => [qw(zzzzzwap thwacke kapow)],
58 whamm => [qw(whamm kapow thwacke)],
61 foreach my $package (qw(klonk urkkk kapow kayo thwacke zzzzzwap whamm)) {
62 my $ref = bless [], $package;
63 my $isa = $expect{$package};
64 is("@{mro::get_linear_isa($package)}", "@$isa", "\@ISA for $package");
66 foreach my $class ($package, @$isa, 'UNIVERSAL') {
67 isa_ok($ref, $class, $package);