File Coverage

blib/lib/Perl/Critic/Exception/Fatal/Internal.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Perl::Critic::Exception::Fatal::Internal;
2              
3 40     40   671 use 5.010001;
  40         142  
4 40     40   217 use strict;
  40         95  
  40         904  
5 40     40   288 use warnings;
  40         105  
  40         1069  
6              
7 40     40   226 use Readonly;
  40         105  
  40         3517  
8              
9             our $VERSION = '1.146';
10              
11             #-----------------------------------------------------------------------------
12              
13             use Exception::Class (
14 40         341 'Perl::Critic::Exception::Fatal::Internal' => {
15             isa => 'Perl::Critic::Exception::Fatal',
16             description => 'A problem with the Perl::Critic code was found, a.k.a. a bug.',
17             alias => 'throw_internal',
18             },
19 40     40   327 );
  40         115  
20              
21             #-----------------------------------------------------------------------------
22              
23             Readonly::Array our @EXPORT_OK => qw< throw_internal >;
24              
25             #-----------------------------------------------------------------------------
26              
27              
28             1;
29              
30             __END__
31              
32             #-----------------------------------------------------------------------------
33              
34             =pod
35              
36             =for stopwords
37              
38             =head1 NAME
39              
40             Perl::Critic::Exception::Fatal::Internal - A problem with the L<Perl::Critic|Perl::Critic> implementation, i.e. a bug.
41              
42             =head1 DESCRIPTION
43              
44             A representation of a bug found in the code of
45             L<Perl::Critic|Perl::Critic>.
46              
47              
48             =head1 INTERFACE SUPPORT
49              
50             This is considered to be a public class. Any changes to its interface
51             will go through a deprecation cycle.
52              
53              
54             =head1 METHODS
55              
56             Only inherited ones.
57              
58              
59             =head1 AUTHOR
60              
61             Elliot Shank <perl@galumph.com>
62              
63             =head1 COPYRIGHT
64              
65             Copyright (c) 2007-2011 Elliot Shank.
66              
67             This program is free software; you can redistribute it and/or modify
68             it under the same terms as Perl itself. The full text of this license
69             can be found in the LICENSE file included with this module.
70              
71             =cut
72              
73             # Local Variables:
74             # mode: cperl
75             # cperl-indent-level: 4
76             # fill-column: 78
77             # indent-tabs-mode: nil
78             # c-indentation-style: bsd
79             # End:
80             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :