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