package Mouse::Meta::TypeConstraint;
use Mouse::Util qw(:meta); # enables strict and warnings
+use Scalar::Util ();
use overload
'bool' => sub (){ 1 }, # always true
'""' => sub { $_[0]->name }, # stringify to tc name
+ '0+' => sub { Scalar::Util::refaddr($_[0]) },
'|' => sub { # or-combination
require Mouse::Util::TypeConstraints;
return Mouse::Util::TypeConstraints::find_or_parse_type_constraint(
fallback => 1;
sub new {
- my($class, %args) = @_;
+ my $class = shift;
+ my %args = @_ == 1 ? %{$_[0]} : @_;
$args{name} = '__ANON__' if !defined $args{name};
}
else {
$value = ( defined $value ? overload::StrVal($value) : 'undef' );
- return "Validation failed for '$self' failed with value $value";
+ return "Validation failed for '$self' with value $value";
}
}
=head1 VERSION
-This document describes Mouse version 0.54
+This document describes Mouse version 0.67
=head1 DESCRIPTION