respect init_arg in 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
index 78a639d..d3a9694 100644 (file)
--- a/lib/MooseX/StrictConstructor/Meta/Class.pm
+++ b/lib/MooseX/StrictConstructor/Meta/Class.pm
@@ -9,12 +9,13 @@ use Moose;
 
 extends 'Moose::Meta::Class';
 
-override 'make_immutable' => sub ## no critic RequireArgUnpacking
+around 'make_immutable' => sub ## no critic RequireArgUnpacking
 {
+    my $orig = shift;
     my $self = shift;
 
     return
-        $self->SUPER::make_immutable
+        $self->$orig
             ( constructor_class => 'MooseX::StrictConstructor::Meta::Method::Constructor',
               @_,
             );