File Coverage

blib/lib/Perl/Critic/Exception/Parse.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Perl::Critic::Exception::Parse;
2              
3 40     40   754 use 5.010001;
  40         192  
4 40     40   267 use strict;
  40         131  
  40         856  
5 40     40   266 use warnings;
  40         143  
  40         1114  
6              
7 40     40   260 use Readonly;
  40         164  
  40         2124  
8              
9 40     40   958 use Perl::Critic::Utils qw< :characters >;
  40         139  
  40         2169  
10              
11             our $VERSION = '1.150';
12              
13             #-----------------------------------------------------------------------------
14              
15             use Exception::Class (
16 40         486 'Perl::Critic::Exception::Parse' => {
17             isa => 'Perl::Critic::Exception',
18             description => 'A problem parsing source code.',
19             fields => [ qw< file_name > ],
20             alias => 'throw_parse',
21             },
22 40     40   11120 );
  40         134  
23              
24             #-----------------------------------------------------------------------------
25              
26             Readonly::Array our @EXPORT_OK => qw< throw_parse >;
27              
28             #-----------------------------------------------------------------------------
29              
30             1;
31              
32             #-----------------------------------------------------------------------------
33              
34             __END__
35              
36             =pod
37              
38             =for stopwords
39              
40             =head1 NAME
41              
42             Perl::Critic::Exception::Parse - The code doesn't look like code.
43              
44             =head1 DESCRIPTION
45              
46             There was a problem with PPI parsing source code.
47              
48              
49             =head1 INTERFACE SUPPORT
50              
51             This is considered to be a public class. Any changes to its interface
52             will go through a deprecation cycle.
53              
54              
55             =head1 METHODS
56              
57             =over
58              
59             =item C<file_name()>
60              
61             Returns the name of the file that the problem was found with, if available.
62              
63              
64             =back
65              
66              
67             =head1 AUTHOR
68              
69             Elliot Shank <perl@galumph.com>
70              
71             =head1 COPYRIGHT
72              
73             Copyright (c) 2008-2023 Elliot Shank.
74              
75             This program is free software; you can redistribute it and/or modify
76             it under the same terms as Perl itself. The full text of this license
77             can be found in the LICENSE file included with this module.
78              
79             =cut
80              
81             ##############################################################################
82             # Local Variables:
83             # mode: cperl
84             # cperl-indent-level: 4
85             # fill-column: 78
86             # indent-tabs-mode: nil
87             # c-indentation-style: bsd
88             # End:
89             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :