gistfile1.pl

package MyTest;

use Moose;

use MooseX::Types::Moose qw(ArrayRef);
use MooseX::Types::Structured qw(Dict);
use MooseX::Types -declare => [qw(Person)];

subtype Person, as Dict [ friends => ArrayRef [Person] ];

# fails with recent Moose, succeeds with 2.0205
# Error:

The type constraint 'MyTest::Person' has already been created in Moose::Meta::TypeConstraint::Parameterizable and cannot be created again in Moose::Exporter at /Users/mo/perl5/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0/darwin-2level/Moose/Util/TypeConstraints.pm line 535
	Moose::Util::TypeConstraints::_create_type_constraint('MooseX::Types::TypeDecorator=HASH(0x100810130)', 'MooseX::Types::TypeDecorator=HASH(0x100be3888)', undef, undef, undef, undef) called at /Users/mo/perl5/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0/darwin-2level/Moose/Util/TypeConstraints.pm line 355
	Moose::Util::TypeConstraints::subtype('MooseX::Types::TypeDecorator=HASH(0x100810130)', 'HASH(0x100b5db10)') called at /Users/mo/perl5/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0/darwin-2level/Moose/Exporter.pm line 349
	MooseX::Types::CheckedUtilExports::subtype('MooseX::Types::TypeDecorator=HASH(0x100810130)', 'HASH(0x100b5db10)') called at fail.t line 9