1package ViolationTest; 2 3use 5.006001; 4use strict; 5use warnings; 6 7use PPI::Document; 8use Perl::Critic::Violation; 9use 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 15This is a test diagnostic. 16 17=cut 18 19sub 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 261; 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 : 36