my $immutable_metaclass = $meta->_immutable_metaclass->meta;
- my $obj = $immutable_metaclass->name;
+ my $immutable_class_name = $immutable_metaclass->name;
- ok( !$obj->is_mutable, '... immutable_metaclass is not mutable' );
- ok( $obj->is_immutable, '... immutable_metaclass is immutable' );
- ok( !$obj->make_immutable,
- '... immutable_metaclass make_mutable is noop' );
- is( $obj->meta, $immutable_metaclass,
+ ok( !$immutable_class_name->is_mutable, '... immutable_metaclass is not mutable' );
+ ok( $immutable_class_name->is_immutable, '... immutable_metaclass is immutable' );
+ is( $immutable_class_name->meta, $immutable_metaclass,
'... immutable_metaclass meta hack works' );
isa_ok( $meta, "Class::MOP::Class::Immutable::Trait" );