1 ##############################################################################
2 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/lib/Perl/Critic/Exception/Fatal.pm $
3 # $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
6 ##############################################################################
8 package Perl::Critic::Exception::Fatal;
14 our $VERSION = '1.088';
16 #-----------------------------------------------------------------------------
18 use Exception::Class (
19 'Perl::Critic::Exception::Fatal' => {
20 isa => 'Perl::Critic::Exception',
22 'A problem that should cause Perl::Critic to stop running.',
26 #-----------------------------------------------------------------------------
29 my ($class, @args) = @_;
30 my $self = $class->SUPER::new(@args);
37 #-----------------------------------------------------------------------------
43 $self->short_class_name()
45 . $self->description()
49 . gmtime $self->time()
58 #-----------------------------------------------------------------------------
66 Perl::Critic::Exception::Fatal - A problem that should cause L<Perl::Critic> to stop running.
70 Something went wrong and processing should not continue. You should
71 never specifically look for this exception or one of its subclasses.
73 Note: the constructor invokes L<Exception::Class/"show_trace"> to
74 force stack-traces to be included in the standard stringification.
76 This is an abstract class. It should never be instantiated.
83 =item C<full_message()>
85 Overrides L<Exception::Class/"full_message"> to include extra information.
93 Elliot Shank <perl@galumph.com>
97 Copyright (c) 2007-2008 Elliot Shank. All rights reserved.
99 This program is free software; you can redistribute it and/or modify
100 it under the same terms as Perl itself. The full text of this license
101 can be found in the LICENSE file included with this module.
107 # cperl-indent-level: 4
109 # indent-tabs-mode: nil
110 # c-indentation-style: bsd
112 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :