my ($type_parameter) = @_;
register_type_constraint(
- $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;
- # }
- # )
+ # $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;
+ }
+ )
);
}