File Coverage

blib/lib/MooseX/Role/WithOverloading/Meta/Role/Application/Composite.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package MooseX::Role::WithOverloading::Meta::Role::Application::Composite;
2              
3             our $VERSION = '0.17';
4              
5 9     9   7196 use Moose::Role;
  9         19  
  9         60  
6 9     9   46097 use namespace::autoclean;
  9         19  
  9         62  
7              
8             with 'MooseX::Role::WithOverloading::Meta::Role::Application';
9              
10             around apply_overloading => sub {
11             my ($next, $self, $composite, $other) = @_;
12             for my $role (@{ $composite->get_roles }) {
13             $self->$next($role, $other);
14             }
15             };
16              
17             1;