File Coverage

blib/lib/Perl/Critic/Exception/Fatal/Generic.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::Generic;
2              
3 40     40   874 use 5.010001;
  40         449  
4 40     40   288 use strict;
  40         92  
  40         927  
5 40     40   215 use warnings;
  40         181  
  40         1115  
6              
7 40     40   288 use Readonly;
  40         88  
  40         3640  
8              
9             our $VERSION = '1.148';
10              
11             #-----------------------------------------------------------------------------
12              
13             use Exception::Class (
14 40         399 'Perl::Critic::Exception::Fatal::Generic' => {
15             isa => 'Perl::Critic::Exception::Fatal',
16             description => 'A general problem was found.',
17             alias => 'throw_generic',
18             },
19 40     40   13989 );
  40         237388  
20              
21             #-----------------------------------------------------------------------------
22              
23             Readonly::Array our @EXPORT_OK => qw< throw_generic >;
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::Generic - A problem for which there is no specialized information.
41              
42             =head1 DESCRIPTION
43              
44             A general problem, e.g. I/O errors and problems that may or not be bugs.
45              
46              
47             =head1 INTERFACE SUPPORT
48              
49             This is considered to be a public class. Any changes to its interface
50             will go through a deprecation cycle.
51              
52              
53             =head1 METHODS
54              
55             Only inherited ones.
56              
57              
58             =head1 AUTHOR
59              
60             Elliot Shank <perl@galumph.com>
61              
62             =head1 COPYRIGHT
63              
64             Copyright (c) 2007-2011 Elliot Shank.
65              
66             This program is free software; you can redistribute it and/or modify
67             it under the same terms as Perl itself. The full text of this license
68             can be found in the LICENSE file included with this module.
69              
70             =cut
71              
72             # Local Variables:
73             # mode: cperl
74             # cperl-indent-level: 4
75             # fill-column: 78
76             # indent-tabs-mode: nil
77             # c-indentation-style: bsd
78             # End:
79             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :