/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; |