tweaking the attribute initializer stuff a little

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

diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index d1ed877..a9d5a5d 100644 (file)
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -78,20 +78,6 @@ sub set_slot_value {
     $instance->{$slot_name} = $value;
 }
 
-sub _set_initial_slot_value {
-  my ($self, $instance, $slot_name, $value, $initializer) = @_;
-
-  return $self->set_slot_value($instance, $slot_name, $value)
-      unless $initializer;
-
-  my $callback = sub {
-    $self->set_slot_value($instance, $slot_name, $_[0]);
-  };
-
-  # most things will just want to set a value, so make it first arg
-  $instance->$initializer($value, $slot_name, $callback);
-}
-
 sub initialize_slot {
     my ($self, $instance, $slot_name) = @_;
     #$self->set_slot_value($instance, $slot_name, undef);