lib/MooseX/StrictConstructor/Meta/Class.pm

   1 package MooseX::StrictConstructor::Meta::Class;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Moose::Meta::Class';
   7
   8 use MooseX::StrictConstructor::Meta::Method::Constructor;
   9
  10
  11 sub make_immutable { ## no critic RequireArgUnpacking
  12     my $self = shift;
  13
  14     return
  15         $self->SUPER::make_immutable
  16             ( constructor_class => 'MooseX::StrictConstructor::Meta::Method::Constructor',
  17               @_
  18             );
  19 }
  20
  21
  22 1;