/tmp/bf0GS1B6sl | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 6 | 10 | 60.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 2 | 4 | 50.0 |
pod | n/a | ||
total | 8 | 14 | 57.1 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package MyTest1; | ||||||
2 | 2 | 2 | 4016720 | use Mite::Shim -all; | |||
2 | 7 | ||||||
2 | 49 | ||||||
3 | |||||||
4 | signature_for foo => ( | ||||||
5 | named => [ xxx => "Int", yyy => "Bool" ], | ||||||
6 | ); | ||||||
7 | |||||||
8 | sub foo { | ||||||
9 | 0 | 0 | my ( $self, $arg ) = @_; | ||||
10 | 0 | return [ $arg->xxx, $arg->yyy ]; | |||||
11 | } | ||||||
12 | |||||||
13 | package MyTest2; | ||||||
14 | 2 | 2 | 560 | use Mite::Shim -all; | |||
2 | 5 | ||||||
2 | 25 | ||||||
15 | extends 'MyTest1'; | ||||||
16 | |||||||
17 | signature_for '+foo'; | ||||||
18 | |||||||
19 | sub foo { | ||||||
20 | 0 | 0 | my ( $self, $arg ) = @_; | ||||
21 | 0 | return [ $arg->xxx, $arg->yyy ]; | |||||
22 | } | ||||||
23 | |||||||
24 | 1; |