blib/lib/Web/Machine/Util.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 19 | 20 | 95.0 |
line | true | false | branch |
---|---|---|---|
45 | 5 | 38 | if ($spec[$i] =~ /^\*$/) { } |
15 | 23 | elsif ($spec[$i] =~ /^\:/) { } | |
9 | 14 | elsif ($spec[$i] =~ /^\?\:/) { } | |
51 | 1 | 14 | unless defined $parts[0] |
55 | 5 | 4 | if defined $parts[0] |
59 | 0 | 14 | unless defined $parts[0] |
60 | 1 | 13 | unless $spec[$i] eq $parts[0] |
65 | 4 | 16 | if @parts |
69 | 1 | 4 | scalar @results == 1 ? : |
11 | 5 | wantarray ? : |