use Mouse::Util qw(:meta); # enables strict and warnings
use overload
- '""' => sub { shift->{name} }, # stringify to tc name
+ '""' => sub { $_[0]->name }, # stringify to tc name
fallback => 1;
use Carp qw(confess);
sub coerce {
my $self = shift;
- if(!$self->{_compiled_type_coercion}){
- confess("Cannot coerce without a type coercion ($self)");
- }
return $_[0] if $self->_compiled_type_constraint->(@_);
- return $self->{_compiled_type_coercion}->(@_);
+ my $coercion = $self->_compiled_type_coercion;
+ return $coercion ? $coercion->(@_) : $_[0];
}
sub get_message {
=head1 VERSION
-This document describes Mouse version 0.40
+This document describes Mouse version 0.40_01
=head1 DESCRIPTION