1 ##############################################################################
2 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/lib/Perl/Critic/Exception/IO.pm $
3 # $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
6 ##############################################################################
8 package Perl::Critic::Exception::IO;
14 use Carp qw{ confess };
15 use English qw(-no_match_vars);
18 use Perl::Critic::Utils qw{ :characters };
20 our $VERSION = '1.088';
22 #-----------------------------------------------------------------------------
24 use Exception::Class (
25 'Perl::Critic::Exception::IO' => {
26 isa => 'Perl::Critic::Exception',
27 description => 'An input/output problem.',
28 fields => [ qw< file_name errno > ],
33 #-----------------------------------------------------------------------------
35 Readonly::Array our @EXPORT_OK => qw< throw_io >;
37 #-----------------------------------------------------------------------------
41 #-----------------------------------------------------------------------------
51 Perl::Critic::Exception::IO - A problem with input or output.
55 The outside world can do nasty things to your poor, innocent code.
64 Returns the name of the file that the problem was found with, if available.
69 The value of C<$ERRNO>/C<$!> at the time the problem was found.
77 Elliot Shank <perl@galumph.com>
81 Copyright (c) 2007-2008 Elliot Shank. All rights reserved.
83 This program is free software; you can redistribute it and/or modify
84 it under the same terms as Perl itself. The full text of this license
85 can be found in the LICENSE file included with this module.
89 ##############################################################################
92 # cperl-indent-level: 4
94 # indent-tabs-mode: nil
95 # c-indentation-style: bsd
97 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :