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