X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FSingleton%2FObject.pm;fp=lib%2FMooseX%2FSingleton%2FObject.pm;h=8ad2a4dd7fe31eb1e3d807e1f049fd9afcdc78c2;hb=d928ce3a26634463da667f6bdba903e94b31ebac;hp=942e1490fe343c33a5018c566799164b8e1b9780;hpb=d64d58118b49361e1accb6c0371631150cc6df06;p=gitmo%2FMooseX-Singleton.git

diff --git a/lib/MooseX/Singleton/Object.pm b/lib/MooseX/Singleton/Object.pm
index 942e149..8ad2a4d 100644
--- a/lib/MooseX/Singleton/Object.pm
+++ b/lib/MooseX/Singleton/Object.pm
@@ -7,6 +7,15 @@ extends 'Moose::Object';
 
 sub instance { shift->new }
 
+sub initialize {
+  my ($class, @args) = @_;
+
+  my $existing = $class->meta->existing_singleton;
+  confess "Singleton is already initialized" if $existing;
+
+  return $class->SUPER::new(@args);
+}
+
 sub new {
   my ($class, @args) = @_;