Redid this as (mostly) roles which are applied at runtime to the meta

[gitmo/MooseX-StrictConstructor.git] / lib / MooseX / StrictConstructor / Role / Metaclass.pm

diff --git a/lib/MooseX/StrictConstructor/Role/Metaclass.pm b/lib/MooseX/StrictConstructor/Role/Metaclass.pm
new file mode 100644 (file)
index 0000000..76505d8
--- /dev/null
+++ b/lib/MooseX/StrictConstructor/Role/Metaclass.pm
@@ -0,0 +1,60 @@
+package MooseX::StrictConstructor::Role::Metaclass;
+
+use strict;
+use warnings;
+
+use MooseX::StrictConstructor::Meta::Method::Constructor;
+
+use Moose::Role;
+
+
+around 'make_immutable' => sub ## no critic RequireArgUnpacking
+{
+    my $orig = shift;
+    my $self = shift;
+
+    return
+        $self->$orig
+            ( constructor_class => 'MooseX::StrictConstructor::Meta::Method::Constructor',
+              @_,
+            );
+};
+
+no Moose::Role;
+
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::StrictConstructor::Meta::Class - A meta class for classes with strict constructors
+
+=head1 SYNOPSIS
+
+  use MooseX::StrictConstructor;
+
+=head1 DESCRIPTION
+
+This class simply overrides C<make_immutable()> in
+C<Moose::Meta::Class> to use
+C<MooseX::StrictConstructor::Meta::Method::Constructor> as the
+constructor class.
+
+You should never have to use this class directly.
+
+=head1 AUTHOR
+
+Dave Rolsky, C<< <autarch@urth.org> >>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2007 Dave Rolsky, All Rights Reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut