/usr/share/perl5/Test/Unit/Warning.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 | package Test::Unit::Warning;
use strict;
use base 'Test::Unit::TestCase';
=head1 NAME
Test::Unit::Warning - helper TestCase for adding warnings to a suite
=head1 DESCRIPTION
Used by L<Test::Unit::TestSuite> and others to provide messages that
come up when the suite runs.
=cut
sub run_test {
my $self = shift;
$self->fail($self->{_message});
}
sub new {
my $class = shift;
my $self = $class->SUPER::new('warning');
$self->{_message} = shift;
return $self;
}
1;
=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.
=cut
|