File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/TypeParams/TypeNano.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	0	2	0.0
total	39	41	95.1

use v5.12;
use strict;
use warnings;


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

use parent qw(Benchmark::Featureset::ParamCheck::Base);
use Type::Params 1.016004 qw(compile_named compile);
use Type::Nano qw( Int ArrayRef HashRef duck_type );
use namespace::autoclean;

use constant long_name => 'Type::Params with Type::Nano';
use constant short_name => 'TP-Nano';

my $ArrayRef_of_HashRef = Type::Nano->new(
	name       => 'ArrayRef[HashRef]',
	parent     => ArrayRef,
	constraint => sub { HashRef->check($_) || return !!0 for @$_; !!1 },
);

	state $check = compile_named(
		integer   => Int,
		hashes    => $ArrayRef_of_HashRef,
		object    => duck_type [qw/ print close /],
	);
}

	state $check = compile(
		Int,
		$ArrayRef_of_HashRef,
		duck_type [qw/ print close /],
	);
}

1;