Stash.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
# Stash.pm -- show what stashes are loaded
# vishalb@hotmail.com
package B::Stash;
=pod
=head1 NAME
B::Stash - show what stashes are loaded
=cut
CHECK {
}
sub scan{
my $start=shift;
my $prefix=shift;
my @return;
# print $prefix,$key,"\n";
if ($key =~ /::$/){
}
}
}
}
return @return;
}
sub omit{
my $module = shift;
"CORE::GLOBAL::" => 1, "UNIVERSAL::" => 1 );
$module =~ s/::/\//g;
}
return 0;
}
1;