1 # Stash.pm -- show what stashes are loaded
8 my @arr=scan($main::{"main::"});
9 @arr=map{s/\:\:$//;$_;} @arr;
10 print "-umain,-u", join (",-u",@arr) ,"\n";
15 $prefix = '' unless defined $prefix;
17 foreach my $key ( keys %{$start}){
18 # print $prefix,$key,"\n";
20 unless ($start eq ${$start}{$key} or $key eq "B::" ){
21 push @return, $key unless omit($prefix.$key);
22 foreach my $subscan ( scan(${$start}{$key},$prefix.$key)){
23 push @return, "$key".$subscan;
32 my %omit=("DynaLoader::" => 1 , "CORE::" => 1 ,
33 "CORE::GLOBAL::" => 1, "UNIVERSAL::" => 1 );
34 return 1 if $omit{$module};
35 if ($module eq "IO::" or $module eq "IO::Handle::"){
37 return 1 unless $INC{$module};