coerce
find_type_constraint
+ register_type_constraint
)],
);
# sugars
-sub as ($) { (as => $_[0]) }
-sub where (&) { (where => $_[0]) }
-sub message (&) { (message => $_[0]) }
-sub optimize_as (&) { (optimize_as => $_[0]) }
+sub as ($) { (as => $_[0]) } ## no critic
+sub where (&) { (where => $_[0]) } ## no critic
+sub message (&) { (message => $_[0]) } ## no critic
+sub optimize_as (&) { (optimize_as => $_[0]) } ## no critic
sub from { @_ }
-sub via (&) { $_[0] }
+sub via (&) { $_[0] } ## no critic
# type utilities
@methods = (@_ == 1 && ref($_[0]) eq 'ARRAY') ? @{$_[0]} : @_;
# DuckType
- return _create_type 'type', $name => (
+ return _create_type 'subtype', $name => (
+ as => 'Object',
optimized_as => Mouse::Util::generate_can_predicate_for(\@methods),
);
}
%valid = map{ $_ => undef } (@_ == 1 && ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_);
# EnumType
- return _create_type 'type', $name => (
+ return _create_type 'subtype', $name => (
+ as => 'Str',
optimized_as => sub{ defined($_[0]) && !ref($_[0]) && exists $valid{$_[0]} },
);
}
return $TYPE{$spec};
}
+sub register_type_constraint {
+ my($constraint) = @_;
+ Carp::croak("No type supplied / type is not a valid type constraint")
+ unless Mouse::Util::is_a_type_constraint($constraint);
+ my $name = $constraint->name;
+ Carp::croak("can't register an unnamed type constraint")
+ unless defined $name;
+ return $TYPE{$name} = $constraint;
+}
+
sub find_or_parse_type_constraint {
my($spec) = @_;
return $spec if Mouse::Util::is_a_type_constraint($spec);
=head1 VERSION
-This document describes Mouse version 0.50_07
+This document describes Mouse version 0.64
=head2 SYNOPSIS
existing type, it assumes that this is a class name, for example
C<ArrayRef[DateTime]>.
-B<NOTE:> Unless you parameterize a type, then it is invalid to include
-the square brackets. I.e. C<ArrayRef[]> will be treated as a new type
-name, I<not> as a parameterization of C<ArrayRef>.
-
B<NOTE:> The C<Undef> type constraint for the most part works
correctly now, but edge cases may still exist, please use it
sparingly.