File Coverage

blib/lib/MooseX/MethodAttributes/Role/Meta/Role/Application/Summation.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 19 94.7


line stmt bran cond sub pod time code
1             package MooseX::MethodAttributes::Role::Meta::Role::Application::Summation;
2             # ABSTRACT: Role applied to the class responsible for role summation which ensures method attributes propagate from the roles being summed onto the combined role.
3              
4             our $VERSION = '0.32';
5              
6 3     3   11021 use Moose::Role;
  3         9  
  3         28  
7 3     3   17426 use Moose::Util qw/does_role/;
  3         10  
  3         25  
8 3     3   699 use namespace::autoclean;
  3         9  
  3         27  
9              
10             with 'MooseX::MethodAttributes::Role::Meta::Role::Application';
11              
12             sub _copy_attributes {
13 2     2   8 my ($self, $thing) = @_;
14 2         6 for my $role (@{ $self->get_roles }) {
  2         63  
15 4 50       33 $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             =encoding UTF-8
27              
28             =head1 NAME
29              
30             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.
31              
32             =head1 VERSION
33              
34             version 0.32
35              
36             =head1 SUPPORT
37              
38             Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-MethodAttributes>
39             (or L<bug-MooseX-MethodAttributes@rt.cpan.org|mailto:bug-MooseX-MethodAttributes@rt.cpan.org>).
40              
41             There is also a mailing list available for users of this distribution, at
42             L<http://lists.perl.org/list/moose.html>.
43              
44             There is also an irc channel available for users of this distribution, at
45             L<C<#moose> on C<irc.perl.org>|irc://irc.perl.org/#moose>.
46              
47             =head1 AUTHORS
48              
49             =over 4
50              
51             =item *
52              
53             Florian Ragwitz <rafl@debian.org>
54              
55             =item *
56              
57             Tomas Doran <bobtfish@bobtfish.net>
58              
59             =back
60              
61             =head1 COPYRIGHT AND LICENCE
62              
63             This software is copyright (c) 2009 by Florian Ragwitz.
64              
65             This is free software; you can redistribute it and/or modify it under
66             the same terms as the Perl 5 programming language system itself.
67              
68             =cut