vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/tlib/ViolationTest2.pm

   1 package ViolationTest2;
   2
   3 use 5.006001;
   4 use strict;
   5 use warnings;
   6
   7 use PPI::Document;
   8 use Perl::Critic::Violation;
   9
  10 # This file exists solely to test Perl::Critic::Violation::import()
  11
  12 sub get_violation {
  13
  14     my $code = 'Hello World;';
  15     my $doc = PPI::Document->new(\$code);
  16     return Perl::Critic::Violation->new('', '', [0,0], 0);
  17 }
  18
  19 1;
  20
  21 # Local Variables:
  22 #   mode: cperl
  23 #   cperl-indent-level: 4
  24 #   fill-column: 78
  25 #   indent-tabs-mode: nil
  26 #   c-indentation-style: bsd
  27 # End:
  28 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :