File Coverage

blib/lib/Test/Data/Function.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	27	30	90.0

use 5.008;

package Test::Data::Function;
use strict;

use Exporter qw(import);

our @EXPORT  = qw(prototype_ok);
our $VERSION = '1.243';

use Test::Builder;
my $Test = Test::Builder->new();

=encoding utf8

=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,
L,
L,
L,
L

=head1 SOURCE AVAILABILITY

This source is in Github:

	https://github.com/briandfoy/test-data

=head1 AUTHOR

brian d foy, C<<  >>

=head1 COPYRIGHT AND LICENSE

Copyright © 2002-2021, brian d foy . All rights reserved.

This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License 2.0.

=cut

"red leather yellow leather";