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 27     27   457 use 5.006001;
  27         80  
4 27     27   127 use strict;
  27         48  
  27         637  
5 27     27   111 use warnings;
  27         40  
  27         881  
6              
7 27     27   110 use Carp qw{ confess };
  27         87  
  27         1423  
8 27     27   130 use English qw(-no_match_vars);
  27         75  
  27         184  
9 27     27   10600 use Readonly;
  27         46  
  27         1341  
10              
11 27     27   617 use Perl::ToPerl6::Utils qw{ :characters };
  27         45  
  27         1706  
12              
13             our $VERSION = '0.031';
14              
15             #-----------------------------------------------------------------------------
16              
17             use Exception::Class (
18 27         334 'Perl::ToPerl6::Exception::IO' => {
19             isa => 'Perl::ToPerl6::Exception',
20             description => 'An input/output problem.',
21             fields => [ qw< file_name errno > ],
22             alias => 'throw_io',
23             },
24 27     27   6705 );
  27         48  
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::ToPerl6::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 :