Login
Code cleanups to comply with NamingConventions::Capitalization.
authorElliot Shank <perl@galumph.com>
Tue, 14 Oct 2008 00:40:25 +0000 (00:40 +0000)
committerElliot Shank <perl@galumph.com>
Tue, 14 Oct 2008 00:40:25 +0000 (00:40 +0000)
Amazing what some of this turned up, e.g. leftover, unused variables
from prior to conversion to use Policy Parameters.

lib/Perl/Critic/Exception/AggregateConfiguration.pm
lib/Perl/Critic/Policy/CodeLayout/ProhibitHardTabs.pm
lib/Perl/Critic/Policy/ControlStructures/ProhibitPostfixControls.pm
lib/Perl/Critic/Policy/Documentation/RequirePodSections.pm
lib/Perl/Critic/Policy/Modules/ProhibitAutomaticExportation.pm
lib/Perl/Critic/PolicyFactory.pm
lib/Perl/Critic/Utils.pm

index dd1a1d8..ace846d 100644 (file)
@@ -100,9 +100,9 @@ sub has_exceptions {
 
 #-----------------------------------------------------------------------------
 
-my $MESSAGE_PREFIX = $EMPTY;
-my $MESSAGE_SUFFIX = "\n";
-my $MESSAGE_SEPARATOR = $MESSAGE_SUFFIX . $MESSAGE_PREFIX;
+Readonly::Scalar my $MESSAGE_PREFIX => $EMPTY;
+Readonly::Scalar my $MESSAGE_SUFFIX => "\n";
+Readonly::Scalar my $MESSAGE_SEPARATOR => $MESSAGE_SUFFIX . $MESSAGE_PREFIX;
 
 sub full_message {
     my ( $self ) = @_;
index 4224c17..b82a177 100644 (file)
@@ -22,15 +22,13 @@ our $VERSION = '1.093_01';
 Readonly::Scalar my $DESC => q{Hard tabs used};
 Readonly::Scalar my $EXPL => [ 20 ];
 
-my $DEFAULT_ALLOW_LEADING_TABS = $TRUE;
-
 #-----------------------------------------------------------------------------
 
 # The following regex should probably be "qr{^ .* [^\t]+ \t}xms" but it doesn't
 # match when I expect it to.  I haven't figured out why, so I used "\S" to
 # approximately mean "not a tab", and that seemd to work.
 
-my $NON_LEADING_TAB_REGEX = qr{^ .* \S+ \t }xms;
+Readonly::Scalar my $NON_LEADING_TAB_REGEX => qr{^ .* \S+ \t }xms;
 
 #-----------------------------------------------------------------------------
 
index 906d5d9..51aede6 100644 (file)
@@ -28,9 +28,6 @@ Readonly::Hash my %PAGES_OF => (
     while   => [ 96     ],
 );
 
-# These functions can have postfix 'if'.
-my @DEFAULT_FLOW_CONTROL = qw( warn die carp croak cluck confess goto exit );
-
 #-----------------------------------------------------------------------------
 
 sub supported_parameters {
index 44e5cda..eef6973 100644 (file)
@@ -28,7 +28,7 @@ Readonly::Scalar my $M_S_PBP_0_0_3       => 'module_starter_pbp_0_0_3';
 
 Readonly::Scalar my $DEFAULT_SOURCE      => $BOOK_FIRST_EDITION;
 
-my %SOURCE_TRANSLATION  = (
+Readonly::Hash   my %SOURCE_TRANSLATION  => (
     $BOOK               => $BOOK_FIRST_EDITION,
     $BOOK_FIRST_EDITION => $BOOK_FIRST_EDITION,
     $MODULE_STARTER_PBP => $M_S_PBP_0_0_3,
index 77c53c7..0de4aa5 100644 (file)
@@ -57,13 +57,13 @@ sub _uses_exporter {
 
 sub _has_exports {
     my ($doc) = @_;
-    my $wanted = sub {_our_EXPORT(@_) || _vars_EXPORT(@_) || _package_EXPORT(@_)};
+    my $wanted = sub {_our_export(@_) || _vars_export(@_) || _package_export(@_)};
     return $doc->find_first( $wanted );
 }
 
 #------------------
 
-sub _our_EXPORT {
+sub _our_export {
     my (undef, $elem) = @_;
     $elem->isa('PPI::Statement::Variable') || return 0;
     $elem->type() eq 'our' || return 0;
@@ -72,7 +72,7 @@ sub _our_EXPORT {
 
 #------------------
 
-sub _vars_EXPORT {
+sub _vars_export {
     my (undef, $elem) = @_;
     $elem->isa('PPI::Statement::Include') || return 0;
     $elem->pragma() eq 'vars' || return 0;
@@ -81,7 +81,7 @@ sub _vars_EXPORT {
 
 #------------------
 
-sub _package_EXPORT {
+sub _package_export {
     my (undef, $elem) = @_;
     $elem->isa('PPI::Token::Symbol') || return 0;
     return $elem =~ m{ \A \@ \S+ ::EXPORT \z }xms;
index 5bfecdf..482c04d 100644 (file)
@@ -40,7 +40,7 @@ our $VERSION = '1.093_01';
 #-----------------------------------------------------------------------------
 
 # Globals.  Ick!
-my @SITE_POLICY_NAMES = ();
+my @site_policy_names = ();
 
 #-----------------------------------------------------------------------------
 
@@ -52,12 +52,12 @@ sub import {
     my $test_mode = $args{-test};
     my $extra_test_policies = $args{'-extra-test-policies'};
 
-    if ( not @SITE_POLICY_NAMES ) {
+    if ( not @site_policy_names ) {
         my $eval_worked = eval {
             require Module::Pluggable;
             Module::Pluggable->import(search_path => $POLICY_NAMESPACE,
                                       require => 1, inner => 0);
-            @SITE_POLICY_NAMES = plugins(); #Exported by Module::Pluggable
+            @site_policy_names = plugins(); #Exported by Module::Pluggable
             1;
         };
 
@@ -71,7 +71,7 @@ sub import {
                 qq<Can't load Policies from namespace "$POLICY_NAMESPACE" for an unknown reason.>;
         }
 
-        if ( not @SITE_POLICY_NAMES ) {
+        if ( not @site_policy_names ) {
             throw_generic
                 qq<No Policies found in namespace "$POLICY_NAMESPACE".>;
         }
@@ -79,13 +79,13 @@ sub import {
 
     # In test mode, only load native policies, not third-party ones
     if ( $test_mode && any {m/\b blib \b/xms} @INC ) {
-        @SITE_POLICY_NAMES = _modules_from_blib( @SITE_POLICY_NAMES );
+        @site_policy_names = _modules_from_blib( @site_policy_names );
 
         if ($extra_test_policies) {
             my @extra_policy_full_names =
                 map { "${POLICY_NAMESPACE}::$_" } @{$extra_test_policies};
 
-            push @SITE_POLICY_NAMES, @extra_policy_full_names;
+            push @site_policy_names, @extra_policy_full_names;
         }
     }
 
@@ -229,7 +229,7 @@ sub create_all_policies {
 #-----------------------------------------------------------------------------
 
 sub site_policy_names {
-    return sort @SITE_POLICY_NAMES;
+    return sort @site_policy_names;
 }
 
 #-----------------------------------------------------------------------------
index 2565c38..4b984a0 100644 (file)
@@ -765,7 +765,7 @@ sub is_script {
 
 #-----------------------------------------------------------------------------
 
-sub _is_PL_file {
+sub _is_PL_file {  ## no critic (NamingConventions::Capitalization)
     my ($doc) = @_;
     return if not $doc->can('filename');
     my $filename = $doc->filename() || return;
@@ -980,8 +980,8 @@ sub _normalize_severity {
 
 #-----------------------------------------------------------------------------
 
-Readonly::Array my @skip_dir => qw( CVS RCS .svn _darcs {arch} .bzr _build blib );
-Readonly::Hash my %skip_dir => hashify( @skip_dir );
+Readonly::Array my @SKIP_DIR => qw( CVS RCS .svn _darcs {arch} .bzr .cdv .git .hg .pc _build blib );
+Readonly::Hash my %SKIP_DIR => hashify( @SKIP_DIR );
 
 sub all_perl_files {
 
@@ -1000,7 +1000,7 @@ sub all_perl_files {
             closedir $dh;
 
             @newfiles = File::Spec->no_upwards(@newfiles);
-            @newfiles = grep { !$skip_dir{$_} } @newfiles;
+            @newfiles = grep { not $SKIP_DIR{$_} } @newfiles;
             push @queue, map { File::Spec->catfile($file, $_) } @newfiles;
         }