File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/RefUtilXS.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 Ref::Util::XS 0.116 qw(is_blessed_ref is_plain_hashref is_plain_arrayref is_ref);
use namespace::autoclean;

use constant long_name  => 'Pure Perl Implementation with Ref::Util::XS';
use constant short_name => 'RefUtilXS';

	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})
			&& !is_ref($args{integer})
			&& $args{integer} =~ /\A-?[0-9]+\z/;

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

		die 'bad hashes' unless
			is_plain_arrayref($args{hashes});
		for my $arr (@{ $args{hashes} }) {
			die 'bad hashes' unless is_plain_hashref($arr);
		}

		\%args;
	};
}

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

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

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

		die 'bad hashes' unless
			is_plain_arrayref($_[1]);
		for my $arr (@{ $_[1] }) {
			die 'bad hashes' unless is_plain_hashref($arr);
		}

		@_;
	};
}

1;