Change clearers to return true for compatibility

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index d36025c..635f5d7 100644 (file)
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -364,7 +364,7 @@ sub clear_value {
                      ->get_meta_instance
                      ->deinitialize_slot($instance, $self->name);
     $self->call_trigger($instance);
-    return;
+    return 1;
 }
 
 ## load em up ...

diff --git a/lib/Class/MOP/Method/Accessor.pm b/lib/Class/MOP/Method/Accessor.pm
index 26207aa..8ff4a28 100644 (file)
--- a/lib/Class/MOP/Method/Accessor.pm
+++ b/lib/Class/MOP/Method/Accessor.pm
@@ -290,7 +290,7 @@ sub _generate_clearer_method_inline {
         'sub {'
         . $meta_instance->inline_deinitialize_slot('$_[0]', $attr_name) . ';'
         . $self->_inline_call_trigger($attr, '$_[0]')
-        . 'return;'
+        . 'return 1;'
         . '}',
     );
     confess "Could not generate inline clearer because : $e" if $e;