| blib/lib/Rose/HTML/Form/Field/Set.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 15 | 1 | $list ? : |
| 17 | 1 | 15 | unless ref $list eq "ARRAY" |
| 21 | 24 | 36 | if (/["\\\s,]/) { } |
| 36 | 5 | 12 | if ref $value eq "ARRAY" |
| 37 | 1 | 11 | unless defined $value |
| 46 | 4 | 37 | unless length $value |
| 48 | 17 | 20 | if ($value =~ s/^"((?:[^"\\]+|\\.)*)"//s) { } |
| 18 | 2 | elsif ($value =~ s/^([^,"\s]+)//) { } | |
| 63 | 0 | 17 | if ($error) |
| 77 | 2 | 0 | length $value < 5 ? : |
| 91 | 0 | 1 | unless $ok |
| 93 | 1 | 0 | if $self->has_errors |