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);
-our $VERSION = '0.55_02';
+our $VERSION = '0.59';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
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;
}
return @parents;
}
+sub create_childtype {
+ my ($self, %opts) = @_;
+ my $class = ref $self;
+ return $class->new(%opts, parent => $self);
+}
+
## this should get deprecated actually ...
sub union { Carp::croak "DEPRECATED" }
=item B<has_hand_optimized_type_constraint>
+=item B<create_childtype>
+
=back
=head2 DEPRECATED METHOD