Tidy
gfx [Fri, 30 Oct 2009 00:51:40 +0000 (09:51 +0900)]
lib/Mouse/Util/TypeConstraints.pm

index c6f7b17..7ae23f3 100644 (file)
@@ -280,7 +280,7 @@ sub _find_or_create_parameterized_type{
     }
 }
 sub _find_or_create_union_type{
-    my @types = sort{ $a cmp $b } map{ $_->{type_constraints} ? @{$_->{type_constraints}} : $_ } @_;
+    my @types = sort map{ $_->{type_constraints} ? @{$_->{type_constraints}} : $_ } @_;
 
     my $name = join '|', @types;