use metaclass;
use Scalar::Util 'blessed';
-use Carp 'confess';
+use Carp 'confess'; # FIXME Moose->throw_error
-our $VERSION = '0.57';
+our $VERSION = '0.63';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub has_type_constraint {
my ($self, $type_name) = @_;
- exists $self->type_constraints->{$type_name} ? 1 : 0
+ ($type_name and exists $self->type_constraints->{$type_name}) ? 1 : 0
}
sub get_type_constraint {