Singleton objects were not singletons when made immutable. We need to

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

diff --git a/lib/MooseX/Singleton/Meta/Class.pm b/lib/MooseX/Singleton/Meta/Class.pm
index bc929c0..3a0d5d6 100644 (file)
--- a/lib/MooseX/Singleton/Meta/Class.pm
+++ b/lib/MooseX/Singleton/Meta/Class.pm
@@ -42,6 +42,20 @@ override construct_instance => sub {
     return ${"$pkg\::singleton"} = super;
 };
 
+# Need to remove make_immutable before we define it below
+no Moose;
+
+use MooseX::Singleton::Meta::Method::Constructor;
+
+sub make_immutable {
+    my $self = shift;
+    $self->SUPER::make_immutable
+      (
+       constructor_class => 'MooseX::Singleton::Meta::Method::Constructor',
+       @_,
+      );
+}
+
 1;
 
 __END__