Type coercions should be added to the front of the list in

$COERCE_KEYS{$name}, not the back. This ensures they are checked in
the correct order (as supplied in the declaration).

diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm
index 3ed075d..650bfca 100644 (file)
--- a/lib/Mouse/Util/TypeConstraints.pm
+++ b/lib/Mouse/Util/TypeConstraints.pm
@@ -154,7 +154,7 @@ sub coerce {
             }
         }
 
-        push @{ $COERCE_KEYS{$name} }, $type;
+        unshift @{ $COERCE_KEYS{$name} }, $type;
         $COERCE{$name}->{$type} = $code;
     }
 }