/usr/share/perl5/Perl/Critic/Exception.pm is in libperl-critic-perl 1.122-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | package Perl::Critic::Exception;
use 5.006001;
use strict;
use warnings;
our $VERSION = '1.122';
#-----------------------------------------------------------------------------
use Exception::Class (
'Perl::Critic::Exception' => {
isa => 'Exception::Class::Base',
description => 'A problem discovered by Perl::Critic.',
},
);
use Exporter 'import';
#-----------------------------------------------------------------------------
sub short_class_name {
my ( $self ) = @_;
return substr ref $self, (length 'Perl::Critic') + 2;
}
#-----------------------------------------------------------------------------
1;
__END__
#-----------------------------------------------------------------------------
=pod
=for stopwords
=head1 NAME
Perl::Critic::Exception - A problem identified by L<Perl::Critic|Perl::Critic>.
=head1 DESCRIPTION
A base class for all problems discovered by
L<Perl::Critic|Perl::Critic>. This exists to enable differentiating
exceptions from L<Perl::Critic|Perl::Critic> code from those
originating in other modules.
This is an abstract class. It should never be instantiated.
=head1 INTERFACE SUPPORT
This is considered to be a public class. Any changes to its interface
will go through a deprecation cycle.
=head1 METHODS
=over
=item C<short_class_name()>
Retrieve the name of the class of this object with C<'Perl::Critic::'>
stripped off.
=back
=head1 AUTHOR
Elliot Shank <perl@galumph.com>
=head1 COPYRIGHT
Copyright (c) 2007-2011 Elliot Shank.
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 shiftround :
|