File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/TypeParams/Mouse.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.007';

use parent qw(Benchmark::Featureset::ParamCheck::Base);
use Type::Params 1.016004 qw(compile_named compile);
use Mouse::Util::TypeConstraints;
use namespace::autoclean;

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

my $t = \&Mouse::Util::TypeConstraints::find_or_parse_type_constraint;

	state $check = compile_named(
		integer   => $t->('Int'),
		hashes    => $t->('ArrayRef[HashRef]'),
		object    => duck_type(Printable2 => [qw/ print close /]),
	);
}

	state $check = compile(
		$t->('Int'),
		$t->('ArrayRef[HashRef]'),
		duck_type(Printable2 => [qw/ print close /]),
	);
}

1;