Condition Coverage

blib/lib/Test/WWW/Mechanize.pm
Criterion Covered Total %
condition 44 88 50.0


and 3 conditions

line !l l&&!r l&&r condition
210 44 0 0 $self->autolint and $self->autotidy
431 0 0 1 $response && $response->is_success
476 0 1 1 $response && $response->is_success
685 0 0 0 ref $lint and $lint->isa("HTML::Lint")
759 0 0 0 ref $tidy and $tidy->isa("HTML::Tidy5")
1996 0 12 15 exists $hash->{$pattern_key} and $hash->{$pattern_key} =~ /$patterns->{$pattern_key}/
2072 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
2120 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
2125 2 0 2 exists $specs->{$name}{'maxlength'} and defined $specs->{$name}{'maxlength'}

or 2 conditions

line l !l condition
421 1 0 shift() || {}
461 2 0 shift() || {}
1411 5 9 shift() || 200
1412 2 12 shift() || 'is'
1443 5 6 shift() || 'like'
1970 0 0 shift() || {}
1982 6 0 shift() || {}
2066 5 2 shift() || {}

or 3 conditions

line l !l&&r !l&&!r condition
572 2 1 0 shift() || "Response has $header header"
587 2 1 0 shift() || "Response lacks $header header"
603 3 1 0 shift() || qq[Response has $header header with value "$value"]
631 2 0 0 shift() || "Response has $header header that matches regex $regex"
995 0 0 0 shift() || qq[Content is unlike "$regex"]
1021 6 1 0 shift() || qq[Text contains "$str"]
1060 0 0 0 shift() || qq[Text is like "$regex"]
1075 0 0 0 shift() || qq[Text is unlike "$regex"]
1091 3 7 0 shift() || qq[Page has $tag tag with "$text"]
1442 11 0 0 shift() || qr//
1708 0 11 0 shift() || 'ID "' . ($id || '') . '" should exist'
1758 9 3 0 shift() || 'ID "' . ($id || '') . '" should not exist'
2197 4 0 2 not $val =~ /^\s*\d+\s*$/ or $val + 0 <= 0