#-----------------------------------------------------------------------------
-Readonly::Scalar my $DESC => q{@ISA used instead of "use base"}; ##no critic; #for @ in string
+Readonly::Scalar my $DESC => q{@ISA used instead of "use base"}; ## no critic (RequireInterpolation)
Readonly::Scalar my $EXPL => [ 360 ];
#-----------------------------------------------------------------------------
sub violates {
my ($self, $elem, undef) = @_;
- if( $elem eq q{@ISA} ) { ##no critic; #for @ in string
+ if( $elem eq q{@ISA} ) { ## no critic (RequireInterpolation)
return $self->violation( $DESC, $EXPL, $elem );
}
return; #ok!