| blib/lib/Perl6/Pod/Utl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 4 | 1 | if ($src =~ /$r/msx) { } |
| 61 | 10 | 13 | if (/(\s+)/) |
| 63 | 0 | 10 | if $length < $min |
| 68 | 4 | 16 | if ($min > 0) |
| 96 | 0 | 13 | if (my $allow = $args{'allow'}) |
| 97 | 0 | 0 | ref $allow ? : |
| 186 | 13 | 0 | if ($text =~ $r->with_actions('Perl6::Pod::Codeactions'->new)) { } |