X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fif.pm;h=6574d978bb6b3f6373dcb551c079400697ac5a51;hb=fdabeebc3413e04ccb1a18bb0b9945494795b944;hp=32c4fad45eca3f456bbdc415afccbb71e9a68050;hpb=cd16c24cb16bb0bd0fa486b8e98c39fcf6ebcf5c;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/if.pm b/lib/if.pm index 32c4fad..6574d97 100644 --- a/lib/if.pm +++ b/lib/if.pm @@ -1,13 +1,17 @@ package if; -our $VERSION = '0.01'; +our $VERSION = '0.03'; sub work { my $method = shift() ? 'import' : 'unimport'; return unless shift; # CONDITION - my $p = shift; # PACKAGE - eval "require $p" or die; # Adds .pm etc if needed - $p->$method(@_) if $p->can($method); + + my $p = $_[0]; # PACKAGE + (my $file = "$p.pm") =~ s!::!/!g; + require $file or die; + + my $m = $p->can($method); + goto &$m if $m; } sub import { shift; unshift @_, 1; goto &work }