Rename Meta::Instance->instantiate to Meta::Instance->get_singleton_instance.

[gitmo/MooseX-Singleton.git] / lib / MooseX / Singleton / Meta / Instance.pm

diff --git a/lib/MooseX/Singleton/Meta/Instance.pm b/lib/MooseX/Singleton/Meta/Instance.pm
index d308120..e9c2522 100644 (file)
--- a/lib/MooseX/Singleton/Meta/Instance.pm
+++ b/lib/MooseX/Singleton/Meta/Instance.pm
@@ -5,41 +5,46 @@ use Scalar::Util 'weaken';
 
 extends 'Moose::Meta::Instance';
 
-sub instantiate {
+sub get_singleton_instance {
     my ($self, $instance) = @_;
 
     return $instance if blessed $instance;
     return $instance->instance;
 }
 
+sub clone_instance {
+    my ($self, $instance) = @_;
+    $self->get_singleton_instance($instance);
+}
+
 sub get_slot_value {
     my ($self, $instance, $slot_name) = @_;
-    $self->is_slot_initialized($instance, $slot_name) ? $self->instantiate($instance)->{$slot_name} : undef;
+    $self->is_slot_initialized($instance, $slot_name) ? $self->get_singleton_instance($instance)->{$slot_name} : undef;
 }
 
 sub set_slot_value {
     my ($self, $instance, $slot_name, $value) = @_;
-    $self->instantiate($instance)->{$slot_name} = $value;
+    $self->get_singleton_instance($instance)->{$slot_name} = $value;
 }
 
 sub deinitialize_slot {
     my ( $self, $instance, $slot_name ) = @_;
-    delete $self->instantiate($instance)->{$slot_name};
+    delete $self->get_singleton_instance($instance)->{$slot_name};
 }
 
 sub is_slot_initialized {
     my ($self, $instance, $slot_name, $value) = @_;
-    exists $self->instantiate($instance)->{$slot_name} ? 1 : 0;
+    exists $self->get_singleton_instance($instance)->{$slot_name} ? 1 : 0;
 }
 
 sub weaken_slot_value {
     my ($self, $instance, $slot_name) = @_;
-    weaken $self->instantiate($instance)->{$slot_name};
+    weaken $self->get_singleton_instance($instance)->{$slot_name};
 }
 
 sub inline_slot_access {
     my ($self, $instance, $slot_name) = @_;
-    sprintf "%s->meta->instance_metaclass->instantiate(%s)->{%s}", $instance, $instance, $slot_name;
+    sprintf "%s->meta->instance_metaclass->get_singleton_instance(%s)->{%s}", $instance, $instance, $slot_name;
 }
 
 1;