File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/ParamsCheck/Perl.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	11	11	100.0
pod	0	1	0.0
total	48	51	94.1

use v5.12;
use strict;
use warnings;


our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.006';

use parent qw(Benchmark::Featureset::ParamCheck::Base::ParamsCheck);
use Scalar::Util qw(blessed);
use namespace::autoclean;

use constant long_name  => 'Params::Check with coderefs';
use constant short_name => 'PC-PurePerl';

	state $check = +{
		integer => { required => 1, allow => qr/\A-?[0-9]+\z/ },
		hashes  => { required => 1, allow => sub {
			return unless ref($_[0]) eq 'ARRAY';
			for my $arr (@{ $_[0] }) {
				return unless ref($arr) eq 'HASH';
			}
			return 1;
		}},
		object  => { required => 1, allow => sub {
			blessed($_[0])
			&& $_[0]->can('print')
			&& $_[0]->can('close')
		}},
	};
}

1;