Login
Preparing for next production release:
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 9 May 2006 06:15:31 +0000 (06:15 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 9 May 2006 06:15:31 +0000 (06:15 +0000)
* Increased VERSION to 0.16
* Increased PPI dependency to 1.112.  This fixes 1 TODO test
* Removed the spelling test from the distro

92 files changed:
Build.PL
Changes
INSTALL
MANIFEST
MANIFEST.SKIP
META.yml
Makefile.PL
README
bin/perlcritic
lib/Perl/Critic.pm
lib/Perl/Critic/Config.pm
lib/Perl/Critic/Policy.pm
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitLvalueSubstr.pm
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitSleepViaSelect.pm
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitStringyEval.pm
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitUniversalCan.pm
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitUniversalIsa.pm
lib/Perl/Critic/Policy/BuiltinFunctions/RequireBlockGrep.pm
lib/Perl/Critic/Policy/BuiltinFunctions/RequireBlockMap.pm
lib/Perl/Critic/Policy/BuiltinFunctions/RequireGlobFunction.pm
lib/Perl/Critic/Policy/ClassHierarchies/ProhibitAutoloading.pm
lib/Perl/Critic/Policy/ClassHierarchies/ProhibitExplicitISA.pm
lib/Perl/Critic/Policy/ClassHierarchies/ProhibitOneArgBless.pm
lib/Perl/Critic/Policy/CodeLayout/ProhibitHardTabs.pm
lib/Perl/Critic/Policy/CodeLayout/ProhibitParensWithBuiltins.pm
lib/Perl/Critic/Policy/CodeLayout/ProhibitQuotedWordLists.pm
lib/Perl/Critic/Policy/CodeLayout/RequireTidyCode.pm
lib/Perl/Critic/Policy/CodeLayout/RequireTrailingCommas.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitCStyleForLoops.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitCascadingIfElse.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitPostfixControls.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitUnlessBlocks.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitUnreachableCode.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitUntilBlocks.pm
lib/Perl/Critic/Policy/Documentation/RequirePodAtEnd.pm
lib/Perl/Critic/Policy/Documentation/RequirePodSections.pm
lib/Perl/Critic/Policy/InputOutput/ProhibitBacktickOperators.pm
lib/Perl/Critic/Policy/InputOutput/ProhibitBarewordFileHandles.pm
lib/Perl/Critic/Policy/InputOutput/ProhibitOneArgSelect.pm
lib/Perl/Critic/Policy/InputOutput/ProhibitReadlineInForLoop.pm
lib/Perl/Critic/Policy/InputOutput/ProhibitTwoArgOpen.pm
lib/Perl/Critic/Policy/InputOutput/RequireBracedFileHandleWithPrint.pm
lib/Perl/Critic/Policy/Miscellanea/ProhibitFormats.pm
lib/Perl/Critic/Policy/Miscellanea/ProhibitTies.pm
lib/Perl/Critic/Policy/Miscellanea/RequireRcsKeywords.pm
lib/Perl/Critic/Policy/Modules/ProhibitAutomaticExportation.pm
lib/Perl/Critic/Policy/Modules/ProhibitEvilModules.pm
lib/Perl/Critic/Policy/Modules/ProhibitMultiplePackages.pm
lib/Perl/Critic/Policy/Modules/RequireBarewordIncludes.pm
lib/Perl/Critic/Policy/Modules/RequireEndWithOne.pm
lib/Perl/Critic/Policy/Modules/RequireExplicitPackage.pm
lib/Perl/Critic/Policy/Modules/RequireVersionVar.pm
lib/Perl/Critic/Policy/NamingConventions/ProhibitAmbiguousNames.pm
lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseSubs.pm
lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseVars.pm
lib/Perl/Critic/Policy/References/ProhibitDoubleSigils.pm
lib/Perl/Critic/Policy/RegularExpressions/RequireExtendedFormatting.pm
lib/Perl/Critic/Policy/RegularExpressions/RequireLineBoundaryMatching.pm
lib/Perl/Critic/Policy/Subroutines/ProhibitAmpersandSigils.pm
lib/Perl/Critic/Policy/Subroutines/ProhibitBuiltinHomonyms.pm
lib/Perl/Critic/Policy/Subroutines/ProhibitExcessComplexity.pm
lib/Perl/Critic/Policy/Subroutines/ProhibitExplicitReturnUndef.pm
lib/Perl/Critic/Policy/Subroutines/ProhibitSubroutinePrototypes.pm
lib/Perl/Critic/Policy/Subroutines/ProtectPrivateSubs.pm
lib/Perl/Critic/Policy/Subroutines/RequireFinalReturn.pm
lib/Perl/Critic/Policy/TestingAndDebugging/ProhibitNoStrict.pm
lib/Perl/Critic/Policy/TestingAndDebugging/ProhibitNoWarnings.pm
lib/Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm
lib/Perl/Critic/Policy/TestingAndDebugging/RequireUseWarnings.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitConstantPragma.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitEmptyQuotes.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitInterpolationOfLiterals.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitLeadingZeros.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitMixedBooleanOperators.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitNoisyQuotes.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitVersionStrings.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/RequireInterpolationOfMetachars.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/RequireNumberSeparators.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/RequireQuotedHeredocTerminator.pm
lib/Perl/Critic/Policy/ValuesAndExpressions/RequireUpperCaseHeredocTerminator.pm
lib/Perl/Critic/Policy/Variables/ProhibitConditionalDeclarations.pm
lib/Perl/Critic/Policy/Variables/ProhibitLocalVars.pm
lib/Perl/Critic/Policy/Variables/ProhibitMatchVars.pm
lib/Perl/Critic/Policy/Variables/ProhibitPackageVars.pm
lib/Perl/Critic/Policy/Variables/ProhibitPunctuationVars.pm
lib/Perl/Critic/Policy/Variables/ProtectPrivateVars.pm
lib/Perl/Critic/Policy/Variables/RequireInitializationForLocalVars.pm
lib/Perl/Critic/Utils.pm
lib/Perl/Critic/Violation.pm
t/00_modules.t
t/20_policies_references.t
t/97_spelling.t

index a24e719..11d58d4 100755 (executable)
--- a/Build.PL
+++ b/Build.PL
@@ -54,7 +54,7 @@ my $builder = Module::Build->new(
   dist_abstract  => 'Critique Perl source code for best-practices',
   license        => 'perl',
 
-  requires       => {'PPI'                   => 1.110,
+  requires       => {'PPI'                   => 1.112,
                     'Config::Tiny'          => 2,
                     'File::Spec'            => 0,
                     'List::MoreUtils'       => 0,
diff --git a/Changes b/Changes
index 1ea2fe2..0ecc85e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,14 +5,28 @@
 # $Revision$
 ########################################################################
 
+[0.16]  Released on ????????
+
+      Production release.
+
+      Enhancements:
+      * Perl::Critic->critique() now accepts a PPI::Document as the
+        argument.  This feature creates an additional dependency on
+        Scalar::Util, but that shouldn't be a problem because it is
+        included with List::Util, which we already use.
+
+      Miscellanea:
+      * Increased PPI dependency from v1.110 to v1.112
+
 [0.15_03] Released on 20060507
 
      Bug Fixes:
      * The "## no critic" feature is now implemented without eval-ing
        the code.  This keeps Perl::Critic pure and safe :)
+     * 19082: Page number for AUTOLOAD is incorrect
 
      New Policies:
-     * ControlStructures::ProhibitUnreachableCode
+     * ControlStructures::ProhibitUnreachableCode (by Peter Guzis)
      * Modules::ProhibitAutomaticExportation
      * ValuesAndExpressions::ProhibitVersionStrings
 
@@ -54,8 +68,8 @@
        which are commonly used with Getopt::Long.
 
      New Policies:
-     * BuiltinFunctions::ProhibitUniversalCan
-     * BuiltinFunctions::ProhibitUniversalIsa
+     * BuiltinFunctions::ProhibitUniversalCan (by Chris Dolan)
+     * BuiltinFunctions::ProhibitUniversalIsa (by Chris Dolan)
 
      Miscellanea:
      * All spurrious options for `perlcritic` are now fatal.
@@ -80,7 +94,7 @@
      New Policies:
      * ClassHierarchies::ProhibitAutoloading
      * Documentation::RequirePodSections
-     * InputOutput::RequireBracedFileHandelWithPrint
+     * InputOutput::RequireBracedFileHandleWithPrint
      * ValuesAndExpressions::ProhibitMixedBooleanOperators
      * Variables::RequireInitializationForLocalVars
 
diff --git a/INSTALL b/INSTALL
index 581884c..0b585ba 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -18,8 +18,8 @@ INSTALLATION
      To install Perl::Critic with C<make> give the following 
      commands to your favorite shell:
 
-         tar -zxf Perl-Critic-0.15_02.tar.gz
-         cd Perl-Critic-0.15_02
+         tar -zxf Perl-Critic-0.16.tar.gz
+         cd Perl-Critic-0.16
          perl Makefile.PL
          make
          make test
@@ -27,8 +27,8 @@ INSTALLATION
 
      Or if you prefer C<Module::Build>, try this:
 
-         tar -zxf Perl-Critic-0.15_02.tar.gz
-         cd Perl-Critic-0.15_02
+         tar -zxf Perl-Critic-0.16.tar.gz
+         cd Perl-Critic-0.16
          perl Build.pl
          ./Build
          ./Build test
index 19f0c01..4872a76 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -110,7 +110,6 @@ t/20_policies_subroutines.t
 t/20_policies_testinganddebugging.t
 t/20_policies_valuesandexpressions.t
 t/20_policies_variables.t
-t/97_spelling.t
 t/98_pod_syntax.t
 t/99_pod_coverage.t
 t/samples/perlcriticrc.all
index bc40056..ad123d0 100644 (file)
@@ -52,4 +52,5 @@ RCS
 ^test\.swf$
 
 # Author-time tests
-40_criticize\.t$
\ No newline at end of file
+40_criticize\.t$
+97_spelling\.t$
\ No newline at end of file
index 530c4c9..1a35aca 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 ---
 name: Perl-Critic
-version: 0.15_02
+version: 0.16
 author:
   - Jeffrey Thalhammer <thaljef@cpan.org>
 abstract: Critique Perl source code for best-practices
@@ -15,6 +15,7 @@ requires:
   PPI: 1.11
   Pod::PlainText: 0
   Pod::Usage: 0
+  Scalar::Util: 0
   String::Format: 1.13
 recommends:
   Perl::Tidy: 0
@@ -24,233 +25,242 @@ build_requires:
 provides:
   Perl::Critic:
     file: lib/Perl/Critic.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Config:
     file: lib/Perl/Critic/Config.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy:
     file: lib/Perl/Critic/Policy.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitLvalueSubstr.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::ProhibitSleepViaSelect:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitSleepViaSelect.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::ProhibitStringyEval:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitStringyEval.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::ProhibitUniversalCan:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitUniversalCan.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::ProhibitUniversalIsa:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitUniversalIsa.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::RequireBlockGrep:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/RequireBlockGrep.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::RequireBlockMap:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/RequireBlockMap.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::BuiltinFunctions::RequireGlobFunction:
     file: lib/Perl/Critic/Policy/BuiltinFunctions/RequireGlobFunction.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ClassHierarchies::ProhibitAutoloading:
     file: lib/Perl/Critic/Policy/ClassHierarchies/ProhibitAutoloading.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ClassHierarchies::ProhibitExplicitISA:
     file: lib/Perl/Critic/Policy/ClassHierarchies/ProhibitExplicitISA.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless:
     file: lib/Perl/Critic/Policy/ClassHierarchies/ProhibitOneArgBless.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::CodeLayout::ProhibitHardTabs:
     file: lib/Perl/Critic/Policy/CodeLayout/ProhibitHardTabs.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::CodeLayout::ProhibitParensWithBuiltins:
     file: lib/Perl/Critic/Policy/CodeLayout/ProhibitParensWithBuiltins.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::CodeLayout::ProhibitQuotedWordLists:
     file: lib/Perl/Critic/Policy/CodeLayout/ProhibitQuotedWordLists.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::CodeLayout::RequireTidyCode:
     file: lib/Perl/Critic/Policy/CodeLayout/RequireTidyCode.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::CodeLayout::RequireTrailingCommas:
     file: lib/Perl/Critic/Policy/CodeLayout/RequireTrailingCommas.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ControlStructures::ProhibitCStyleForLoops:
     file: lib/Perl/Critic/Policy/ControlStructures/ProhibitCStyleForLoops.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ControlStructures::ProhibitCascadingIfElse:
     file: lib/Perl/Critic/Policy/ControlStructures/ProhibitCascadingIfElse.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ControlStructures::ProhibitPostfixControls:
     file: lib/Perl/Critic/Policy/ControlStructures/ProhibitPostfixControls.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ControlStructures::ProhibitUnlessBlocks:
     file: lib/Perl/Critic/Policy/ControlStructures/ProhibitUnlessBlocks.pm
-    version: 0.15_02
+    version: 0.16
+  Perl::Critic::Policy::ControlStructures::ProhibitUnreachableCode:
+    file: lib/Perl/Critic/Policy/ControlStructures/ProhibitUnreachableCode.pm
+    version: 0.16
   Perl::Critic::Policy::ControlStructures::ProhibitUntilBlocks:
     file: lib/Perl/Critic/Policy/ControlStructures/ProhibitUntilBlocks.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Documentation::RequirePodAtEnd:
     file: lib/Perl/Critic/Policy/Documentation/RequirePodAtEnd.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Documentation::RequirePodSections:
     file: lib/Perl/Critic/Policy/Documentation/RequirePodSections.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::InputOutput::ProhibitBacktickOperators:
     file: lib/Perl/Critic/Policy/InputOutput/ProhibitBacktickOperators.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::InputOutput::ProhibitBarewordFileHandles:
     file: lib/Perl/Critic/Policy/InputOutput/ProhibitBarewordFileHandles.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::InputOutput::ProhibitOneArgSelect:
     file: lib/Perl/Critic/Policy/InputOutput/ProhibitOneArgSelect.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::InputOutput::ProhibitReadlineInForLoop:
     file: lib/Perl/Critic/Policy/InputOutput/ProhibitReadlineInForLoop.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen:
     file: lib/Perl/Critic/Policy/InputOutput/ProhibitTwoArgOpen.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::InputOutput::RequireBracedFileHandleWithPrint:
     file: lib/Perl/Critic/Policy/InputOutput/RequireBracedFileHandleWithPrint.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Miscellanea::ProhibitFormats:
     file: lib/Perl/Critic/Policy/Miscellanea/ProhibitFormats.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Miscellanea::ProhibitTies:
     file: lib/Perl/Critic/Policy/Miscellanea/ProhibitTies.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Miscellanea::RequireRcsKeywords:
     file: lib/Perl/Critic/Policy/Miscellanea/RequireRcsKeywords.pm
-    version: 0.15_02
+    version: 0.16
+  Perl::Critic::Policy::Modules::ProhibitAutomaticExportation:
+    file: lib/Perl/Critic/Policy/Modules/ProhibitAutomaticExportation.pm
+    version: 0.16
   Perl::Critic::Policy::Modules::ProhibitEvilModules:
     file: lib/Perl/Critic/Policy/Modules/ProhibitEvilModules.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Modules::ProhibitMultiplePackages:
     file: lib/Perl/Critic/Policy/Modules/ProhibitMultiplePackages.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Modules::RequireBarewordIncludes:
     file: lib/Perl/Critic/Policy/Modules/RequireBarewordIncludes.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Modules::RequireEndWithOne:
     file: lib/Perl/Critic/Policy/Modules/RequireEndWithOne.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Modules::RequireExplicitPackage:
     file: lib/Perl/Critic/Policy/Modules/RequireExplicitPackage.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Modules::RequireVersionVar:
     file: lib/Perl/Critic/Policy/Modules/RequireVersionVar.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::NamingConventions::ProhibitAmbiguousNames:
     file: lib/Perl/Critic/Policy/NamingConventions/ProhibitAmbiguousNames.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseSubs:
     file: lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseSubs.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseVars:
     file: lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::References::ProhibitDoubleSigils:
     file: lib/Perl/Critic/Policy/References/ProhibitDoubleSigils.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::RegularExpressions::RequireExtendedFormatting:
     file: lib/Perl/Critic/Policy/RegularExpressions/RequireExtendedFormatting.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::RegularExpressions::RequireLineBoundaryMatching:
     file: lib/Perl/Critic/Policy/RegularExpressions/RequireLineBoundaryMatching.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::ProhibitAmpersandSigils:
     file: lib/Perl/Critic/Policy/Subroutines/ProhibitAmpersandSigils.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::ProhibitBuiltinHomonyms:
     file: lib/Perl/Critic/Policy/Subroutines/ProhibitBuiltinHomonyms.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::ProhibitExcessComplexity:
     file: lib/Perl/Critic/Policy/Subroutines/ProhibitExcessComplexity.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::ProhibitExplicitReturnUndef:
     file: lib/Perl/Critic/Policy/Subroutines/ProhibitExplicitReturnUndef.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes:
     file: lib/Perl/Critic/Policy/Subroutines/ProhibitSubroutinePrototypes.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::ProtectPrivateSubs:
     file: lib/Perl/Critic/Policy/Subroutines/ProtectPrivateSubs.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Subroutines::RequireFinalReturn:
     file: lib/Perl/Critic/Policy/Subroutines/RequireFinalReturn.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::TestingAndDebugging::ProhibitNoStrict:
     file: lib/Perl/Critic/Policy/TestingAndDebugging/ProhibitNoStrict.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::TestingAndDebugging::ProhibitNoWarnings:
     file: lib/Perl/Critic/Policy/TestingAndDebugging/ProhibitNoWarnings.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::TestingAndDebugging::RequireUseStrict:
     file: lib/Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::TestingAndDebugging::RequireUseWarnings:
     file: lib/Perl/Critic/Policy/TestingAndDebugging/RequireUseWarnings.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::ProhibitConstantPragma:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitConstantPragma.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::ProhibitEmptyQuotes:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitEmptyQuotes.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::ProhibitInterpolationOfLiterals:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitInterpolationOfLiterals.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitLeadingZeros.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::ProhibitMixedBooleanOperators:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitMixedBooleanOperators.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitNoisyQuotes.pm
-    version: 0.15_02
+    version: 0.16
+  Perl::Critic::Policy::ValuesAndExpressions::ProhibitVersionStrings:
+    file: lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitVersionStrings.pm
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/RequireInterpolationOfMetachars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::RequireNumberSeparators:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/RequireNumberSeparators.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::RequireQuotedHeredocTerminator:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/RequireQuotedHeredocTerminator.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::ValuesAndExpressions::RequireUpperCaseHeredocTerminator:
     file: lib/Perl/Critic/Policy/ValuesAndExpressions/RequireUpperCaseHeredocTerminator.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::ProhibitConditionalDeclarations:
     file: lib/Perl/Critic/Policy/Variables/ProhibitConditionalDeclarations.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::ProhibitLocalVars:
     file: lib/Perl/Critic/Policy/Variables/ProhibitLocalVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::ProhibitMatchVars:
     file: lib/Perl/Critic/Policy/Variables/ProhibitMatchVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::ProhibitPackageVars:
     file: lib/Perl/Critic/Policy/Variables/ProhibitPackageVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::ProhibitPunctuationVars:
     file: lib/Perl/Critic/Policy/Variables/ProhibitPunctuationVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::ProtectPrivateVars:
     file: lib/Perl/Critic/Policy/Variables/ProtectPrivateVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Policy::Variables::RequireInitializationForLocalVars:
     file: lib/Perl/Critic/Policy/Variables/RequireInitializationForLocalVars.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Utils:
     file: lib/Perl/Critic/Utils.pm
-    version: 0.15_02
+    version: 0.16
   Perl::Critic::Violation:
     file: lib/Perl/Critic/Violation.pm
-    version: 0.15_02
+    version: 0.16
 generated_by: Module::Build version 0.2611
index e61bc6d..e6d2a59 100755 (executable)
@@ -53,7 +53,7 @@ WriteMakefile( NAME           => 'Perl::Critic',
               VERSION_FROM   => 'lib/Perl/Critic.pm',
               EXE_FILES      => ['bin/perlcritic'],
               PL_FILES       => {},
-              PREREQ_PM      => {'PPI'                   => 1.110,
+              PREREQ_PM      => {'PPI'                   => 1.112,
                                  'Config::Tiny'          => 2,
                                  'File::Spec'            => 0,
                                  'List::MoreUtils'       => 0,
diff --git a/README b/README
index 3a878fe..ae6c889 100644 (file)
--- a/README
+++ b/README
@@ -30,7 +30,7 @@ DESCRIPTION
 
 CONSTRUCTOR
     "new( -profile => $FILE, -severity => $N, -include => \@PATTERNS,
-    -exclude => \@PATTERNS, -force => 1 )"
+    -exclude => \@PATTERNS, -top =" N, -force => 1 )>
             Returns a reference to a new Perl::Critic object. Most arguments
             are just passed directly into Perl::Critic::Config, but I have
             described them here as well. All arguments are optional
@@ -78,6 +78,11 @@ CONSTRUCTOR
             takes precedence over "-include" when a Policy matches both
             patterns.
 
+            -top is the maximum number of Violations to return when ranked
+            by their severity levels. Violations are still returned in the
+            order that they occur within the file. This must be a positive
+            integer
+
             -force controls whether Perl::Critic observes the magical ""##
             no critic"" pseudo-pragmas in your code. If set to a true value,
             Perl::Critic will analyze all code. If set to a false value
@@ -290,6 +295,10 @@ THE POLICIES
   Perl::Critic::Policy::ControlStructures::ProhibitUnlessBlocks
     Write "if(! $condition)" instead of "unless($condition)" [Severity 2]
 
+  Perl::Critic::Policy::ControlStructures::ProhibitUnreachableCode
+    Don't write code after an unconditional "die, exit, or next". [Severity
+    4]
+
   Perl::Critic::Policy::ControlStructures::ProhibitUntilBlocks
     Write "while(! $condition)" instead of "until($condition)" [Severity 2]
 
@@ -330,6 +339,10 @@ THE POLICIES
   Perl::Critic::Policy::Miscellanea::RequireRcsKeywords
     Put source-control keywords in every file. [Severity 2]
 
+  Perl::Critic::Policy::Modules::ProhibitAutomaticExportation
+    Export symbols via @EXPORT_OK or %EXPORT_TAGS instead of @EXPORT.
+    [Severity 3]
+
   Perl::Critic::Policy::Modules::ProhibitMultiplePackages
     Put packages (especially subclasses) in separate files. [Severity 4]
 
@@ -423,6 +436,10 @@ THE POLICIES
     Use "q{}" or "qq{}" instead of quotes for awkward-looking strings.
     [Severity 2]
 
+  Perl::Critic::Policy::ValuesAndExpressions::ProhibitVersionStrings
+    Don't use strings like "v1.4" or 1.4.5 when including other modules.
+    [Severity 3]
+
   Perl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars
     Warns that you might have used single quotes when you really wanted
     double-quotes. [Severity 1]
@@ -491,51 +508,64 @@ BENDING THE RULES
     code is overlooked. To direct perlcritic to ignore the "## no critic"
     comments, use the "-force" option.
 
-    By default, a bare "## no critic" comment disables all the active
-    Policies. If you wish to disable only specific Policies, add a list of
-    Policies names just as you would for "no strict" or ""no warnings"". For
-    example, this would disable the "ProhibitEmptyQuotes" and
-    "ProhibitPostfixControls" until the end of the block or until the next
-    "## use critic" comment (which ever comes first):
+    A bare "## no critic" comment disables all the active Policies. If you
+    wish to disable only specific Policies, add a list of Policy names as
+    arguments just as you would for the "no strict" or ""no warnings""
+    pragmas. For example, this would disable the "ProhibitEmptyQuotes" and
+    "ProhibitPostfixControls" policies until the end of the block or until
+    the next "## use critic" comment (whichever comes first):
 
-      ## no critic qw(EmptyQuotes PostfixControls);
+      ## no critic (EmptyQuotes, PostfixControls)
 
       $foo = "";                  #Now exempt from ValuesAndExpressions::ProhibitEmptyQuotes
       $barf = bar() if $foo;      #Now exempt ControlStructures::ProhibitPostfixControls
       $long_int = 10000000000;    #Still subjected to ValuesAndExpression::RequireNumberSeparators
 
-    Since the Policy names are matched as regular expressions, you can
-    abbreviate the Policy names or disable an entire family of Policies in
-    one shot like this:
+    Since the Policy names are matched against the arguments as regular
+    expressions, you can abbreviate the Policy names or disable an entire
+    family of Policies in one shot like this:
 
-      ## no critic 'NamingConventions';
+      ## no critic (NamingConventions)
 
       my $camelHumpVar = 'foo';  #Now exempt from NamingConventions::ProhibitMixedCaseVars
       sub camelHumpSub {}        #Now exempt from NamingConventions::ProhibitMixedCaseSubs
 
-    The import list must be valid Perl syntax (such as a list of quoted
-    literals or a qw() expression). The <"## no critic"> pragmas can be
-    nested, and Policies named by an inner pragma will be disabled along
-    with those already disabled an outer pragmas.
+    The argument list must be enclosed in parens and must contain one or
+    more comma-separated barewords (e.g. don't use quotes). The <"## no
+    critic"> pragmas can be nested, and Policies named by an inner pragma
+    will be disabled along with those already disabled an outer pragma.
 
     Use this feature wisely. "## no critic" should be used in the smallest
-    possible scope, or only on individual lines of code. If Perl::Critic
+    possible scope, or only on individual lines of code. And you should
+    always be as specific as possible about which policies you want to
+    disable (i.e. never use a bare "## no critic"). If Perl::Critic
     complains about your code, try and find a compliant solution before
     resorting to this feature.
 
 IMPORTANT CHANGES
     Perl-Critic is evolving rapidly. As such, some of the interfaces have
-    changed in ways that are not backward-compatible. This will probably
-    concern you only if you're developing Perl::Critic::Policy modules.
+    changed in ways that are not backward-compatible. If you have been using
+    an older version of Perl-Critic and/or you have been developing custom
+    Policy modules, please read this section carefully.
 
-  VERSION 0.11
-    Starting in version 0.11, the internal mechanics of Perl-Critic were
-    rewritten so that only one traversal of the PPI document tree is
-    required. Unfortunately, this will break any custom Policy modules that
-    you might have written for earlier versions. Converting your policies to
-    work with the new version is pretty easy and actually results in cleaner
-    code. See DEVELOPER.pod for an up-to-date guide on creating Policy
-    modules.
+  VERSION 0.16
+    Starting in version 0.16, you can add a list Policy names as arguments
+    to the "## no critic" pseudo-pragma. This feature allows you to disable
+    specific policies. The arguments must be valid Perl syntax, just as if
+    this were a real pragma. So if you have been in the habit of adding
+    additional words after "no critic", then those words might cause
+    unexpected results. If you want to append other stuff to the "## no
+    critic" comment, then terminate the pseudo-pragma with a semi-colon, and
+    then start another comment. For example:
+
+      #This may not work as expected.
+      $email = 'foo@bar.com';  ## no critic for literal '@'
+
+      #This will work.
+      $email = 'foo@bar.com';  ## no critic; #for literal '@'
+
+      #This is even better.
+      $email = 'foo@bar.com'; ## no critic qw(RequireInterpolation);
 
   VERSION 0.14
     Starting in version 0.14, the interface to Perl::Critic::Violation
@@ -550,16 +580,25 @@ IMPORTANT CHANGES
     be less "critical" for new users, and should steer them toward gradually
     increasing the strictness as they adopt better coding practices.
 
+  VERSION 0.11
+    Starting in version 0.11, the internal mechanics of Perl-Critic were
+    rewritten so that only one traversal of the PPI document tree is
+    required. Unfortunately, this will break any custom Policy modules that
+    you might have written for earlier versions. Converting your policies to
+    work with the new version is pretty easy and actually results in cleaner
+    code. See DEVELOPER.pod for an up-to-date guide on creating Policy
+    modules.
+
 THE Perl::Critic PHILOSOPHY
       Coding standards are deeply personal and highly subjective.  The
-      goal of Perl::Critic is to help you write code that conforms with
-      set of best practices.  Our primary goal is not to dictate what
+      goal of Perl::Critic is to help you write code that conforms with a
+      set of best practices.  Our primary goal is not to dictate what
       those practices are, but rather, to implement the practices
       discovered by others.  Ultimately, you make the rules --
-      Perl::Critic is merely tool for encouraging consistency.  If
-      there is a policy that you think is important or that we have
-      overlooked, we would be very grateful for contributions, or you can
-      simply load your own private set of policies into Perl::Critic.
+      Perl::Critic is merely a tool for encouraging consistency.  If there
+      is a policy that you think is important or that we have overlooked,
+      we would be very grateful for contributions, or you can simply load
+      your own private set of policies into Perl::Critic.
 
 EXTENDING THE CRITIC
     The modular design of Perl::Critic is intended to facilitate the
index faa34e2..fb85e1e 100755 (executable)
@@ -18,7 +18,7 @@ use List::Util qw(first);
 use English qw(-no_match_vars);
 use Perl::Critic::Utils;
 
-our $VERSION = 0.15_03;
+our $VERSION = 0.16;
 $VERSION = eval $VERSION;  ## no critic
 
 #----------------------------------------------------------------------------
@@ -758,6 +758,10 @@ Do not use C<tie>. [Severity 2]
 
 Put source-control keywords in every file. [Severity 2]
 
+=head2 L<Perl::Critic::Policy::Modules::ProhibitAutomaticExportation>
+
+Export symbols via C<@EXPORT_OK> or C<%EXPORT_TAGS> instead of C<@EXPORT>.  [Severity 3]
+
 =head2 L<Perl::Critic::Policy::Modules::ProhibitMultiplePackages>
 
 Put packages (especially subclasses) in separate files. [Severity 4]
@@ -874,6 +878,10 @@ Write C< !$foo && $bar || $baz > instead of C< not $foo && $bar or $baz> [Severi
 
 Use C<q{}> or C<qq{}> instead of quotes for awkward-looking strings. [Severity 2]
 
+=head2 L<Perl::Critic::Policy::ValuesAndExpressions::ProhibitVersionStrings>
+
+Don't use strings like C<v1.4> or C<1.4.5> when including other modules. [Severity 3]
+
 =head2 L<Perl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars>
 
 Warns that you might have used single quotes when you really wanted double-quotes. [Severity 1]
index 7ff2dd9..db38e38 100644 (file)
@@ -17,7 +17,7 @@ use Perl::Critic::Violation ();
 use Carp;
 use PPI;
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic;
 
 #----------------------------------------------------------------------------
index 0a1bf4e..71025df 100644 (file)
@@ -16,7 +16,7 @@ use List::MoreUtils qw(any none);
 use Perl::Critic::Utils;
 use Carp qw(carp croak);
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 # Globals.  Ick!
index e7bf033..468969c 100644 (file)
@@ -11,7 +11,7 @@ use strict;
 use warnings;
 use Perl::Critic::Utils;
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 96725c5..55bab88 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic;
 
 #----------------------------------------------------------------------------
index f22f396..8ffa012 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic;
 
 #------------------------------------------------------------------------
index 44fcf18..45de6b8 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 2835974..74b6c6b 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;  ##no critic 'ProhibitStringyEval';
 
 #----------------------------------------------------------------------------
index ec21c6e..8dcea87 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ##no critic 'ProhibitStringyEval';
 
 #----------------------------------------------------------------------------
index 1016aea..f831afe 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 6df07a3..8e11db5 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index dfadf84..2bdebc7 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index c6828a0..238f41b 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 #--------------------------------------------------------------------------
index 30fb868..62cb109 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 #--------------------------------------------------------------------------
index 3d9fd28..e35dbf4 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 #--------------------------------------------------------------------------
index d94b69a..8605a1a 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 my $desc = q{Hard tabs used};
index 440812b..2aad7a1 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(any);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 05e7da2..8d6191d 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 47856ab..f8e8c65 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 92ac9d8..80ead75 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index dafc362..be927e8 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 52fda06..00d44a6 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 18ea6e0..7b61d12 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index bed5d62..73a4b23 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index eaeecec..ad3ec77 100755 (executable)
@@ -6,7 +6,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 my %terminals = (
index c625151..bf398aa 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 67de497..dc9700b 100644 (file)
@@ -14,7 +14,7 @@ use List::Util qw(first);
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index ec951cc..c37af76 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 8024a50..fa06ade 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 16c4640..9806d99 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 #--------------------------------------------------------------------------
index 5916327..fe733bd 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 #--------------------------------------------------------------------------
index b03dbe3..9ff4f78 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index ffb70be..5ebaf82 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION; ## no critic
 
 #--------------------------------------------------------------------------
index 690c1eb..9f3d333 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 0e0445d..54fa968 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 8cbb5d0..9dc8d58 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index a4bc228..e6dacf5 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(none);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index a1f52c3..7ec3e18 100755 (executable)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(any);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 0564e1f..836675f 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 my $expl = q{Find an alternative module};
index bced323..41bf2ae 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 5b0d1be..c718683 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 56543bb..cab5c10 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 21b8f97..3323bd9 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 5156c83..27c36e1 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(any);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index f8f0f80..9afd079 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index c021bf5..2474a28 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index fde6ea3..ddf01d7 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index e76e9a0..5a1bb5e 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index e7c795f..ebf13b8 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 4942f06..525e101 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Violation;
 use Perl::Critic::Utils;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #----------------------------------------------------------------------------
index 8a8386a..f9dbba2 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 566fd4f..2e85105 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index a190d53..8f7a131 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index fae5ffb..526a37f 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index f8f6895..8ead8a3 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 4073c9f..0731964 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(all);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index a3df51f..9f27c0f 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 77819ce..3e32d83 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 0ec6e66..9790751 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index e226964..75022b4 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
@@ -92,12 +92,12 @@ code in the entire package will be affected.
 =head1 NOTES
 
 Up through version 0.15, this Policy only reported a violation for the
-first offending statement.  Starting in version 0.16, this Policy was
-modified to report a violation for every offending statement.  This
-change closes a loophole with the C<"## no critic"> pseudo-pragmas.
-But for old legacy code that isn't strict, it produces B<a lot> of
-violations.  The best way to alleviate the problem is to organize your
-code like this.
+first offending statement.  Starting in version 0.15_03, this Policy
+was modified to report a violation for every offending statement.
+This change closes a loophole with the C<"## no critic">
+pseudo-pragmas.  But for old legacy code that isn't strict, it
+produces B<a lot> of violations.  The best way to alleviate the
+problem is to organize your code like this.
 
   ## no critic 'RequireUseStrict';
   ## Legacy code goes here...
index 47ddf69..137d0cc 100644 (file)
@@ -14,7 +14,7 @@ use List::Util qw(first);
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
@@ -93,12 +93,12 @@ code in the entire package will be affected.
 =head1 NOTES
 
 Up through version 0.15, this Policy only reported a violation for the
-first offending statement.  Starting in version 0.16, this Policy was
-modified to report a violation for every offending statement.  This
-change closes a loophole with the C<"## no critic"> pseudo-pragmas.
-But for old legacy code that doesn't use warnings, it produces B<a
-lot> of violations.  The best way to alleviate the problem is to
-organize your code like this.
+first offending statement.  Starting in version 0.15_03, this Policy
+was modified to report a violation for every offending statement.
+This change closes a loophole with the C<"## no critic">
+pseudo-pragmas.  But for old legacy code that doesn't use warnings, it
+produces B<a lot> of violations.  The best way to alleviate the
+problem is to organize your code like this.
 
   ## no critic 'RequireUseWarnings';
 
index 3737d28..d20ff14 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index c8b2a8c..9f15d76 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index b97094b..dea0108 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 57d2779..3464e73 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 8dc72f7..f37fc06 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index e6494f1..3e9e71f 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index c71517d..ceaab07 100755 (executable)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
@@ -64,7 +64,7 @@ Whenever you C<use> or C<require> a module, you can specify a minimum
 version requirement.  To ensure compatibility with older Perls, this
 version number should be expressed as a floating-point number.  Do not
 use v-strings or three-part numbers.  The Perl convention for expressing
-version numbers as floats is: MajorVersion + PatchLevel / 1000.
+version numbers as floats is: version + (patch level / 1000).
 
   use Foo v1.2    qw(foo bar);  # not ok
   use Foo 1.2.03  qw(foo bar);  # not ok
index fb31e25..099f8f2 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index ee958fb..82a8052 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 8b8d126..638734d 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index fd202bf..719109f 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 843f9d7..44dfd2f 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(any);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 24e5791..ecf9a61 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 12010c4..49082da 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 95435c1..0526e2c 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(all);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 14a5124..a8147a8 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 14a00e9..1ff3f70 100644 (file)
@@ -14,7 +14,7 @@ use Perl::Critic::Violation;
 use List::MoreUtils qw(all);
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 6ac5c2d..b5f6ce9 100644 (file)
@@ -13,7 +13,7 @@ use Perl::Critic::Utils;
 use Perl::Critic::Violation;
 use base 'Perl::Critic::Policy';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 70d534a..816f9c3 100644 (file)
@@ -11,7 +11,7 @@ use strict;
 use warnings;
 use base 'Exporter';
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #---------------------------------------------------------------------------
index 39d6044..4b453fc 100644 (file)
@@ -17,7 +17,7 @@ use String::Format qw(stringf);
 use English qw(-no_match_vars);
 use overload ( q{""} => q{to_string}, cmp => q{_compare} );
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;    ## no critic
 
 #Class variables...
index 0c8ac2d..a2c96a6 100644 (file)
@@ -11,7 +11,7 @@ use PPI::Document;
 use Test::More tests => 710;  # Add 9 for each new policy created
 use English qw(-no_match_vars);
 
-our $VERSION = '0.15_03';
+our $VERSION = '0.16';
 $VERSION = eval $VERSION;  ## no critic
 
 my $obj = undef;
index 8f6aa4f..02ff5e6 100644 (file)
@@ -54,13 +54,15 @@ is( pcritique($policy, \$code), 6, $policy);
 #----------------------------------------------------------------
 
 # PPI bug: multiplication is mistakenly interpreted as a glob.
+#
+# Update 2006-05-08: As-of PPI v1.112, this seems to be fixed.
+# So this test is no longer a "TODO" test.
+
 $code = <<'END_PERL';
 $value = $one*$two;
 END_PERL
 
-TODO: {
-   local $TODO = 'PPI bug -- multiplication misinterpreted as a glob';
-   $policy = 'References::ProhibitDoubleSigils';
-   is( pcritique($policy, \$code), 0, $policy);
-}
+$policy = 'References::ProhibitDoubleSigils';
+is( pcritique($policy, \$code), 0, $policy);
+
 
index 352f2ec..534b2d3 100644 (file)
@@ -21,6 +21,7 @@ CGI
 CPAN
 CVS
 Dolan
+Guzis
 HEREDOC
 HEREDOCs
 HEREDOCS