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   733 use 5.010001;
  40         178  
4 40     40   278 use strict;
  40         1469  
  40         985  
5 40     40   206 use warnings;
  40         102  
  40         1099  
6              
7 40     40   1454 use Carp qw{ confess };
  40         101  
  40         1929  
8 40     40   257 use English qw(-no_match_vars);
  40         93  
  40         258  
9 40     40   14092 use Readonly;
  40         100  
  40         2018  
10              
11 40     40   872 use Perl::Critic::Utils qw{ :characters };
  40         101  
  40         1943  
12              
13             our $VERSION = '1.146';
14              
15             #-----------------------------------------------------------------------------
16              
17             use Exception::Class (
18 40         494 '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   11245 );
  40         115  
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 :