Fix typo in comment

[gitmo/Moose.git] / lib / Moose / Meta / TypeConstraint / Parameterizable.pm

diff --git a/lib/Moose/Meta/TypeConstraint/Parameterizable.pm b/lib/Moose/Meta/TypeConstraint/Parameterizable.pm
index 7b61ebb..bc3b9ce 100644 (file)
--- a/lib/Moose/Meta/TypeConstraint/Parameterizable.pm
+++ b/lib/Moose/Meta/TypeConstraint/Parameterizable.pm
@@ -4,13 +4,11 @@ use strict;
 use warnings;
 use metaclass;
 
-our $VERSION   = '0.57';
+our $VERSION   = '0.59';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Moose::Meta::TypeConstraint';
-use Moose::Meta::TypeConstraint::Parameterized;
-use Moose::Util::TypeConstraints ();
 
 __PACKAGE__->meta->add_attribute('constraint_generator' => (
     accessor  => 'constraint_generator',
@@ -42,27 +40,6 @@ sub _can_coerce_constraint_from {
     };
 }
 
-sub parse_type_parameter {
-    my ($self, $type_parameter) = @_;
-    return Moose::Util::TypeConstraints::find_or_create_isa_type_constraint($type_parameter);
-}
-
-sub parameterize {
-    my ( $self, $contained_tc ) = @_;
-
-    if ( $contained_tc->isa('Moose::Meta::TypeConstraint') ) {
-        my $tc_name = $self->name . '[' . $contained_tc->name . ']';
-        return Moose::Meta::TypeConstraint::Parameterized->new(
-            name           => $tc_name,
-            parent         => $self,
-            type_parameter => $contained_tc,
-        );
-    }
-    else {
-        Moose->throw_error("The type parameter must be a Moose meta type");
-    }
-}
-
 
 1;
 
@@ -85,14 +62,6 @@ Moose::Meta::TypeConstraint::Parameterizable - Higher Order type constraints for
 
 =item B<generate_constraint_for>
 
-=item B<parse_type_parameter>
-
-Given a string, convert it to a Perl structure.
-
-=item B<parameterize>
-
-Given an array of type constraints, parameterize the current type constraint.
-
 =item B<meta>
 
 =back