/usr/share/perl5/Mason/Exceptions.pm is in libmason-perl 2.21-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 | package Mason::Exceptions;
{
$Mason::Exceptions::VERSION = '2.21';
}
use strict;
use warnings;
use Exception::Class (
'Mason::Exception' => { description => 'generic base class for all Mason exceptions', },
'Mason::Exception::Abort' => {
isa => 'Mason::Exception',
fields => [qw(aborted_value)],
description => 'a component called $m->abort'
},
'Mason::Exception::TopLevelNotFound' => {
isa => 'Mason::Exception',
description => 'the top level component could not be found'
},
);
1;
__END__
=pod
=head1 NAME
Mason::Exceptions - Exception objects thrown by Mason
=head1 DESCRIPTION
This module creates the exception classes used by Mason. Mason only throws
exception objects to communicate something specific to code catching the
exception; otherwise it is content to die with a string.
=head1 EXCEPTIONS
=over
=item Mason::Exception::Abort
The C<< $m->abort >> method was called.
Exceptions in this class contain the field C<aborted_value>.
=item Mason::Exception::TopLevelNotFound
The requested top level component passed to exec() could not be found. In a web
environment, this could be used to determine that a 404 should be returned.
=back
=head1 SEE ALSO
L<Mason|Mason>
=head1 AUTHOR
Jonathan Swartz <swartz@pobox.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|