File Coverage

blib/lib/Class/Accessor/Typed/Mouse.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	19	24	79.1

package Class::Accessor::Typed::Mouse;
use strict;
use warnings;
use utf8;

use Mouse::Util::TypeConstraints ();

*_get_isa_type_constraint  = \&Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint;
*_get_does_type_constraint = \&Mouse::Util::TypeConstraints::find_or_create_does_type_constraint;

sub type {
    my ($class, $type_name) = @_;
    return _get_isa_type_constraint($type_name);
}

sub type_role {
    my ($class, $type_name) = @_;
    return _get_does_type_constraint($type_name);
}

1;