prevent immutable creating new() methods for Reaction metaclasses

diff --git a/lib/Reaction/Meta/Class.pm b/lib/Reaction/Meta/Class.pm
index 27c084f..b2c3b9e 100644 (file)
--- a/lib/Reaction/Meta/Class.pm
+++ b/lib/Reaction/Meta/Class.pm
@@ -5,6 +5,8 @@ use Reaction::Meta::Attribute;
 
 extends 'Moose::Meta::Class';
 
+sub new { shift->SUPER::new(@_); }
+
 around initialize => sub {
     my $super = shift;
     my $class = shift;

diff --git a/lib/Reaction/Meta/InterfaceModel/Action/Class.pm b/lib/Reaction/Meta/InterfaceModel/Action/Class.pm
index 0c83353..c09bdb6 100644 (file)
--- a/lib/Reaction/Meta/InterfaceModel/Action/Class.pm
+++ b/lib/Reaction/Meta/InterfaceModel/Action/Class.pm
@@ -5,6 +5,8 @@ use aliased 'Reaction::Meta::InterfaceModel::Action::ParameterAttribute';
 
 class Class is 'Reaction::Meta::Class', which {
 
+  implements new => as { shift->SUPER::new(@_) };
+
   around initialize => sub {
     my $super = shift;
     my $class = shift;

diff --git a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
index da99ffe..8fad3dc 100644 (file)
--- a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
+++ b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
@@ -7,6 +7,8 @@ use Reaction::Class;
 
 class Class is 'Reaction::Meta::Class', which {
 
+  implements new => as { shift->SUPER::new(@_) };
+
   around initialize => sub {
     my $super = shift;
     my $class = shift;