| blib/lib/Web/Machine/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 24 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 66 | 0 | if defined $_ |
| 41 | 71 | 0 | if defined $_ |
| 45 | 5 | 41 | if ($spec[$i] =~ /^\*$/) { } |
| 17 | 24 | elsif ($spec[$i] =~ /^\:/) { } | |
| 9 | 15 | elsif ($spec[$i] =~ /^\?\:/) { } | |
| 51 | 1 | 16 | unless defined $parts[0] |
| 55 | 5 | 4 | if defined $parts[0] |
| 59 | 0 | 15 | unless defined $parts[0] |
| 60 | 1 | 14 | unless $spec[$i] eq $parts[0] |
| 65 | 4 | 17 | if @parts |
| 69 | 1 | 4 | scalar @results == 1 ? : |
| 12 | 5 | wantarray ? : |