—

              
package Perl::Critic::Policy::Test;
use 5.006001;
use strict;
use warnings;
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
sub default_severity { return $SEVERITY_LOWEST }
sub applies_to { return 'PPI::Token::Word' }
sub violates {
    my ( $self, $elem, undef ) = @_;
    return $self->violation( 'desc', 'expl', $elem );
}
1;
__END__
HideShow 6 lines of Pod
=head1 DESCRIPTION
diagnostic
=cut
# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :