Login
Reverse some "ne" to "eq" to make them less convoluted. Also now ignoring some unuse...
authorAndy Lester <andy@petdance.com>
Mon, 17 Jul 2006 21:16:16 +0000 (21:16 +0000)
committerAndy Lester <andy@petdance.com>
Mon, 17 Jul 2006 21:16:16 +0000 (21:16 +0000)
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitLvalueSubstr.pm
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitSleepViaSelect.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

index 1b46725..7e7b558 100644 (file)
@@ -29,7 +29,8 @@ sub applies_to { return 'PPI::Token::Word' }
 
 sub violates {
     my ($self, $elem, $doc) = @_;
-    return if $elem ne 'substr';
+
+    return unless $elem eq 'substr';
     return if is_method_call($elem);
     return if is_hash_key($elem);
     return if is_subroutine_name($elem);
index 746a557..3876118 100644 (file)
@@ -29,7 +29,8 @@ sub applies_to { return 'PPI::Token::Word' }
 
 sub violates {
     my ($self, $elem, $doc) = @_;
-    return if $elem ne 'select';
+
+    return unless $elem eq 'select';
     return if is_method_call($elem);
     return if is_hash_key($elem);
     return if is_subroutine_name($elem);
index da3022f..5dcd6aa 100644 (file)
@@ -47,7 +47,8 @@ sub new {
 sub violates {
 
     my ( $self, $elem, $doc ) = @_;
-    return if $elem->type() ne 'no' || $elem->pragma() ne 'strict';
+
+    return unless ($elem->type() eq 'no' && $elem->pragma() eq 'strict');
 
     #Arguments to 'no strict' are usually a list of literals or a qw()
     #list.  Rather than trying to parse the various PPI elements, I
index 029ad54..51064ca 100644 (file)
@@ -47,7 +47,8 @@ sub new {
 sub violates {
 
     my ( $self, $elem, $doc ) = @_;
-    return if $elem->type() ne 'no' || $elem->pragma() ne 'warnings';
+
+    return unless ($elem->type() eq 'no' && $elem->pragma() eq 'warnings');
 
     #Arguments to 'no warnings' are usually a list of literals or a
     #qw() list.  Rather than trying to parse the various PPI elements,
index 9135f01..81eb9f4 100644 (file)
@@ -54,15 +54,17 @@ sub violates {
 }
 
 sub _is_use_strict {
-    my ($doc, $elem) = @_;
-    return 0 if  ! $elem->isa('PPI::Statement::Include');
-    return 0 if  $elem->type() ne 'use';
-    return 0 if  $elem->pragma() ne 'strict';
-    return 1;
+    my (undef, $elem) = @_;
+
+    return
+        $elem->isa('PPI::Statement::Include') &&
+        ($elem->type() eq 'use') &&
+        ($elem->pragma() eq 'strict');
 }
 
 sub _isnt_include_or_package {
-    my ($doc, $elem) = @_;
+    my (undef, $elem) = @_;
+
     return 0 if ! $elem->isa('PPI::Statement');
     return 0 if $elem->isa('PPI::Statement::Package');
     return 0 if $elem->isa('PPI::Statement::Include');
index 8e2eccb..c1afdfc 100644 (file)
@@ -55,11 +55,12 @@ sub violates {
 }
 
 sub _is_use_warnings {
-    my ($doc, $elem) = @_;
-    return 0 if  ! $elem->isa('PPI::Statement::Include');
-    return 0 if  $elem->type() ne 'use';
-    return 0 if  $elem->pragma() ne 'warnings';
-    return 1;
+    my (undef, $elem) = @_;
+
+    return
+        $elem->isa('PPI::Statement::Include') &&
+        ($elem->type() eq 'use') &&
+        ($elem->pragma() eq 'warnings');
 }
 
 sub _isnt_include_or_package {