| line |
true |
false |
branch |
|
207
|
51 |
2 |
if ($ok) { } |
|
209
|
44 |
7 |
if ($self->is_html) |
|
210
|
0 |
44 |
if ($self->autolint and $self->autotidy) { } |
|
212
|
0 |
0 |
if defined $desc |
|
223
|
0 |
44 |
if ($self->autolint) { } |
|
|
0 |
44 |
elsif ($self->autotidy) { } |
|
234
|
51 |
0 |
unless ($emitted_ok) |
|
241
|
2 |
0 |
if $self->response |
|
267
|
1 |
9 |
unless ($ok) |
|
269
|
1 |
0 |
if $self->response |
|
320
|
2 |
1 |
unless exists $opts{'content'} |
|
325
|
0 |
3 |
unless ($ok) |
|
327
|
0 |
0 |
if $self->response |
|
349
|
3 |
1 |
if ($self->can('delete')) { } |
|
369
|
0 |
1 |
if ref $uri eq "WWW::Mechanize::Link" |
|
370
|
1 |
0 |
$self->base ? : |
|
411
|
0 |
1 |
if (ref $parms ne "HASH") |
|
451
|
0 |
2 |
unless (defined $desc) |
|
453
|
0 |
0 |
unless defined $desc |
|
456
|
0 |
2 |
if (ref $parms ne "HASH") |
|
492
|
1 |
1 |
if (ref $button eq 'ARRAY') { } |
|
499
|
0 |
2 |
unless ($response) |
|
519
|
21 |
40 |
if (@_) |
|
522
|
2 |
19 |
if (not defined $flex) { } |
|
|
5 |
14 |
elsif (ref $flex eq 'HASH') { } |
|
|
4 |
10 |
elsif (ref $flex eq 'ARRAY') { } |
|
538
|
45 |
16 |
unless (defined $desc) |
|
539
|
0 |
45 |
if ref $url eq "WWW::Mechanize::Link" |
|
596
|
3 |
1 |
if (defined $actual_value) { } |
|
644
|
0 |
0 |
$desc ? : |
|
648
|
0 |
0 |
if ($self->is_html) { } |
|
667
|
0 |
0 |
unless (eval "use $module; 1;") |
|
672
|
0 |
0 |
if (ref $lint and $lint->isa('HTML::Lint')) { } |
|
686
|
0 |
0 |
if ($nerrors) { } |
|
690
|
0 |
0 |
$nerrors == 1 ? : |
|
717
|
0 |
0 |
$desc ? : |
|
721
|
0 |
0 |
if ($self->is_html) { } |
|
741
|
0 |
0 |
unless (eval "use $module; 1;") |
|
746
|
0 |
0 |
if (ref $tidy and $tidy->isa('HTML::Tidy5')) { } |
|
758
|
0 |
0 |
if ($nmessages) { } |
|
762
|
0 |
0 |
$nmessages == 1 ? : |
|
803
|
1 |
1 |
unless defined $desc |
|
821
|
0 |
1 |
unless defined $desc |
|
839
|
0 |
0 |
unless defined $desc |
|
857
|
0 |
0 |
unless defined $desc |
|
875
|
0 |
0 |
unless defined $desc |
|
893
|
0 |
0 |
unless defined $desc |
|
911
|
0 |
0 |
unless defined $desc |
|
929
|
4 |
3 |
if (ref $str) |
|
932
|
1 |
2 |
unless defined $desc |
|
949
|
4 |
3 |
if (ref $str) |
|
952
|
1 |
2 |
unless defined $desc |
|
967
|
0 |
0 |
unless defined $desc |
|
1011
|
4 |
3 |
if (ref $str) |
|
1030
|
4 |
0 |
if (ref $str) |
|
1033
|
0 |
0 |
unless defined $desc |
|
1097
|
0 |
2 |
unless defined $desc |
|
1114
|
10 |
14 |
if &$match($tagtext) |
|
1131
|
1 |
2 |
unless defined $desc |
|
1159
|
1 |
3 |
unless defined $desc |
|
1163
|
1 |
3 |
unless (defined $usable_regex) |
|
1195
|
0 |
3 |
unless defined $desc |
|
1199
|
1 |
2 |
unless (defined $usable_regex) |
|
1240
|
0 |
6 |
unless defined $desc |
|
1270
|
1 |
2 |
unless defined $desc |
|
1300
|
0 |
2 |
unless defined $desc |
|
1332
|
1 |
3 |
unless (defined $usable_regex) |
|
1339
|
1 |
2 |
unless defined $desc |
|
1370
|
1 |
3 |
unless (defined $usable_regex) |
|
1377
|
1 |
2 |
unless defined $desc |
|
1391
|
0 |
3 |
$url_count == 1 ? : |
|
1408
|
37 |
2 |
if ($mech->follow_link('url', $url)) { } |
|
1409
|
30 |
7 |
if ($test eq 'is') { } |
|
1410
|
7 |
23 |
unless $mech->status == $status |
|
1413
|
1 |
6 |
if $mech->status == $status |
|
1438
|
33 |
0 |
if ($mech->follow_link('url', $url)) { } |
|
1440
|
18 |
15 |
if ($test eq 'like') { } |
|
1441
|
6 |
12 |
unless $content =~ /$regex/ |
|
1444
|
6 |
9 |
if $content =~ /$regex/ |
|
1461
|
22 |
3 |
if (ref $links eq 'ARRAY') { } |
|
1463
|
22 |
0 |
if (defined $link) |
|
1464
|
21 |
1 |
if (ref $link eq 'WWW::Mechanize::Link') { } |
|
1502
|
0 |
0 |
if (defined $html) |
|
1506
|
0 |
0 |
if (ref $token->[1] eq "HASH") |
|
1507
|
0 |
0 |
if (exists $token->[1]{$attr}) |
|
1511
|
0 |
0 |
ref $value eq 'Regexp' ? : |
|
1512
|
0 |
0 |
if ($matched) |
|
1515
|
0 |
0 |
unless (wantarray) |
|
1524
|
0 |
0 |
unless wantarray |
|
1547
|
28 |
0 |
if (defined $html) |
|
1550
|
24 |
4 |
if ($found >= 0) |
|
1554
|
125 |
65 |
if (ref $token->[1] eq "HASH") |
|
1556
|
98 |
27 |
unless defined $actual_id |
|
1557
|
25 |
100 |
if ($actual_id eq $id) |
|
1560
|
19 |
6 |
unless (wantarray) |
|
1569
|
22 |
6 |
unless wantarray |
|
1578
|
0 |
28 |
if (@_) { } |
|
1583
|
28 |
0 |
if ($self->is_html) |
|
1606
|
10 |
1 |
if (defined $got) { } |
|
1632
|
4 |
1 |
if (defined $got) { } |
|
1660
|
2 |
26 |
unless ($self->{'ids'}) |
|
1668
|
4 |
6 |
if (my $id = $attr->{'id'}) |
|
1719
|
1 |
3 |
if defined $msg |
|
1771
|
1 |
3 |
if defined $msg |
|
1780
|
9 |
0 |
defined $id ? : |
|
1868
|
37 |
88 |
if (@_) |
|
1900
|
37 |
44 |
if (@_) |
|
1938
|
6 |
0 |
if ($form) |
|
1973
|
0 |
6 |
if (not %{$patterns;}) { } |
|
1983
|
12 |
15 |
unless exists $hash->{$pattern_key} and $hash->{$pattern_key} =~ /$patterns->{$pattern_key}/ |
|
1984
|
12 |
15 |
unless $matches_everything |
|
1987
|
11 |
12 |
if $matches_everything |
|
2059
|
3 |
0 |
if (exists $options->{'fill'} and defined $options->{'fill'} and length $options->{'fill'} > 0) |
|
2065
|
1 |
6 |
if (exists $options->{'ignore'}) |
|
2071
|
2 |
5 |
if (exists $options->{'specs'}) |
|
2083
|
0 |
42 |
if $field->readonly |
|
2084
|
0 |
42 |
if $field->disabled |
|
2089
|
1 |
41 |
if exists $ignore->{$name} |
|
2095
|
34 |
7 |
if ($field->type ne "textarea") |
|
2096
|
27 |
7 |
if (exists $field->{'maxlength'}) |
|
2104
|
4 |
37 |
if (exists $specs->{$name}) |
|
2107
|
3 |
0 |
if (exists $specs->{$name}{'fill'} and defined $specs->{$name}{'fill'} and length $specs->{$name}{'fill'} > 0) |
|
2112
|
2 |
2 |
if (exists $specs->{$name}{'maxlength'} and defined $specs->{$name}{'maxlength'}) |
|
2119
|
38 |
3 |
if ($maxlength % length($fill) == 0) { } |
|
2167
|
0 |
2 |
unless defined $comment |
|
2175
|
0 |
9 |
if $field->readonly |
|
2176
|
2 |
7 |
if $field->disabled |
|
2178
|
1 |
6 |
unless (defined $field->{'maxlength'}) |
|
2184
|
4 |
2 |
if (not $val =~ /^\s*\d+\s*$/ or $val + 0 <= 0) |
|
2225
|
0 |
0 |
if (@args % 2) |
|
2229
|
0 |
0 |
unless defined $comment |
|
2238
|
0 |
0 |
unless ($head_cache->{$abs}++) |
|
2242
|
0 |
0 |
unless ($res->is_success) |