6 use MooseX::ClassAttribute;
12 initializer => sub { $_[2]->($_[1] + 1) }
22 initializer => sub { $_[2]->($_[1] + 1) }
27 use MooseX::ClassAttribute;
33 trigger => sub { die __PACKAGE__ }
43 trigger => sub { die __PACKAGE__ }
49 use Test::More tests => 4;
51 is ( ClassFoo->chas, 2, "ClassFoo's class_has (ClassAttribute) initializer fires" );
53 is ( ClassBar->new->chas, 2, "ClassBar's has (non-ClassAttribute) initializer fires" );
55 eval { ClassBaz->new->chas('foobar') };
56 like ( $@, qr/ClassBaz/, "ClassBaz's class_has (ClassAttribute) trigger fires" );
58 eval { ClassQuz->new->chas('foobar') };
59 like ( $@, qr/ClassQuz/, "ClassQuz's has (non-ClassAttribute) trigger fires" );