rename postionalable to a more generic name
John Napiorkowski [Mon, 15 Sep 2008 00:57:26 +0000 (00:57 +0000)]
lib/MooseX/Meta/TypeConstraint/Structured/Structurable.pm [moved from lib/MooseX/Meta/TypeConstraint/Structured/Positionable.pm with 84% similarity]

@@ -5,10 +5,15 @@ use warnings;
 
 use metaclass;
 
-use base 'Moose::Meta::TypeConstraint::Parameterizable';
+use base 'Moose::Meta::TypeConstraint';
 use Moose::Util::TypeConstraints ();
 use MooseX::Meta::TypeConstraint::Structured::Positional;
 
+__PACKAGE__->meta->add_attribute('structured_type' => (
+    accessor  => 'structured_type',
+    predicate => 'has_structured_type',
+));
+
     my $comma = qr{,};
     my $indirection = qr{=>};
     my $divider_ops = qr{ $comma | $indirection }x;