8 use MooseX::Types -declare => [ 'ClassyType' ];
10 class_type 'ClassyClass';
12 subtype ClassyType, as 'ClassyClass';
14 #class_type ClassyType, { class => 'ClassyClass' };
23 sub check { die "FAIL" }
25 package ClassyClassConsumer;
27 BEGIN { MyTypes->import('ClassyType') }
31 is => 'ro', isa => ClassyType, default => sub { ClassyType->new }
36 ok(my $o = ClassyClassConsumer->new, "Constructor happy");
38 is(ref($o->om_nom), 'ClassyClass', 'Attribute happy');
40 ok(ClassyClassConsumer->new(om_nom => ClassyClass->new), 'Constructor happy');
42 ok(!eval { ClassyClassConsumer->new(om_nom => 3) }, 'Type checked');