use Scalar::Util 'blessed';
use Moose::Util::TypeConstraints;
+use Moose::Meta::TypeConstraint::Parameterizable;
-our $VERSION = '0.59';
+our $VERSION = '0.66';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
. $self->parent->name . " doesn't subtype or coerce from a parameterizable type.");
}
-sub create_childtype {
+sub create_child_type {
my ($self, %opts) = @_;
-
- return Moose::Meta::TypeConstraint->new(%opts, parent => $self);
-
- return $self->SUPER::create_subtype(
- %opts,
- type_parameter=>$self->type_parameter,
- );
+ return Moose::Meta::TypeConstraint::Parameterizable->new(%opts, parent=>$self);
}
1;
=item B<equals>
-=item B<create_childtype>
+=item B<create_child_type>
=back
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>