/usr/share/perl5/Test/Data.pm is in libtest-data-perl 1.22-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 97 98 99 100 101 102 103 104 | # $Id$
package Test::Data;
use strict;
use vars qw($VERSION);
use Carp qw(carp);
use Test::Builder;
my $Test = Test::Builder->new();
$VERSION = '1.22';
=head1 NAME
Test::Data -- test functions for particular variable types
=head1 SYNOPSIS
use Test::Data qw(Scalar Array Hash Function);
=head1 DESCRIPTION
Test::Data provides utility functions to check properties
and values of data and variables.
=cut
$Exporter::Verbose = 0;
sub import
{
my $self = shift;
my $caller = caller;
foreach my $package ( @_ )
{
my $full_package = "Test::Data::$package";
eval{ eval "require $full_package" };
if( $@ )
{
carp "Could not require Test::Data::$package: $@";
}
$full_package->export($caller);
}
}
sub VERSION { return $VERSION }
=head2 Functions
Plug-in modules define functions for each data type. See the
appropriate module.
=head2 How it works
The Test::Data module simply imports functions from Test::Data::*
modules. Each module defines a self-contained function, and puts
that function name into @EXPORT. Test::Data defines its own
import function, but that does not matter to the plug-in modules.
If you want to write a plug-in module, follow the example of one
that already exists. Name the module Test::Data::Foo, where you
replace Foo with the right name. Test::Data should automatically
find it.
=head1 BUGS
I'm not a very good Windows Perler, so some things don't work as
they should on Windows. I recently got a Windows box so I can
test things, but if you run into problems, I can use all the
patches or advice you care to send.
=head1 SEE ALSO
L<Test::Data::Scalar>,
L<Test::Data::Array>,
L<Test::Data::Hash>,
L<Test::Data::Function>,
L<Test::Builder>
=head1 SOURCE AVAILABILITY
This source is in Github:
http://github.com/briandfoy/test-data/tree/master
=head1 AUTHOR
brian d foy, C<< <bdfoy@cpan.org> >>
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2002-2009 brian d foy. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
"Now is the time for all good men to come to the aid of their country";
|