From: Vincent Pit Date: Wed, 30 Jan 2013 18:57:44 +0000 (-0200) Subject: This is 0.27 X-Git-Tag: v0.27^0 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=3a6da36c05bf6d2a47f44bd78bea6a03dab81b17 This is 0.27 --- diff --git a/Changes b/Changes index b0727e3..2d4b17f 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,11 @@ Revision history for indirect +0.27 2013-01-30 19:00 UTC + + Fix : [RT #82562] : indirect/Devel::CallParser interaction + indirect has been taught to play nicely with Devel::CallParser. + Thanks Andrew Main for the patch. + + Tst : Author tests overhaul. + 0.26 2011-10-23 14:25 UTC + Add : "no indirect 'global'" enables the pragma for the whole program, except for lexical scopes that "use indirect" explicitely. diff --git a/META.json b/META.json index dc83d09..8bdc1bc 100644 --- a/META.json +++ b/META.json @@ -4,7 +4,7 @@ "Vincent Pit " ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter version 2.112621", + "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921", "license" : [ "perl_5" ], @@ -22,21 +22,21 @@ "prereqs" : { "build" : { "requires" : { - "Carp" : 0, - "ExtUtils::MakeMaker" : 0, - "Test::More" : 0, - "XSLoader" : 0 + "Carp" : "0", + "ExtUtils::MakeMaker" : "0", + "Test::More" : "0", + "XSLoader" : "0" } }, "configure" : { "requires" : { - "ExtUtils::MakeMaker" : 0 + "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { - "Carp" : 0, - "XSLoader" : 0, + "Carp" : "0", + "XSLoader" : "0", "perl" : "5.008001" } } @@ -54,5 +54,5 @@ "url" : "http://git.profvince.com/?p=perl%2Fmodules%2Findirect.git" } }, - "version" : "0.26" + "version" : "0.27" } diff --git a/META.yml b/META.yml index fb2456e..6b7067d 100644 --- a/META.yml +++ b/META.yml @@ -10,7 +10,7 @@ build_requires: configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter version 2.112621' +generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -29,4 +29,4 @@ resources: homepage: http://search.cpan.org/dist/indirect/ license: http://dev.perl.org/licenses/ repository: http://git.profvince.com/?p=perl%2Fmodules%2Findirect.git -version: 0.26 +version: 0.27 diff --git a/README b/README index ab4fa5e..104c8db 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME indirect - Lexically warn about using the indirect method call syntax. VERSION - Version 0.26 + Version 0.27 SYNOPSIS In a script : @@ -54,7 +54,14 @@ DESCRIPTION This module is not a source filter. METHODS - "unimport [ 'global', hook => $hook | 'fatal' ]" + "unimport" + no indirect; + no indirect 'fatal'; + no indirect hook => sub { my ($obj, $name, $file, $line) = @_; ... }; + no indirect 'global'; + no indirect 'global, 'fatal'; + no indirect 'global', hook => sub { ... }; + Magically called when "no indirect @opts" is encountered. Turns the module on. The policy to apply depends on what is first found in @opts : @@ -101,6 +108,8 @@ METHODS } "import" + use indirect; + Magically called at each "use indirect". Turns the module off. As explained in "unimport"'s description, an "use indirect" statement @@ -108,7 +117,9 @@ METHODS indirect 'global', ..." (if there's one). FUNCTIONS - "msg $object, $method, $file, $line" + "msg" + my $msg = msg($object, $method, $file, $line); + Returns the default error message that "indirect" generates when an indirect method call is reported. @@ -197,7 +208,8 @@ ACKNOWLEDGEMENTS reporting issues. COPYRIGHT & LICENSE - Copyright 2008,2009,2010,2011 Vincent Pit, all rights reserved. + Copyright 2008,2009,2010,2011,2012,2013 Vincent Pit, all rights + reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff --git a/lib/indirect.pm b/lib/indirect.pm index 76a3ee0..d5c6f4e 100644 --- a/lib/indirect.pm +++ b/lib/indirect.pm @@ -11,13 +11,13 @@ indirect - Lexically warn about using the indirect method call syntax. =head1 VERSION -Version 0.26 +Version 0.27 =cut our $VERSION; BEGIN { - $VERSION = '0.26'; + $VERSION = '0.27'; } =head1 SYNOPSIS