############################################################################## # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/lib/Perl/Critic/Exception/Fatal/Internal.pm $ # $Date: 2007-12-16 13:14:12 -0600 (Sun, 16 Dec 2007) $ # $Author: clonezone $ # $Revision: 2047 $ ############################################################################## package Perl::Critic::Exception::Fatal::Internal; use strict; use warnings; use Readonly; our $VERSION = '1.081_002'; #----------------------------------------------------------------------------- use Exception::Class ( 'Perl::Critic::Exception::Fatal::Internal' => { isa => 'Perl::Critic::Exception::Fatal', description => 'A problem with the Perl::Critic code was found, a.k.a. a bug.', alias => 'throw_internal', }, ); #----------------------------------------------------------------------------- Readonly::Array our @EXPORT_OK => qw< throw_internal >; #----------------------------------------------------------------------------- 1; __END__ #----------------------------------------------------------------------------- =pod =for stopwords =head1 NAME Perl::Critic::Exception::Fatal::Internal - A problem with the L<Perl::Critic> implementation, i.e. a bug =head1 DESCRIPTION A representation of a bug found in the code of L<Perl::Critic>. =head1 METHODS Only inherited ones. =head1 AUTHOR Elliot Shank <perl@galumph.com> =head1 COPYRIGHT Copyright (c) 2007 Elliot Shank. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license can be found in the LICENSE file included with this module. =cut # Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 78 # indent-tabs-mode: nil # c-indentation-style: bsd # End: # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab :