add self to the dump, in case we are extending a non-mop class

stevan · Jul 8, 2013 · e380c57 · e380c57
1 parent e275868
commit e380c57
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/mop/object.pm b/lib/mop/object.pm
@@ -67,7 +67,8 @@ sub dump {
 
     my $temp = {
         __ID__    => get_object_id($self),
-        __CLASS__ => find_meta($self)->name
+        __CLASS__ => find_meta($self)->name,
+        __SELF__  => $self,
     };
 
     foreach my $attr (values %attributes) {