local-lib5/lib/perl5/MooseX/MethodAttributes/Role/Meta/Role/Application/Summation.pm

   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