use overload '""' => sub { shift->name }, # stringify to tc name
fallback => 1;
-use Carp 'confess';
use Scalar::Util qw(blessed refaddr);
use base qw(Class::MOP::Object);
return $self;
}
-sub coerce { ((shift)->coercion || confess "Cannot coerce without a type coercion")->coerce(@_) }
+sub coerce { ((shift)->coercion || Moose::throw_error("Cannot coerce without a type coercion"))->coerce(@_) }
sub check { $_[0]->_compiled_type_constraint->($_[1]) ? 1 : undef }
sub validate {
my ($self, $value) = @_;
my $check = $self->constraint;
(defined $check)
- || confess "Could not compile type constraint '"
+ || Moose::throw_error("Could not compile type constraint '"
. $self->name
- . "' because no constraint check";
+ . "' because no constraint check");
return $self->_compile_subtype($check)
if $self->has_parent;
my $type_constraint = $self->hand_optimized_type_constraint;
- confess unless ref $type_constraint;
+ Moose::throw_error("Hand optimized type constraint is not a code reference") unless ref $type_constraint;
return $type_constraint;
}