lib/MooseX/Privacy/Meta/Class/Private.pm


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

package MooseX::Privacy::Meta::Class::Private;

use Moose::Role;
use MooseX::Types::Moose qw(Str ArrayRef );
use MooseX::Privacy::Meta::Method::Private;

has local_private_methods => (
    traits     => ['Array'],
    is         => 'ro',
    isa        => ArrayRef [Str],
    required   => 1,
    default    => sub { [] },
    auto_deref => 1,
    handles    => { 'push_private_method' => 'push' },
);

sub add_private_method {
    my ( $self, $method_name, $code ) = @_;
    $self->add_method(
        $method_name,
        MooseX::Privacy::Meta::Method::Private->new(
            name         => $method_name,
            body         => $code,
            package_name => $self->name
        )
    );
    $self->push_private_method($method_name);
}

1;