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
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'}

or 2 conditions

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() || {}

or 3 conditions

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