1 ##############################################################################
2 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/lib/Perl/Critic/Exception.pm $
3 # $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
6 ##############################################################################
8 package Perl::Critic::Exception;
14 our $VERSION = '1.088';
16 #-----------------------------------------------------------------------------
18 use Exception::Class (
19 'Perl::Critic::Exception' => {
20 isa => 'Exception::Class::Base',
21 description => 'A problem discovered by Perl::Critic.',
27 #-----------------------------------------------------------------------------
29 sub short_class_name {
32 return substr ref $self, (length 'Perl::Critic') + 2;
35 #-----------------------------------------------------------------------------
42 #-----------------------------------------------------------------------------
50 Perl::Critic::Exception - A problem identified by L<Perl::Critic>.
54 A base class for all problems discovered by L<Perl::Critic>. This
55 exists to enable differentiating exceptions from L<Perl::Critic> code
56 from those originating in other modules.
58 This is an abstract class. It should never be instantiated.
65 =item C<short_class_name()>
67 Retrieve the name of the class of this object with C<'Perl::Critic::'>
76 Elliot Shank <perl@galumph.com>
80 Copyright (c) 2007-2008 Elliot Shank. All rights reserved.
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.
90 # cperl-indent-level: 4
92 # indent-tabs-mode: nil
93 # c-indentation-style: bsd
95 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :