Commit | Line | Data |
---|---|---|
9b2ef039 | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | use Test::More; | |
5 | ||
6 | use Moose (); | |
7 | ||
8 | { | |
9 | package Foo; | |
10 | sub bar { 'BAR' } | |
11 | } | |
12 | ||
13 | my $method = \&Foo::bar; | |
14 | ||
15 | { | |
16 | no strict 'refs'; | |
17 | delete ${'::'}{'Foo::'}; | |
18 | } | |
19 | ||
20 | my $meta = Moose::Meta::Class->create('Bar'); | |
21 | $meta->add_method(bar => $method); | |
22 | is(Bar->bar, 'BAR'); | |
23 | ||
24 | done_testing; |