| blib/lib/Data/MuForm/Field/Text.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 5 | 37 | if $self->size |
| 32 | 7 | 35 | if $self->maxlength |
| 33 | 0 | 42 | if $self->minlength |
| 41 | 0 | 383 | if (ref $input eq 'ARRAY' and not $self->multiple) |
| 42 | 0 | 0 | if (scalar @$input == 0) { } |
| 0 | 0 | elsif (&all(sub { $_ eq $input->[0]; } , @$input)) { } | |
| 57 | 0 | 301 | unless $self->next::method |
| 60 | 11 | 290 | if (my $maxlength = $self->maxlength) |
| 61 | 3 | 8 | if length $value > $maxlength |
| 67 | 6 | 292 | if (my $minlength = $self->minlength) |
| 68 | 2 | 4 | if length $value < $minlength |