Group
Extension

Matches 1

MooseX-Types-Meta ( E/ET/ETHER/MooseX-Types-Meta-0.02.tar.gz, ETHER, 2015; MetaCPAN )
MooseX-Types-Meta/t/basic.t ( view source; MetaCPAN )
hing) && $thing->can('name') ? $thing->name : $thing) . ' isa ' . $type_name,
    );
}

sub check_isnt {
    my ($type, $thing) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    (

test TypeConstraint => sub {
    check_is(TypeConstraint, $_) for TypeConstraint, Int;
    check_isnt(TypeConstraint, $_) for \42, 'Moose::Meta::TypeConstraint';
};

test Class => sub {
    check_is(
e::Meta::Class->meta,
    );

    check_isnt(Class, $_) for 42, TestRole->meta;
};

test Role => sub {
    check_is(Role, $_) for TestRole->meta;
    check_isnt(Role, $_) for TestClass->meta, 13;
};


Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.