default to inline_constructor => 0 on make_immutable

2 files changed, 23 insertions, 0 deletions

diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm
index bebf6ee..797bf5b 100644
--- a/lib/MooseX/NonMoose.pm
+++ b/lib/MooseX/NonMoose.pm
@@ -33,4 +33,15 @@ sub extends_nonmoose {
     });
 }
 
+sub init_meta {
+    shift;
+    my %options = @_;
+    Moose->init_meta(%options);
+    Moose::Util::MetaRole::apply_metaclass_roles(
+        for_class                 => $options{for_class},
+        metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'],
+    );
+    return $options{for_class}->meta;
+}
+
 1;
diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm
new file mode 100644
index 0000000..ef954b7
--- /dev/null
+++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm
@@ -0,0 +1,12 @@
+package MooseX::NonMoose::Meta::Role::Class;
+use Moose::Role;
+
+around _make_immutable_transformer => sub {
+    my $orig = shift;
+    my $self = shift;
+    return $self->$orig(inline_constructor => 0, @_);
+};
+
+no Moose::Role;
+
+1;