$check = $args{constraint};
- if(blessed($check)){
- Carp::cluck("Constraint for $args{name} must be a CODE reference");
- $check = $check->{compiled_type_constraint};
- }
-
if(defined($check) && ref($check) ne 'CODE'){
confess("Constraint for $args{name} is not a CODE reference");
}
);
}
-sub name { $_[0]->{name} }
-sub parent { $_[0]->{parent} }
-sub message { $_[0]->{message} }
-
-sub _compiled_type_constraint{ $_[0]->{compiled_type_constraint} }
-
-sub has_coercion{ exists $_[0]->{_compiled_type_coercion} }
sub compile_type_constraint{
my($self) = @_;
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 DESCRIPTION