get_{init_args,attribute_values}

[gitmo/Class-MOP.git] / lib / Class / MOP / Instance.pm

diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index a9612a9..baac84b 100644 (file)
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -122,16 +122,6 @@ sub rebless_instance_structure {
     bless $instance, $metaclass->name;
 }
 
-sub get_all_slot_values {
-    my ($self, $instance) = @_;
-
-    return +{
-        map { $_->name => $_->get_value($instance) }
-            grep { $_->has_value($instance) }
-                $self->associated_metaclass->compute_all_applicable_attributes
-    };
-}
-
 # inlinable operation snippets
 
 sub is_inlinable { 1 }
@@ -284,8 +274,6 @@ require that the C<$instance_structure> is passed into them.
 
 =item B<set_slot_value ($instance_structure, $slot_name, $value)>
 
-=item B<get_all_slot_values ($instance_structure)>
-
 =item B<initialize_slot ($instance_structure, $slot_name)>
 
 =item B<deinitialize_slot ($instance_structure, $slot_name)>