X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil%2FTypeConstraints.pm;h=73ad008205a3b09d8cba81654b0ddf61ff6a083a;hb=983d58a5ea543a21c48cb04311883f1b36de1874;hp=f76b249d6e54ed2bf32e3a631d54469c6bc82e55;hpb=dbf2d5d48aa00b6b2a98dc788d6c3323ab760aee;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm index f76b249..73ad008 100644 --- a/lib/Mouse/Util/TypeConstraints.pm +++ b/lib/Mouse/Util/TypeConstraints.pm @@ -290,8 +290,9 @@ sub _find_or_create_parameterized_type{ } 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; @@ -431,7 +432,7 @@ Mouse::Util::TypeConstraints - Type constraint system for Mouse =head1 VERSION -This document describes Mouse version 0.82 +This document describes Mouse version 0.94 =head2 SYNOPSIS