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   804 use 5.010001;
  40         309  
4 40     40   309 use strict;
  40         102  
  40         954  
5 40     40   222 use warnings;
  40         212  
  40         1433  
6              
7 40     40   263 use Readonly;
  40         295  
  40         3514  
8              
9             our $VERSION = '1.150';
10              
11             #-----------------------------------------------------------------------------
12              
13             use Exception::Class (
14 40         541 '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   14350 );
  40         237725  
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 :