Commit | Line | Data |
4f9d7bba |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More; |
5 | |
6 | use Class::MOP; |
7 | |
8 | { |
9 | my $class; |
10 | { |
11 | my $meta = Class::MOP::Class->create_anon_class( |
12 | methods => { |
13 | foo => sub { 'FOO' }, |
14 | }, |
15 | ); |
16 | |
17 | $class = $meta->name; |
18 | can_ok($class, 'foo'); |
19 | is($class->foo, 'FOO'); |
20 | } |
21 | ok(!$class->can('foo')); |
22 | } |
23 | |
24 | { |
25 | my $class; |
26 | { |
27 | my $meta = Class::MOP::Class->create_anon_class( |
28 | methods => { |
29 | foo => sub { 'FOO' }, |
30 | }, |
31 | ); |
32 | |
33 | $class = $meta->name; |
34 | can_ok($class, 'foo'); |
35 | is($class->foo, 'FOO'); |
36 | Class::MOP::remove_metaclass_by_name($class); |
37 | } |
38 | ok(!$class->can('foo')); |
39 | } |
40 | |
41 | done_testing; |