X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FTypeConstraint.pm;h=bac571a94e45b304d434c4be8c1a9cb1ed7f2296;hb=e462f6f3d260687b8f7372b112a50c5c2a2c431c;hp=0b20224020724d52a141ffc6f0b617274731f0e4;hpb=19a330e587fbf184f16bfc650de8bc6301098170;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/TypeConstraint.pm b/lib/Moose/Meta/TypeConstraint.pm index 0b20224..bac571a 100644 --- a/lib/Moose/Meta/TypeConstraint.pm +++ b/lib/Moose/Meta/TypeConstraint.pm @@ -13,7 +13,7 @@ use Sub::Name qw(subname); use base qw(Class::MOP::Object); -our $VERSION = '1.03'; +our $VERSION = '1.05'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -122,7 +122,7 @@ sub get_message { } else { $value = (defined $value ? overload::StrVal($value) : 'undef'); - return "Validation failed for '" . $self->name . "' failed with value $value"; + return "Validation failed for '" . $self->name . "' with value $value"; } } @@ -148,7 +148,7 @@ sub equals { return if $other->has_parent; } - return 1; + return; } sub is_a_type_of {