Login
Fixed more self-compliance
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 26 Oct 2008 11:07:10 +0000 (11:07 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 26 Oct 2008 11:07:10 +0000 (11:07 +0000)
lib/Perl/Critic/Policy.pm

index f3d488b..0f8b9d0 100644 (file)
@@ -472,22 +472,22 @@ sub to_string {
 }
 
 sub _format_parameters {
 }
 
 sub _format_parameters {
-    my ($self, $format) = @_;
+    my ($self, $parameter_format) = @_;
 
     return $EMPTY if not $self->parameter_metadata_available();
 
     my $separator;
 
     return $EMPTY if not $self->parameter_metadata_available();
 
     my $separator;
-    if ($format) {
+    if ($parameter_format) {
         $separator = $EMPTY;
     } else {
         $separator = $SPACE;
         $separator = $EMPTY;
     } else {
         $separator = $SPACE;
-        $format = '%n';
+        $parameter_format = '%n';
     }
 
     return
         join
             $separator,
     }
 
     return
         join
             $separator,
-            map { $_->to_formatted_string($format) } @{ $self->get_parameters() };
+            map { $_->to_formatted_string($parameter_format) } @{ $self->get_parameters() };
 }
 
 sub _format_lack_of_parameter_metadata {
 }
 
 sub _format_lack_of_parameter_metadata {