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;