blib/lib/MVC/Neaf/X/Form.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 13 | 14 | 92.8 |
line | true | false | branch |
---|---|---|---|
101 | 3 | 3 | if (ref $spec eq 'ARRAY') { } |
102 | 1 | 2 | if (@$spec == 1) { } |
2 | 0 | elsif (@$spec == 2 and lc $spec->[0] eq 'required') { } | |
176 | 8 | 10 | unless (defined $data->{$_}) |
177 | 2 | 6 | if $must->{$_} |
181 | 7 | 3 | if ($data->{$_} =~ /$rex->{$_}/) { } |
2 | 1 | elsif (length $data->{$_} or $must->{$_}) { } |