Login
Fix PBP page numbers in ProhibitMixedCaseVars and
authorElliot Shank <perl@galumph.com>
Sat, 23 Aug 2008 01:19:41 +0000 (01:19 +0000)
committerElliot Shank <perl@galumph.com>
Sat, 23 Aug 2008 01:19:41 +0000 (01:19 +0000)
ProhibitMixedCaseVars.

lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseSubs.pm
lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseVars.pm

index edee9fe..1563de6 100644 (file)
@@ -24,7 +24,7 @@ Readonly::Scalar my $UPPER_LOWER    => qr/ [[:upper:]] [[:lower:]] /xms;
 Readonly::Scalar my $LOWER_UPPER    => qr/ [[:lower:]] [[:upper:]] /xms;
 Readonly::Scalar my $MIXED_RX       => qr{ $UPPER_LOWER | $LOWER_UPPER }xmso;
 Readonly::Scalar my $DESC     => 'Mixed-case subroutine name';
-Readonly::Scalar my $EXPL     => [ 44 ];
+Readonly::Scalar my $EXPL     => [ 45, 46 ];
 
 #-----------------------------------------------------------------------------
 
index 01699f0..17adacc 100644 (file)
@@ -26,7 +26,7 @@ Readonly::Scalar my $UPPER_LOWER    => qr/ [[:upper:]] [[:lower:]] /xms;
 Readonly::Scalar my $LOWER_UPPER    => qr/ [[:lower:]] [[:upper:]] /xms;
 Readonly::Scalar my $MIXED_RX       => qr{ $UPPER_LOWER | $LOWER_UPPER }xmso;
 Readonly::Scalar my $DESC       => 'Mixed-case variable name(s)';
-Readonly::Scalar my $EXPL       => [ 44 ];
+Readonly::Scalar my $EXPL       => [ 45, 46 ];
 
 #-----------------------------------------------------------------------------