Lines Matching refs:pkg
67 my $pkg = shift;
68 my $cmd = $pkg;
70 $debug{$pkg} ||= 0;
73 my @do = ($pkg);
74 my %spc = ( $pkg , "");
76 while ($pkg = shift @do)
78 next if defined $done{$pkg};
80 $done{$pkg} = 1;
82 my $v = defined ${"${pkg}::VERSION"}
83 ? "(" . ${"${pkg}::VERSION"} . ")"
86 my $spc = $spc{$pkg};
87 $cmd->debug_print(1,"${spc}${pkg}${v}\n");
89 if(@{"${pkg}::ISA"})
91 @spc{@{"${pkg}::ISA"}} = (" " . $spc{$pkg}) x @{"${pkg}::ISA"};
92 unshift(@do, @{"${pkg}::ISA"});
102 my $pkg = ref($cmd) || $cmd;
111 $oldval = $debug{$pkg} || 0;
117 $level = $debug{$pkg} || 0
120 _print_isa($pkg)
121 if($level && !exists $debug{$pkg});
129 $debug{$pkg} = $level;