File Coverage

/tmp/ZGxXhCwvM1
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 MyTest3;
2 3     3   7903123 use Mite::Shim -all;
  3         9  
  3         79  
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 MyTest4;
14 3     3   515 use Mite::Shim -all;
  3         16  
  3         17  
15             extends 'MyTest3';
16              
17             signature_for '+foo' => (
18             head => [ 'Str' ],
19             named => [ zzz => 'Any' ],
20             );
21              
22             sub foo {
23 0     0     my ( $self, $arg ) = @_;
24 0           return [ $arg->xxx, $arg->yyy, $arg->zzz ];
25             }
26              
27             1;