Login
RT #75397: ProhibitBuiltinHomonyms should include the sub name in the
authorTom Wyant <harryfmudd@comcast.net>
Thu, 1 Mar 2012 00:12:49 +0000 (00:12 +0000)
committerTom Wyant <harryfmudd@comcast.net>
Thu, 1 Mar 2012 00:12:49 +0000 (00:12 +0000)
error message

I took a swing at this. Just a matter of adding $elem->name() on the end
of the message.

lib/Perl/Critic/Policy/Subroutines/ProhibitBuiltinHomonyms.pm

index 185dc26..432754e 100644 (file)
@@ -23,7 +23,7 @@ our $VERSION = '1.117';
 
 Readonly::Array my @ALLOW => qw( import AUTOLOAD DESTROY );
 Readonly::Hash my %ALLOW => hashify( @ALLOW );
-Readonly::Scalar my $DESC  => q{Subroutine name is a homonym for builtin %s};
+Readonly::Scalar my $DESC  => q{Subroutine name is a homonym for builtin %s %s};
 Readonly::Scalar my $EXPL  => [177];
 
 #-----------------------------------------------------------------------------
@@ -51,7 +51,7 @@ sub violates {
         return;    #ok!
     }
 
-    my $desc = sprintf $DESC, $homonym_type;
+    my $desc = sprintf $DESC, $homonym_type, $elem->name();
     return $self->violation($desc, $EXPL, $elem);
 }