Login
Incorporating some of Chris' suggestions.
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 26 Oct 2008 18:50:37 +0000 (18:50 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 26 Oct 2008 18:50:37 +0000 (18:50 +0000)
lib/Perl/Critic.pm
lib/Perl/Critic/Document.pm

index 971e06c..fab273f 100644 (file)
@@ -207,7 +207,7 @@ sub _critique {
           VIOLATION:
             for my $violation ( $policy->violates( $element, $doc ) ) {
                 my $line = $violation->location()->[0];
-                next VIOLATION if $doc->line_is_disabled($line, $policy_name)
+                next VIOLATION if $doc->is_line_disabled($line, $policy_name)
                     and not exists $policies_that_cannot_be_disabled{$policy_name};
 
                 push @violations, $violation;
index 81ff126..4b41b3a 100644 (file)
@@ -174,7 +174,7 @@ sub mark_disabled_lines {
 
 #-----------------------------------------------------------------------------
 
-sub line_is_disabled {
+sub is_line_disabled {
     my ($self, $line, $policy_name) = @_;
     return 0 if not exists $self->{_disabled_lines}->{$line};
     return 1 if $self->{_disabled_lines}->{$line}->{$policy_name};