Made it work with immutable classes.

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

diff --git a/lib/MooseX/StrictConstructor/Meta/Class.pm b/lib/MooseX/StrictConstructor/Meta/Class.pm
new file mode 100644 (file)
index 0000000..d420465
--- /dev/null
+++ b/lib/MooseX/StrictConstructor/Meta/Class.pm
@@ -0,0 +1,22 @@
+package MooseX::StrictConstructor::Meta::Class;
+
+use strict;
+use warnings;
+
+use base 'Moose::Meta::Class';
+
+use MooseX::StrictConstructor::Meta::Method::Constructor;
+
+
+sub make_immutable { ## no critic RequireArgUnpacking
+    my $self = shift;
+
+    return
+        $self->SUPER::make_immutable
+            ( constructor_class => 'MooseX::StrictConstructor::Meta::Method::Constructor',
+              @_
+            );
+}
+
+
+1;