blob: cf63fd018e880a8cffe9900560c914155b74f6c0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package MooseX::Privacy::Meta::Attribute::Private;
use Moose::Role;
use Carp qw/confess/;
with 'MooseX::Privacy::Meta::Attribute::Privacy' => {level => 'private'};
sub _check_private {
my ($meta, $caller, $attr_name, $package_name) = @_;
confess "Attribute " . $attr_name . " is private"
unless $caller eq $package_name;
}
1;
|