require t::lib::ClassType_Foo;
- class_type Headers => { class => 't::lib::ClassType_Foo' };
+ # XXX: This below API is different from that of Moose.
+ # class_type() should be class_type 'ClassName';
+ # class_type 'Headers' => { class => 't::lib::ClassType_Foo' };
+ # this should be subtype Headers => as 't::lib::ClassType_foo';
+ subtype 'Headers'
+ => as 't::lib::ClassType_Foo'
+ ;
+
coerce 'Headers' =>
from 'HashRef' => via {
t::lib::ClassType_Foo->new(%{ $_ });