use metaclass;
use Scalar::Util 'blessed';
-use Carp 'confess';
+use Carp 'confess'; # FIXME Moose->throw_error
-our $VERSION = '0.55_04';
+our $VERSION = '0.66';
$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 {
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>