vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/tlib/Perl/Critic/Policy/Test.pm

   1 package Perl::Critic::Policy::Test;
   2
   3 use 5.006001;
   4 use strict;
   5 use warnings;
   6
   7 use Perl::Critic::Utils qw{ :severities };
   8 use base 'Perl::Critic::Policy';
   9
  10 sub default_severity { return $SEVERITY_LOWEST }
  11 sub applies_to { return 'PPI::Token::Word' }
  12
  13 sub violates {
  14     my ( $self, $elem, undef ) = @_;
  15     return $self->violation( 'desc', 'expl', $elem );
  16 }
  17
  18 1;
  19 __END__
  20
  21 =head1 DESCRIPTION
  22
  23 diagnostic
  24
  25 =cut
  26
  27 # Local Variables:
  28 #   mode: cperl
  29 #   cperl-indent-level: 4
  30 #   fill-column: 78
  31 #   indent-tabs-mode: nil
  32 #   c-indentation-style: bsd
  33 # End:
  34 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :