# Stash.pm -- show what stashes are loaded
B::Stash - show what stashes are loaded
my @arr=scan
($main::{"main::"});
@arr=map{s/\:\:$//;$_ eq "<none>"?
():$_;} @arr;
print "-umain,-u", join (",-u",@arr) ,"\n";
$prefix = '' unless defined $prefix;
foreach my $key ( keys %{$start}){
# print $prefix,$key,"\n";
unless ($start eq ${$start}{$key} or $key eq "B::" ){
push @return, $key unless omit
($prefix.$key);
foreach my $subscan ( scan
(${$start}{$key},$prefix.$key)){
push @return, "$key".$subscan;
my %omit=("DynaLoader::" => 1 , "XSLoader::" => 1, "CORE::" => 1 ,
"CORE::GLOBAL::" => 1, "UNIVERSAL::" => 1 );
return 1 if $omit{$module};
if ($module eq "IO::" or $module eq "IO::Handle::"){
return 1 unless $INC{$module};