From 6571e62aa24c76fecc37dc06b6bbd3388792d02a Mon Sep 17 00:00:00 2001 From: doy Date: Wed, 8 Apr 2009 02:29:59 -0500 Subject: default to inline_constructor => 0 on make_immutable --- lib/MooseX/NonMoose/Meta/Role/Class.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 lib/MooseX/NonMoose/Meta/Role/Class.pm (limited to 'lib/MooseX/NonMoose/Meta/Role/Class.pm') 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; -- cgit v1.2.3-54-g00ecf