git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/tlib/ViolationTest.pm

   1 package ViolationTest;
   2
   3 use 5.006001;
   4 use strict;
   5 use warnings;
   6
   7 use PPI::Document;
   8 use Perl::Critic::Violation;
   9 use Perl::Critic::Violation;  # this is duplicated for test coverage of repeated calls to import()
  10
  11 # This file exists solely to test Perl::Critic::Violation::import()
  12
  13 =head1 DESCRIPTION
  14
  15 This is a test diagnostic.
  16
  17 =cut
  18
  19 sub get_violation {
  20
  21     my $code = 'Hello World;';
  22     my $doc = PPI::Document->new(\$code);
  23     return Perl::Critic::Violation->new('', '', $doc, 0);
  24 }
  25
  26 1;
  27
  28 # Local Variables:
  29 #   mode: cperl
  30 #   cperl-indent-level: 4
  31 #   fill-column: 78
  32 #   indent-tabs-mode: nil
  33 #   c-indentation-style: bsd
  34 # End:
  35 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :