From d9300f79bff6a04da2dafd1e786f6e35f40901f1 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 1 Jul 2009 08:24:12 +0200
Subject: replace the check with superclasses with isa

---
 lib/MooseX/MethodPrivate.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib/MooseX')

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};
     };
-- 
cgit v1.2.3