File Coverage

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

Criterion	Covered	Total	%
statement	43	43	100.0
branch	21	22	95.4
condition	19	27	70.3
subroutine	12	12	100.0
pod	0	2	0.0
total	95	106	89.6

use v5.12;
use strict;
use warnings;


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

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

use constant long_name  => 'Naive Pure Perl Implementation';
use constant short_name => 'PurePerl';

	state $check = sub {
		my %args = (@_==1 && ref($_[0]) eq 'HASH') ? %{$_[0]} : @_;
		die 'invalid key' if grep !/\A(integer|object|hashes)\z/, keys %args;

		die 'bad integer' unless
			defined($args{integer})
			&& !ref($args{integer})
			&& $args{integer} =~ /\A-?[0-9]+\z/;

		die 'bad object' unless
			blessed($args{object})
			&& $args{object}->can('print')
			&& $args{object}->can('close');

		die 'bad hashes' unless
			ref($args{hashes}) eq 'ARRAY';
		for my $arr (@{ $args{hashes} }) {
			die 'bad hashes' unless ref($arr) eq 'HASH';
		}

		\%args;
	};
}

	state $check = sub {
		die 'wrong number of parameters' unless @_==3;

		die 'bad integer' unless
			defined($_[0])
			&& !ref($_[0])
			&& $_[0] =~ /\A-?[0-9]+\z/;

		die 'bad object' unless
			blessed($_[2])
			&& $_[2]->can('print')
			&& $_[2]->can('close');

		die 'bad hashes' unless
			ref($_[1]) eq 'ARRAY';
		for my $arr (@{ $_[1] }) {
			die 'bad hashes' unless ref($arr) eq 'HASH';
		}

		@_;
	};
}

1;