Fix the is_needed method to actually check the right thing.

diff --git a/lib/Moose/Meta/Method/Destructor.pm b/lib/Moose/Meta/Method/Destructor.pm
index 1f5cc87..93d7f83 100644 (file)
--- a/lib/Moose/Meta/Method/Destructor.pm
+++ b/lib/Moose/Meta/Method/Destructor.pm
@@ -57,7 +57,7 @@ sub is_needed {
         || $self->throw_error(
         "The is_needed method expected a metaclass object as its arugment");
 
-    return Class::MOP::class_of($metaclass)->can('DEMOLISH');
+    return $metaclass->find_next_method_by_name('DEMOLISH');
 }
 
 sub initialize_body {