Dan Muey <dmuey@no-spam> wrote:
:
: I'm wanting to setup a module that will export whatever is in
: @no-spam (if anythign) and ':basic'
:
: IE I want
: use Monkey;
: To be identical to
: use Monkey qw(:basic);
Seems like you really need is a way to test this
for yourself. Here's a quickie I just wrote. I'm sure
it fails for some modules, but . . .
use strict;
use warnings;
use Data::Dumper;
print Dumper imported( 'CGI', ':html' );
sub imported {
my( $module, @no-spam ) = @no-spam
require "$module.pm";
my @no-spam = keys %::;
import $module @no-spam
my %symbol_table = %::;
delete @no-spam @no-spam };
return [ keys %symbol_table ];
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328