| lib/Perl6/Str.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 28 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 181 | 172 | ref $class ? : |
| 49 | 14 | 231 | $_[2] ? : |
| 61 | 30 | 76 | if (@args == 0) { } |
| 65 | 73 | 3 | if (@args == 0) { } |
| 72 | 106 | 0 | if (defined $res) { } |
| 89 | 132 | 50 | if ($idx >= 0) { } |
| 96 | 182 | 0 | if ($$self =~ /$re/g) { } |
| 119 | 0 | 1 | if $sl < $dl |
| 121 | 0 | 1 | if ($self->substr(-$sl) eq $delim) { } |
| 147 | 2 | 27 | unless length $pattern |
| 154 | 2 | 55 | unless $$self =~ /(\X)/g |
| 158 | 25 | 2 | if (pos $$self) |
| 201 | 17 | 45 | if ($pattern =~ /\p{IsTitle}|\p{IsUpper}/) { } |
| 32 | 13 | elsif ($pattern =~ /\p{IsLower}/) { } |