| blib/lib/Sub/MicroSig.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 2 | 3 | if ($attr =~ /\A Sig\(([^)]*)\) \z/x) { } |
| 3 | 0 | elsif ($attr =~ /\A Meth(?:od)?Sig\(([^)]*)\) \z/x) { } | |
| 49 | 3 | 2 | $is_method ? : |
| 50 | 3 | 2 | $is_method ? : |
| 59 | 1 | 25 | if $is_method and not eval { do { $_[0]->can('can') } } |
| 62 | 22 | 3 | if ($#_ >= $arg_index) |
| 63 | 2 | 18 | if @_ > $arg_index + 1 or not ref $_[$arg_index] or ref $_[$arg_index] ne 'HASH' and ref $_[$arg_index] ne 'ARRAY' |