Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / MooseX / MethodAttributes / Role / Meta / Role / Application / Summation.pm

diff --git a/local-lib5/lib/perl5/MooseX/MethodAttributes/Role/Meta/Role/Application/Summation.pm b/local-lib5/lib/perl5/MooseX/MethodAttributes/Role/Meta/Role/Application/Summation.pm
new file mode 100644 (file)
index 0000000..f740024
--- /dev/null
+++ b/local-lib5/lib/perl5/MooseX/MethodAttributes/Role/Meta/Role/Application/Summation.pm
@@ -0,0 +1,48 @@
+package MooseX::MethodAttributes::Role::Meta::Role::Application::Summation;
+our $VERSION = '0.18';
+
+# ABSTRACT: Role applied to the class responsible for role summation which ensures method attributes propagate from the roles being summed onto the combined role.
+
+use Moose::Role;
+use Moose::Util qw/does_role/;
+use namespace::clean -except => 'meta';
+
+with 'MooseX::MethodAttributes::Role::Meta::Role::Application';
+
+sub _copy_attributes {
+    my ($self, $thing) = @_;
+    for my $role (@{ $self->get_roles }) {
+        $role->_copy_attributes($thing)
+            if does_role($role, 'MooseX::MethodAttributes::Role::Meta::Role');
+    }
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::MethodAttributes::Role::Meta::Role::Application::Summation - Role applied to the class responsible for role summation which ensures method attributes propagate from the roles being summed onto the combined role.
+
+=head1 VERSION
+
+version 0.18
+
+=head1 AUTHORS
+
+  Florian Ragwitz <rafl@debian.org>
+  Tomas Doran <bobtfish@bobtfish.net>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2009 by Florian Ragwitz.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as perl itself.
+
+=cut 
+
+