I liked the idea of wild.pm so much, that I wrote one:
package wild;
$VERSION = 0.01;
use strict;
use Carp;
use Module::Find;
sub import {
shift;
foreach my $module (@_) {
# at the moment we only support '...::*'
if ($module =~ /(.+)::\*$/) {
usesub $1;
} else {
croak "'$module' not supported, only '...::*'";
}
}
}
1;
Currently it uses
Module::Find.
And here is a little test script.
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
BEGIN {
print Dumper(\%INC);
}
use wild 'HTML::*';
print Dumper(\%INC);
Have fun,
Uwe