lib/MooseX/StrictConstructor/Meta/Class.pm

   1 package MooseX::StrictConstructor::Meta::Class;
   2
   3 use strict;
   4 use warnings;
   5
   6 use MooseX::StrictConstructor::Meta::Method::Constructor;
   7
   8 use Moose;
   9
  10 extends 'Moose::Meta::Class';
  11
  12 override 'make_immutable' => sub ## no critic RequireArgUnpacking
  13 {
  14     my $self = shift;
  15
  16     return
  17         $self->SUPER::make_immutable
  18             ( constructor_class => 'MooseX::StrictConstructor::Meta::Method::Constructor',
  19               @_,
  20             );
  21 };
  22
  23 no Moose;
  24
  25
  26 1;
  27
  28 __END__
  29
  30 =pod
  31
  32 =head1 NAME
  33
  34 MooseX::StrictConstructor::Meta::Class - A meta class for classes with strict constructors
  35
  36 =head1 SYNOPSIS
  37
  38   use MooseX::StrictConstructor;
  39
  40 =head1 DESCRIPTION
  41
  42 This class simply overrides C<make_immutable()> in
  43 C<Moose::Meta::Class> to use
  44 C<MooseX::StrictConstructor::Meta::Method::Constructor> as the
  45 constructor class.
  46
  47 You should never have to use this class directly.
  48
  49 =head1 AUTHOR
  50
  51 Dave Rolsky, C<< <autarch@urth.org> >>
  52
  53 =head1 COPYRIGHT & LICENSE
  54
  55 Copyright 2007 Dave Rolsky, All Rights Reserved.
  56
  57 This program is free software; you can redistribute it and/or modify
  58 it under the same terms as Perl itself.
  59
  60 =cut