Commit | Line | Data |
3fea05b9 |
1 | package MooseX::MethodAttributes::Role::Meta::Role::Application::Summation; |
2 | our $VERSION = '0.18'; |
3 | |
4 | # ABSTRACT: Role applied to the class responsible for role summation which ensures method attributes propagate from the roles being summed onto the combined role. |
5 | |
6 | use Moose::Role; |
7 | use Moose::Util qw/does_role/; |
8 | use namespace::clean -except => 'meta'; |
9 | |
10 | with 'MooseX::MethodAttributes::Role::Meta::Role::Application'; |
11 | |
12 | sub _copy_attributes { |
13 | my ($self, $thing) = @_; |
14 | for my $role (@{ $self->get_roles }) { |
15 | $role->_copy_attributes($thing) |
16 | if does_role($role, 'MooseX::MethodAttributes::Role::Meta::Role'); |
17 | } |
18 | } |
19 | |
20 | 1; |
21 | |
22 | __END__ |
23 | |
24 | =pod |
25 | |
26 | =head1 NAME |
27 | |
28 | 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. |
29 | |
30 | =head1 VERSION |
31 | |
32 | version 0.18 |
33 | |
34 | =head1 AUTHORS |
35 | |
36 | Florian Ragwitz <rafl@debian.org> |
37 | Tomas Doran <bobtfish@bobtfish.net> |
38 | |
39 | =head1 COPYRIGHT AND LICENSE |
40 | |
41 | This software is copyright (c) 2009 by Florian Ragwitz. |
42 | |
43 | This is free software; you can redistribute it and/or modify it under |
44 | the same terms as perl itself. |
45 | |
46 | =cut |
47 | |
48 | |