diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/MethodPrivate.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/MooseX/MethodPrivate.pm b/lib/MooseX/MethodPrivate.pm index 639e155..f82c26a 100644 --- a/lib/MooseX/MethodPrivate.pm +++ b/lib/MooseX/MethodPrivate.pm @@ -31,10 +31,9 @@ sub protected { my $body = sub { my $new_caller = caller(); - my @isa = $new_caller->meta->superclasses; - my @check = grep {/$caller/} @isa; croak "The $caller\::$name method is protected" - unless ( ( scalar caller() ) eq $caller || @check ); + unless ( ( scalar caller() ) eq $caller + || $new_caller->isa($caller) ); goto &{$real_body}; }; |