/usr/share/perl5/Test/Unit/Error.pm is in libtest-unit-perl 0.25-3.
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 | package Test::Unit::Error;
use strict;
use base qw(Test::Unit::Exception);
# This is a hack to effectively rebless an unknown user exception as a
# Test::Unit::Error, which is nice because all Test::Unit::Exceptions
# have nice stringify() methods.
sub make_new_from_error {
my $self = shift;
my $ex = shift;
my $object = shift;
$self->new(%$ex, -object => $object);
}
1;
__END__
=head1 NAME
Test::Unit::Error - unit testing framework exception class
=head1 SYNOPSIS
This class is not intended to be used directly
=head1 DESCRIPTION
This class is used by the framework to communicate the occurrence of
run-time errors (that is, syntax errors and the like, not failed
tests, as the latter are classified as failures) generated by user
code. When such an error occurs, an instance of this class will be
thrown and caught internally in the framework.
=head1 AUTHOR
Copyright (c) 2000-2002, 2005 the PerlUnit Development Team
(see L<Test::Unit> or the F<AUTHORS> file included in this
distribution).
All rights reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.
=head1 SEE ALSO
=over 4
=item *
L<Test::Unit::Exception>
=item *
L<Test::Unit::Assert>
=back
=cut
|