package if;
-$VERSION = '0.04';
+$VERSION = '0.0401';
sub work {
my $method = shift() ? 'import' : 'unimport';
my $p = $_[0]; # PACKAGE
(my $file = "$p.pm") =~ s!::!/!g;
- require $file;
-
+ require $file; # Works even if $_[0] is a keyword (like open)
my $m = $p->can($method);
goto &$m if $m;
}