Lines Matching full:package

13 # package klonk doesn't have a stash.
15 package kapow;
19 package urkkk;
24 package kayo;
29 package thwacke;
34 package zzzzzwap;
38 package whamm;
42 package main;
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 	object_ok($ref, $class, $package);