1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
use strict;
use warnings;
use Test::More;
use Moose::Meta::Class;
use MooseX::Privacy::Meta::Method::Protected;
my $metaclass = Moose::Meta::Class->create('Foo');
ok my $protected_method = MooseX::Privacy::Meta::Method::Protected->wrap(
name => 'foo',
package_name => 'Foo',
body => sub { return 23 }
),
'create Method::Protected method';
isa_ok $protected_method, 'MooseX::Privacy::Meta::Method::Protected';
eval { $protected_method->execute };
like $@, qr/The Foo::foo method is protected/,
"can't execute a protected method in main package";
{
package Foo;
use Moose;
use MooseX::Privacy;
package Bar;
use Moose;
extends qw/Foo/;
sub baz { return $_[0]->foo + $_[0]->bar }
}
my $foo_object = Foo->new;
ok $foo_object->meta->add_protected_method( 'foo', $protected_method ),
'add_protected_method accept a Method::Protected instance';
ok $foo_object->meta->add_protected_method( 'bar', sub { return 42 } ),
'add_protected_method create a new Method::Protected instance';
is scalar @{ $foo_object->meta->local_protected_methods }, 2,
'got two protected methods';
my $bar_object = Bar->new;
is $bar_object->baz, 65, 'everything works fine';
done_testing;
|
