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;
};