blob: 84f9d4f81356ea240a86a875fc568c7644086041 (
plain) (
blame)
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;
|