File Coverage

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


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