1 # Stash.pm -- show what stashes are loaded
11 B::Stash - show what stashes are loaded
15 BEGIN { %Seen = %INC }
18 my @arr=scan($main::{"main::"});
19 @arr=map{s/\:\:$//;$_ eq "<none>"?():$_;} @arr;
20 print "-umain,-u", join (",-u",@arr) ,"\n";
25 $prefix = '' unless defined $prefix;
27 foreach my $key ( keys %{$start}){
28 # print $prefix,$key,"\n";
30 unless ($start eq ${$start}{$key} or $key eq "B::" ){
31 push @return, $key unless omit($prefix.$key);
32 foreach my $subscan ( scan(${$start}{$key},$prefix.$key)){
33 push @return, "$key".$subscan;
42 my %omit=("DynaLoader::" => 1 , "XSLoader::" => 1, "CORE::" => 1 ,
43 "CORE::GLOBAL::" => 1, "UNIVERSAL::" => 1 );
44 return 1 if $omit{$module};
45 if ($module eq "IO::" or $module eq "IO::Handle::"){
47 return 1 unless $INC{$module};