p4raw-id: //depot/perl@21540
package if;
-our $VERSION = '0.03';
+$VERSION = '0.04';
sub work {
my $method = shift() ? 'import' : 'unimport';
my $p = $_[0]; # PACKAGE
(my $file = "$p.pm") =~ s!::!/!g;
- require $file or die;
+ require $file;
my $m = $p->can($method);
goto &$m if $m;