File Coverage

blib/lib/Perl/Critic/Exception/IO.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::IO;
2              
3 40     40   732 use 5.010001;
  40         170  
4 40     40   251 use strict;
  40         108  
  40         817  
5 40     40   202 use warnings;
  40         98  
  40         1099  
6              
7 40     40   215 use Carp qw{ confess };
  40         1232  
  40         1948  
8 40     40   262 use English qw(-no_match_vars);
  40         96  
  40         280  
9 40     40   13953 use Readonly;
  40         129  
  40         2104  
10              
11 40     40   913 use Perl::Critic::Utils qw{ :characters };
  40         95  
  40         1962  
12              
13             our $VERSION = '1.148';
14              
15             #-----------------------------------------------------------------------------
16              
17             use Exception::Class (
18 40         660 'Perl::Critic::Exception::IO' => {
19             isa => 'Perl::Critic::Exception',
20             description => 'An input/output problem.',
21             fields => [ qw< file_name errno > ],
22             alias => 'throw_io',
23             },
24 40     40   11131 );
  40         100  
25              
26             #-----------------------------------------------------------------------------
27              
28             Readonly::Array our @EXPORT_OK => qw< throw_io >;
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::IO - A problem with input or output.
45              
46             =head1 DESCRIPTION
47              
48             The outside world can do nasty things to your poor, innocent 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             =item C<errno()>
67              
68             The value of C<$ERRNO>/C<$!> at the time the problem was found.
69              
70              
71             =back
72              
73              
74             =head1 AUTHOR
75              
76             Elliot Shank <perl@galumph.com>
77              
78             =head1 COPYRIGHT
79              
80             Copyright (c) 2007-2011 Elliot Shank.
81              
82             This program is free software; you can redistribute it and/or modify
83             it under the same terms as Perl itself. The full text of this license
84             can be found in the LICENSE file included with this module.
85              
86             =cut
87              
88             ##############################################################################
89             # Local Variables:
90             # mode: cperl
91             # cperl-indent-level: 4
92             # fill-column: 78
93             # indent-tabs-mode: nil
94             # c-indentation-style: bsd
95             # End:
96             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :