| blib/lib/Method/Signatures/PP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 1 | 1 | if $done++ |
| 40 | 1 | 0 | if (defined(my $mangled = mangle($_))) |
| 50 | 0 | 1 | unless ($code =~ /\A (?&PerlDocument) \Z $grammar/x) |
| 59 | 0 | 2 | unless my(@match) = $stmt =~ / \A method ((?&PerlOWS)) ((?&PerlIdentifier)) ((?&PerlOWS)) (?: ((?&kw_balanced_parens)) ((?&PerlOWS)) )?+ ((?&PerlBlock)) ((?&PerlOWS)) $grammar /x |
| 69 | 1 | 1 | $sig ? : |