| blib/lib/HTML/Form.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 50 | 67 | 74.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 82 | 32 | 1 | 2 | ref $html and $html->can("content_charset") |
| 133 | 57 | 8 | 1 | exists $attr->{'id'} && exists $labels{$attr->{'id'}} |
| 256 | 141 | 11 | 2 | $type eq "file" and exists $attr->{'value'} |
| 310 | 104 | 73 | 2 | defined $no and $no < 1 |
| 323 | 0 | 3 | 1 | not defined $$selector and $_->{'name'} |
| 332 | 5 | 2 | 0 | $type and $type ne $_->{'type'} |
| 334 | 7 | 0 | 0 | $no and $no != $c |
| 348 | 0 | 14 | 5 | not defined $$selector and $_->{'name'} |
| 357 | 119 | 43 | 8 | $type and $type ne $_->{'type'} |
| 401 | 2 | 3 | 3 | @v == 1 and ref $v[0] |
| 508 | 7 | 0 | 0 | $name and not $_->selected($name) |
| line | l | !l | condition |
|---|---|---|---|
| 146 | 53 | 13 | delete $attr->{'type'} || 'text' |
| 150 | 2 | 0 | delete $attr->{'type'} || 'submit' |
| 235 | 20 | 29 | shift() || 'GET' |
| 237 | 14 | 35 | shift() || 'application/x-www-form-urlencoded' |
| 341 | 72 | 101 | $no ||= 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 198 | 2 | 2 | 1 | $tag eq "/form" or $tag eq "input" |
| 4 | 0 | 1 | $tag eq "/form" or $tag eq "input" or $tag eq "textarea" | |
| 2 | 0 | 1 | $tag eq "/form" or $tag eq "input" or $tag eq "textarea" or $tag eq "select" | |
| 0 | 0 | 1 | $tag eq "/form" or $tag eq "input" or $tag eq "textarea" or $tag eq "select" or $tag eq "keygen" | |
| 236 | 49 | 0 | 0 | shift() || Carp::croak('No action defined') |
| 392 | 0 | 135 | 51 | not defined $n or $n ne $name |
| 412 | 2 | 7 | 0 | $err ||= $@ |
| 439 | 0 | 6 | 8 | not defined $n or $seen{$n}++ |