X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=d166c20f168a2f8b2ac1af5d6a982f4fd756f10f;hb=165818cffecf91be6cc7ed482d71b728731e7d4a;hp=3a38497688c64975639d0c65dd529c858fb37cab;hpb=0f17e772017f31694cc38cb6425922921a49d750;p=perl%2Fmodules%2Fsubs-auto.git diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index 3a38497..d166c20 100644 --- a/lib/subs/auto.pm +++ b/lib/subs/auto.pm @@ -35,7 +35,7 @@ our $VERSION = '0.03'; 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 {