File Coverage

blib/lib/Perl/ToPerl6/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::ToPerl6::Exception::IO;
2              
3 1     1   16 use 5.006001;
  1         3  
4 1     1   5 use strict;
  1         2  
  1         60  
5 1     1   7 use warnings;
  1         2  
  1         42  
6              
7 1     1   7 use Carp qw{ confess };
  1         3  
  1         60  
8 1     1   5 use English qw(-no_match_vars);
  1         2  
  1         10  
9 1     1   457 use Readonly;
  1         4  
  1         42  
10              
11 1     1   7 use Perl::ToPerl6::Utils qw{ :characters };
  1         2  
  1         63  
12              
13             #-----------------------------------------------------------------------------
14              
15             use Exception::Class (
16 1         13 'Perl::ToPerl6::Exception::IO' => {
17             isa => 'Perl::ToPerl6::Exception',
18             description => 'An input/output problem.',
19             fields => [ qw< file_name errno > ],
20             alias => 'throw_io',
21             },
22 1     1   237 );
  1         2  
23              
24             #-----------------------------------------------------------------------------
25              
26             Readonly::Array our @EXPORT_OK => qw< throw_io >;
27              
28             #-----------------------------------------------------------------------------
29              
30             1;
31              
32             #-----------------------------------------------------------------------------
33              
34             __END__
35              
36             =pod
37              
38             =for stopwords
39              
40             =head1 NAME
41              
42             Perl::ToPerl6::Exception::IO - A problem with input or output.
43              
44             =head1 DESCRIPTION
45              
46             The outside world can do nasty things to your poor, innocent code.
47              
48              
49             =head1 INTERFACE SUPPORT
50              
51             This is considered to be a public class. Any changes to its interface
52             will go through a deprecation cycle.
53              
54              
55             =head1 METHODS
56              
57             =over
58              
59             =item C<file_name()>
60              
61             Returns the name of the file that the problem was found with, if available.
62              
63              
64             =item C<errno()>
65              
66             The value of C<$ERRNO>/C<$!> at the time the problem was found.
67              
68              
69             =back
70              
71              
72             =head1 AUTHOR
73              
74             Elliot Shank <perl@galumph.com>
75              
76             =head1 COPYRIGHT
77              
78             Copyright (c) 2007-2011 Elliot Shank.
79              
80             This program is free software; you can redistribute it and/or modify
81             it under the same terms as Perl itself. The full text of this license
82             can be found in the LICENSE file included with this module.
83              
84             =cut
85              
86             ##############################################################################
87             # Local Variables:
88             # mode: cperl
89             # cperl-indent-level: 4
90             # fill-column: 78
91             # indent-tabs-mode: nil
92             # c-indentation-style: bsd
93             # End:
94             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :