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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package MooseX::Privacy::Meta::Attribute::Private;

use Moose::Role;
use Carp qw/confess/;

sub _generate_accessor_method {
    my $attr         = (shift)->associated_attribute;
    my $package_name = $attr->associated_class->name;

    return sub {
        my $self   = shift;
        my $caller = ( scalar caller() );
        confess "Attribute " . $attr->name . " is private"
            unless $caller eq $package_name;
        $attr->set_value( $self, $_[0] ) if scalar(@_) == 1;
        $attr->set_value( $self, [@_] ) if scalar(@_) > 1;
        $attr->get_value($self);
    };
}

1;