/usr/share/perl5/Test/Data/Function.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 | # $Id$
package Test::Data::Function;
use strict;
use base qw(Exporter);
use vars qw(@EXPORT $VERSION);
@EXPORT = qw(prototype_ok);
$VERSION = '1.22';
use Test::Builder;
my $Test = Test::Builder->new();
=head1 NAME
Test::Data::Function -- test functions for functions
=head1 SYNOPSIS
use Test::Data qw(Function);
=head1 DESCRIPTION
This module provides test functions for subroutine sorts of things.
=head2 Functions
=over 4
=item prototype_ok( PROTOTYPE, SUB [, NAME ] )
=cut
sub prototype_ok(\&$;$)
{
my $sub = shift;
my $prototype = shift;
my $name = shift || 'function prototype is correct';
my $actual = prototype( $sub );
my $test = $actual eq $prototype;
unless( $test )
{
$Test->diag( "Subroutine has prototype [$actual]; expected [$prototype]" );
$Test->ok(0, $name);
}
else
{
$Test->ok( $test, $name );
}
}
=back
=head1 SEE ALSO
L<Test::Data>,
L<Test::Data::Array>,
L<Test::Data::Hash>,
L<Test::Data::Scalar>,
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
"red leather yellow leather";
|