Commit | Line | Data |
3fea05b9 |
1 | package MooseX::Role::WithOverloading::Meta::Role::Application::Composite; |
2 | our $VERSION = '0.03'; |
3 | |
4 | |
5 | # ABSTRACT: Roles which support overloading |
6 | |
7 | use Moose::Role; |
8 | use namespace::autoclean; |
9 | |
10 | with 'MooseX::Role::WithOverloading::Meta::Role::Application'; |
11 | |
12 | around apply_overloading => sub { |
13 | my ($next, $self, $composite, $other) = @_; |
14 | for my $role (@{ $composite->get_roles }) { |
15 | $self->$next($role, $other); |
16 | } |
17 | }; |
18 | |
19 | 1; |
20 | |
21 | __END__ |
22 | =pod |
23 | |
24 | =head1 NAME |
25 | |
26 | MooseX::Role::WithOverloading::Meta::Role::Application::Composite - Roles which support overloading |
27 | |
28 | =head1 VERSION |
29 | |
30 | version 0.03 |
31 | |
32 | =head1 AUTHORS |
33 | |
34 | Florian Ragwitz <rafl@debian.org> |
35 | Tomas Doran <bobtfish@bobtfish.net> |
36 | |
37 | =head1 COPYRIGHT AND LICENSE |
38 | |
39 | This software is copyright (c) 2009 by Florian Ragwitz. |
40 | |
41 | This is free software; you can redistribute it and/or modify it under |
42 | the same terms as the Perl 5 programming language system itself. |
43 | |
44 | =cut |
45 | |