File Coverage

/tmp/LoKWC5tN7i
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 4 50.0
pod n/a
total 8 13 61.5


line stmt bran cond sub pod time code
1             use Mite::Shim -role;
2 2     2   3031052 around [ 'xyz', 'zyx' ] => sub {
  2         4  
  2         26  
3             my ( $next, $self, @args ) = @_;
4             uc( $self->$next( @args ) );
5             };
6              
7             use Mite::Shim;
8             with 'MyTest1';
9 2     2   278 my ( $self, @args ) = @_;
  2         4  
  2         6  
10             return join q[, ], @args;
11             }
12 0     0     return 'zzz';
13 0           }
14              
15             1;