/usr/share/perl5/Test/Unit/Decorator.pm is in libtest-unit-perl 0.25-2.
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 | package Test::Unit::Decorator;
use strict;
use base qw(Test::Unit::Test);
sub new {
my $class = shift;
my ($fTest) = @_;
return bless { _fTest => $fTest }, $class;
}
sub basic_run {
my $self = shift;
my ($result) = @_;
$self->{_fTest}->run($result);
}
sub count_test_cases() {
my $self = shift;
return $self->{_fTest}->count_test_cases();
}
sub run {
my $self = shift;
my ($result) = @_;
$self->basic_run($result);
}
sub to_string {
my $self = shift;
"$self->{_fTest}";
}
sub get_test {
my $self = shift;
return $self->{_fTest};
}
1;
__END__
=head1 NAME
Test::Unit::Decorator - unit testing framework helper class
=head1 SYNOPSIS
# A Decorator for Tests. Use TestDecorator as the base class
# for defining new test decorators. Test decorator subclasses
# can be introduced to add behaviour before or after a test
# is run.
=head1 DESCRIPTION
A Decorator for Tests. Use TestDecorator as the base class
for defining new test decorators. Test decorator subclasses
can be introduced to add behaviour before or after a test
is run.
=head1 AUTHOR
Copyright (c) 2001 Kevin Connor <kconnor@interwoven.com>
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
L<Test::Unit::TestCase>
=cut
|