my ($type_parameter) = @_;
register_type_constraint(
- # $REGISTRY->get_type_constraint('Maybe')
- # ->get_constraint_for($type_parameter)
- Moose::Meta::TypeConstraint->new(
- parent => find_type_constraint('Item'),
- constraint => sub {
- my $check = $type_parameter->_compiled_type_constraint;
- return 1 if not(defined($_)) || $check->($_);
- return;
- }
- )
+ $REGISTRY->get_type_constraint('Maybe')
+ ->generate_constraint_for($type_parameter)
+ # Moose::Meta::TypeConstraint->new(
+ # parent => find_type_constraint('Item'),
+ # constraint => sub {
+ # my $check = $type_parameter->_compiled_type_constraint;
+ # return 1 if not(defined($_)) || $check->($_);
+ # return;
+ # }
+ # )
);
}