Add a role for composite metaroles to apply our summation application…

… role.
rafl · Jul 30, 2009 · d78810d · d78810d
1 parent 91a0abb
commit d78810d
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/lib/MooseX/Role/WithOverloading/Meta/Role/Composite.pm b/lib/MooseX/Role/WithOverloading/Meta/Role/Composite.pm
@@ -0,0 +1,17 @@
+package MooseX::Role::WithOverloading::Meta::Role::Composite;
+
+use Moose::Role;
+use Moose::Util::MetaRole;
+use aliased 'MooseX::Role::WithOverloading::Meta::Role::Application::RoleSummation';
+
+use namespace::clean -except => 'meta';
+
+around _new => sub {
+    my ($next, $self, @args) = @_;
+    return Moose::Util::MetaRole::apply_metaclass_roles(
+        for                                    => $self->$next(@args),
+        application_role_summation_class_roles => [ RoleSummation ],
+    );
+};
+
+1;