Condition Coverage

blib/lib/Test/WWW/Mechanize.pm
Criterion Covered Total %
condition 44 91 48.3


and 3 conditions

line !l l&&!r l&&r condition
210 44 0 0 $self->autolint and $self->autotidy
456 0 0 1 $response && $response->is_success
501 0 1 1 $response && $response->is_success
710 0 0 0 ref $lint and $lint->isa("HTML::Lint")
784 0 0 0 ref $tidy and $tidy->isa("HTML::Tidy5")
2021 0 12 14 exists $hash->{$pattern_key} and $hash->{$pattern_key} =~ /$patterns->{$pattern_key}/
2097 4 0 3 defined $options->{'fill'} and length $options->{'fill'} > 0
2145 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
2150 2 0 2 exists $specs->{$name}{'maxlength'} and defined $specs->{$name}{'maxlength'}

or 2 conditions

line l !l condition
446 1 0 shift() || {}
486 2 0 shift() || {}
1436 5 9 shift() || 200
1437 2 12 shift() || 'is'
1468 5 6 shift() || 'like'
1995 0 0 shift() || {}
2007 6 0 shift() || {}
2091 5 2 shift() || {}

or 3 conditions

line l !l&&r !l&&!r condition
597 2 1 0 shift() || "Response has $header header"
612 2 1 0 shift() || "Response lacks $header header"
628 3 1 0 shift() || qq[Response has $header header with value "$value"]
656 2 0 0 shift() || "Response has $header header that matches regex $regex"
1020 0 0 0 shift() || qq[Content is unlike "$regex"]
1046 6 1 0 shift() || qq[Text contains "$str"]
1085 0 0 0 shift() || qq[Text is like "$regex"]
1100 0 0 0 shift() || qq[Text is unlike "$regex"]
1116 3 7 0 shift() || qq[Page has $tag tag with "$text"]
1467 11 0 0 shift() || qr//
1733 0 11 0 shift() || 'ID "' . ($id || '') . '" should exist'
1783 9 3 0 shift() || 'ID "' . ($id || '') . '" should not exist'
1857 1 0 0 shift() || qq[Button named "$button" exists]
1874 1 0 0 shift() || qq[No button named "$button" exists]
2220 4 0 2 not $val =~ /^\s*\d+\s*$/ or $val + 0 <= 0