view release on metacpan or  search on metacpan

lib/Benchmark/Featureset/ParamCheck/Implementation/TypeParams/TypeTiny.pm  view on Meta::CPAN

use v5.12;
use strict;
use warnings;

package Benchmark::Featureset::ParamCheck::Implementation::TypeParams::TypeTiny;

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

use parent qw(Benchmark::Featureset::ParamCheck::Base);
use Ref::Util 0.203 ();
use Ref::Util::XS 0.116 ();
use Type::Params 1.016004 qw(compile_named compile);
use Types::Standard 1.016004 -types;
use Type::Tiny::XS 0.012 ();
use namespace::autoclean;

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

sub get_named_check {
	state $check = compile_named(
		integer   => Int,
		hashes    => ArrayRef[HashRef],
		object    => HasMethods[qw/ print close /],
	);
}

sub get_positional_check {
	state $check = compile(
		Int,
		ArrayRef[HashRef],
		HasMethods[qw/ print close /],
	);
}

1;