Commit | Line | Data |
38bf2a25 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Class::MOP; |
5 | use Test::More; |
6 | |
7 | { |
8 | package Foo; |
9 | |
10 | sub foo { } |
11 | sub bar { } |
12 | } |
13 | |
14 | my $meta = Class::MOP::Class->initialize('Foo'); |
15 | ok( $meta->is_pristine, 'Foo is still pristine' ); |
16 | |
17 | $meta->add_method( baz => sub { } ); |
18 | ok( $meta->is_pristine, 'Foo is still pristine after add_method' ); |
19 | |
20 | $meta->add_attribute( name => 'attr', reader => 'get_attr' ); |
21 | ok( ! $meta->is_pristine, 'Foo is not pristine after add_attribute' ); |
22 | |
23 | done_testing; |