Commit | Line | Data |
---|---|---|
c001451a | 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; |