X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=a630a00d9b821875bbec175cc427a2b1f57f5a30;hb=080d2064dac2793b10dc7d37e42d4573932a2dc6;hp=d93706aa5f632e6e9137f90f5220924ce39426f7;hpb=64760329f8a4af897da0b98bc7b9359690e35e9b;p=perl%2Fmodules%2Fsubs-auto.git diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index d93706a..a630a00 100644 --- a/lib/subs/auto.pm +++ b/lib/subs/auto.pm @@ -16,11 +16,11 @@ subs::auto - Read barewords as subroutine names. =head1 VERSION -Version 0.02 +Version 0.04 =cut -our $VERSION = '0.02'; +our $VERSION = '0.04'; =head1 SYNOPSIS @@ -35,7 +35,7 @@ our $VERSION = '0.02'; foo->meth; # "'foo'->meth" if you have use'd foo somewhere, # or "foo()->meth" otherwise print foo 'wut'; # print to the filehandle foo if it's actually one, - # or "foo()->print('wut')" otherwise + # or "print(foo('wut'))" otherwise } # ... but function calls will fail at run-time if you don't # actually define foo somewhere @@ -57,6 +57,8 @@ Specifies on which package the pragma should act. Setting C<$pkg> to C a source filter. + =cut BEGIN {