| blib/lib/Test/WWW/Mechanize.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 44 | 88 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 210 | 44 | 0 | 0 | $self->autolint and $self->autotidy |
| 418 | 0 | 0 | 1 | $response && $response->is_success |
| 463 | 0 | 1 | 1 | $response && $response->is_success |
| 672 | 0 | 0 | 0 | ref $lint and $lint->isa("HTML::Lint") |
| 746 | 0 | 0 | 0 | ref $tidy and $tidy->isa("HTML::Tidy5") |
| 1983 | 0 | 12 | 15 | exists $hash->{$pattern_key} and $hash->{$pattern_key} =~ /$patterns->{$pattern_key}/ |
| 2059 | 4 | 0 | 3 | exists $options->{'fill'} and defined $options->{'fill'} |
| 4 | 0 | 3 | exists $options->{'fill'} and defined $options->{'fill'} and length $options->{'fill'} > 0 | |
| 2107 | 1 | 0 | 3 | exists $specs->{$name}{'fill'} and defined $specs->{$name}{'fill'} |
| 1 | 0 | 3 | exists $specs->{$name}{'fill'} and defined $specs->{$name}{'fill'} and length $specs->{$name}{'fill'} > 0 | |
| 2112 | 2 | 0 | 2 | exists $specs->{$name}{'maxlength'} and defined $specs->{$name}{'maxlength'} |
| line | l | !l | condition |
|---|---|---|---|
| 408 | 1 | 0 | shift() || {} |
| 448 | 2 | 0 | shift() || {} |
| 1398 | 5 | 9 | shift() || 200 |
| 1399 | 2 | 12 | shift() || 'is' |
| 1430 | 5 | 6 | shift() || 'like' |
| 1957 | 0 | 0 | shift() || {} |
| 1969 | 6 | 0 | shift() || {} |
| 2053 | 5 | 2 | shift() || {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 559 | 2 | 1 | 0 | shift() || "Response has $header header" |
| 574 | 2 | 1 | 0 | shift() || "Response lacks $header header" |
| 590 | 3 | 1 | 0 | shift() || qq[Response has $header header with value "$value"] |
| 618 | 2 | 0 | 0 | shift() || "Response has $header header that matches regex $regex" |
| 982 | 0 | 0 | 0 | shift() || qq[Content is unlike "$regex"] |
| 1008 | 6 | 1 | 0 | shift() || qq[Text contains "$str"] |
| 1047 | 0 | 0 | 0 | shift() || qq[Text is like "$regex"] |
| 1062 | 0 | 0 | 0 | shift() || qq[Text is unlike "$regex"] |
| 1078 | 3 | 7 | 0 | shift() || qq[Page has $tag tag with "$text"] |
| 1429 | 11 | 0 | 0 | shift() || qr// |
| 1695 | 0 | 11 | 0 | shift() || 'ID "' . ($id || '') . '" should exist' |
| 1745 | 9 | 3 | 0 | shift() || 'ID "' . ($id || '') . '" should not exist' |
| 2184 | 4 | 0 | 2 | not $val =~ /^\s*\d+\s*$/ or $val + 0 <= 0 |