5 use File::Spec::Functions;
13 use lib catdir( $FindBin::Bin, 'lib' );
23 __PACKAGE__->meta->make_immutable;
31 __PACKAGE__->meta->make_immutable;
37 use metaclass 'MyMetaClass';
39 sub mymetaclass_attributes {
40 shift->meta->mymetaclass_attributes;
43 ::is( ::exception { Baz->meta->superclasses('Bar') }, undef, '... we survive the metaclass incompatibility test' );
48 ok( $meta->is_mutable, '... Baz is mutable' );
50 Scalar::Util::blessed( Foo->meta ),
51 Scalar::Util::blessed( Bar->meta ),
52 'Foo and Bar immutable metaclasses match'
54 is( Scalar::Util::blessed($meta), 'MyMetaClass',
55 'Baz->meta blessed as MyMetaClass' );
56 ok( Baz->can('mymetaclass_attributes'),
57 '... Baz can do method before immutable' );
58 ok( $meta->can('mymetaclass_attributes'),
59 '... meta can do method before immutable' );
60 is( exception { $meta->make_immutable }, undef, "Baz is now immutable" );
61 ok( $meta->is_immutable, '... Baz is immutable' );
62 isa_ok( $meta, 'MyMetaClass', 'Baz->meta' );
63 ok( Baz->can('mymetaclass_attributes'),
64 '... Baz can do method after imutable' );
65 ok( $meta->can('mymetaclass_attributes'),
66 '... meta can do method after immutable' );
67 isnt( Scalar::Util::blessed( Baz->meta ),
68 Scalar::Util::blessed( Bar->meta ),
69 'Baz and Bar immutable metaclasses are different' );
70 is( exception { $meta->make_mutable }, undef, "Baz is now mutable" );
71 ok( $meta->is_mutable, '... Baz is mutable again' );