Login
Change name of option in ProhibitInterpolationOfLiterals to
authorElliot Shank <perl@galumph.com>
Mon, 14 Jul 2008 01:25:17 +0000 (01:25 +0000)
committerElliot Shank <perl@galumph.com>
Mon, 14 Jul 2008 01:25:17 +0000 (01:25 +0000)
"allow_if_string_contains_single_quote".

Changes
lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitInterpolationOfLiterals.pm
t/ValuesAndExpressions/ProhibitInterpolationOfLiterals.run

diff --git a/Changes b/Changes
index d2fdad8..a6077ac 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,8 +5,8 @@
 
     Policy Changes:
     * ValuesAndExpressions::ProhibitInterpolationOfLiterals now takes a
-      allow_double_quote_if_string_contains_single_quote option.  Contributed
-      by Ed Avis <ed@membled.com>.  RT #36125.
+      allow_if_string_contains_single_quote option.  Contributed by Ed Avis
+      <ed@membled.com>.  RT #36125.
 
     Bug fixes:
     * BuiltinFunctions::ProhibitSleepViaSelect would complain if there were
index e050e7b..8def8aa 100644 (file)
@@ -36,7 +36,7 @@ sub supported_parameters {
             parser             => \&_parse_allow,
         },
         {
-            name               => 'allow_double_quote_if_string_contains_single_quote',
+            name               => 'allow_if_string_contains_single_quote',
             description        =>
                 q<If the string contains ' characters, allow "" to quote it.>,
             default_string     => '0',
@@ -87,7 +87,7 @@ sub violates {
     return if any { $elem =~ m{ \A \Q$_\E }mx } @{ $self->{_allow} };
 
     # If the flag is set, allow "I'm here".
-    if ( $self->{_allow_double_quote_if_string_contains_single_quote} ) {
+    if ( $self->{_allow_if_string_contains_single_quote} ) {
         return if index ($elem, $QUOTE) >= 0;
     }
 
@@ -164,7 +164,7 @@ this, put the following in your F<.perlcriticrc> file:
     [ValuesAndExpressions::ProhibitInterpolationOfLiterals]
     allow = qq{} qq[]
 
-The flag C<allow_double_quote_if_string_contains_single_quote> permits
+The flag C<allow_if_string_contains_single_quote> permits
 double-quoted strings if the string contains a single quote (')
 character.  It defaults to off; to turn it on put the following in
 your F<.perlcriticrc> file:
index 9f5ceba..7e080f1 100644 (file)
@@ -66,7 +66,7 @@ $sql = qq/select foo from bar/;
 
 #-----------------------------------------------------------------------------
 
-## name Allow double-quote if string contains single quote
+## name Disallow interpolationi f string contains single quote
 ## failures 2
 ## cut
 
@@ -75,9 +75,9 @@ $sql = "\'";
 
 #-----------------------------------------------------------------------------
 
-## name Configuration allowing double-quote for all single quote containing strings
+## name Allow interpolation if string contains single quote, with option on.
 ## failures 0
-## parms { allow_double_quote_if_string_contains_single_quote => 1 }
+## parms { allow_if_string_contains_single_quote => 1 }
 ## cut
 
 $sql = "it's me";