Login
Change Modules::ProhibitEvilModules to include the bad module name in
authorElliot Shank <perl@galumph.com>
Sun, 14 Sep 2008 05:25:59 +0000 (05:25 +0000)
committerElliot Shank <perl@galumph.com>
Sun, 14 Sep 2008 05:25:59 +0000 (05:25 +0000)
the violation description.

lib/Perl/Critic/Policy/Modules/ProhibitEvilModules.pm

index 968bca2..4ed7d6d 100644 (file)
@@ -27,7 +27,6 @@ our $VERSION = '1.093_01';
 #-----------------------------------------------------------------------------
 
 Readonly::Scalar my $EXPL => q{Find an alternative module};
-Readonly::Scalar my $DESC => q{Prohibited module used};
 
 #-----------------------------------------------------------------------------
 
@@ -93,9 +92,10 @@ sub violates {
     return if !$module;
 
     if ( exists $self->{_evil_modules}->{ $module } ||
-         any { $module =~ $_ } @{ $self->{_evil_modules_rx} } ) {
+        any { $module =~ $_ } @{ $self->{_evil_modules_rx} } ) {
 
-        return $self->violation( $DESC, $EXPL, $elem );
+        my $description = qq<Prohibited module "$module" used>;
+        return $self->violation( $description, $EXPL, $elem );
     }
     return;    #ok!
 }