14 my $meta = Class::MOP::Class->initialize('Foo');
15 ok( $meta->is_pristine, 'Foo is still pristine' );
17 $meta->add_method( baz => sub { } );
18 ok( $meta->is_pristine, 'Foo is still pristine after add_method' );
20 $meta->add_attribute( name => 'attr', reader => 'get_attr' );
21 ok( ! $meta->is_pristine, 'Foo is not pristine after add_attribute' );