X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=66c26a34b5b97911417460d188727cecc2a10b5a;hb=202c2da3c787f5d6f1c71b16594dc543336b40f6;hp=d93706aa5f632e6e9137f90f5220924ce39426f7;hpb=64760329f8a4af897da0b98bc7b9359690e35e9b;p=perl%2Fmodules%2Fsubs-auto.git diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index d93706a..66c26a3 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 { @@ -216,7 +218,7 @@ L with C magic enabled (this should be assured by the req Vincent Pit, C<< >>, L. -You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince). +You can contact me by mail or on C (vincent). =head1 BUGS