sub coerce { # coerce $type, from $from, via { ... }, ...
my $type_name = shift;
my $type = find_type_constraint($type_name)
- or Carp::croak("Cannot find type '$type_name', perhaps you forgot to load it.");
+ or Carp::croak("Cannot find type '$type_name', perhaps you forgot to load it");
$type->_add_type_coercions(@_);
return;
}
sub _find_or_create_union_type{
- return if grep{ not defined } @_;
- my @types = sort map{ $_->{type_constraints} ? @{$_->{type_constraints}} : $_ } @_;
+ return if grep{ not defined } @_; # all things must be defined
+ my @types = sort
+ map{ $_->{type_constraints} ? @{$_->{type_constraints}} : $_ } @_;
my $name = join '|', @types;
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;
+ return $TYPE{$constraint->name} = $constraint;
}
sub find_or_parse_type_constraint {
=head1 VERSION
-This document describes Mouse version 0.82
+This document describes Mouse version 0.94
=head2 SYNOPSIS