File Coverage

/tmp/2Wk_sm2FMJ
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             package MyTest1;
2 2     2   4025725 use Mite::Shim -role;
  2         30  
  2         33  
3             around [ 'xyz', 'zyx' ] => sub {
4             my ( $next, $self, @args ) = @_;
5             uc( $self->$next( @args ) );
6             };
7              
8             package MyTest2;
9 2     2   299 use Mite::Shim;
  2         6  
  2         9  
10             with 'MyTest1';
11             sub xyz {
12 0     0     my ( $self, @args ) = @_;
13 0           return join q[, ], @args;
14             }
15             sub zyx {
16 0     0     return 'zzz';
17             }
18              
19             1;