9 use MooseX::ClassAttribute;
15 initializer => sub { $_[2]->( $_[1] + 1 ) }
27 initializer => sub { $_[2]->( $_[1] + 1 ) }
34 use MooseX::ClassAttribute;
40 trigger => sub { die __PACKAGE__ }
52 trigger => sub { die __PACKAGE__ }
58 = 'Class attributes with an initializer are not initialized properly';
62 "ClassFoo's class_has (ClassAttribute) initializer fires"
67 ClassBar->new->chas, 2,
68 "ClassBar's has (non-ClassAttribute) initializer fires"
71 eval { ClassBaz->new->chas('foobar') };
74 "ClassBaz's class_has (ClassAttribute) trigger fires"
77 eval { ClassQuz->new->chas('foobar') };
78 like( $@, qr/ClassQuz/, "ClassQuz's has (non-ClassAttribute) trigger fires" );