blob: 22e148189c1e04d4e9fac3eb0213aa67256267d3 (
plain) (
blame)
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
|
package MooseX::Privacy::Meta::Method::Protected;
use Moose;
extends 'Moose::Meta::Method';
use Carp qw/confess/;
sub wrap {
my $class = shift;
my %args = @_;
my $method = delete $args{body};
my $protected_code = sub {
my $caller = caller();
confess "The "
. $args{package_name} . "::"
. $args{name}
. " method is protected"
unless $caller eq $args{package_name}
|| $caller->isa( $args{package_name} );
goto &{$method};
};
$args{body} = $protected_code;
$class->SUPER::wrap(%args);
}
1;
|