| 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) |
|
236
|
0 |
51 |
unless ($ok) |
|
240
|
0 |
0 |
if $url |
|
247
|
2 |
0 |
if $url |
|
249
|
2 |
0 |
if $self->response |
|
276
|
1 |
9 |
unless ($ok) |
|
278
|
1 |
0 |
if $url |
|
280
|
1 |
0 |
if $self->response |
|
331
|
2 |
1 |
unless exists $opts{'content'} |
|
336
|
0 |
3 |
unless ($ok) |
|
338
|
0 |
0 |
if $url |
|
340
|
0 |
0 |
if $self->response |
|
362
|
3 |
1 |
if ($self->can('delete')) { } |
|
382
|
0 |
1 |
if ref $uri eq "WWW::Mechanize::Link" |
|
383
|
1 |
0 |
$self->base ? : |
|
424
|
0 |
1 |
if (ref $parms ne "HASH") |
|
464
|
0 |
2 |
unless (defined $desc) |
|
466
|
0 |
0 |
unless defined $desc |
|
469
|
0 |
2 |
if (ref $parms ne "HASH") |
|
505
|
1 |
1 |
if (ref $button eq 'ARRAY') { } |
|
512
|
0 |
2 |
unless ($response) |
|
532
|
21 |
40 |
if (@_) |
|
535
|
2 |
19 |
if (not defined $flex) { } |
|
|
5 |
14 |
elsif (ref $flex eq 'HASH') { } |
|
|
4 |
10 |
elsif (ref $flex eq 'ARRAY') { } |
|
551
|
45 |
16 |
unless (defined $desc) |
|
552
|
0 |
45 |
if ref $url eq "WWW::Mechanize::Link" |
|
609
|
3 |
1 |
if (defined $actual_value) { } |
|
657
|
0 |
0 |
$desc ? : |
|
661
|
0 |
0 |
if ($self->is_html) { } |
|
680
|
0 |
0 |
unless (eval "use $module; 1;") |
|
685
|
0 |
0 |
if (ref $lint and $lint->isa('HTML::Lint')) { } |
|
699
|
0 |
0 |
if ($nerrors) { } |
|
703
|
0 |
0 |
$nerrors == 1 ? : |
|
730
|
0 |
0 |
$desc ? : |
|
734
|
0 |
0 |
if ($self->is_html) { } |
|
754
|
0 |
0 |
unless (eval "use $module; 1;") |
|
759
|
0 |
0 |
if (ref $tidy and $tidy->isa('HTML::Tidy5')) { } |
|
771
|
0 |
0 |
if ($nmessages) { } |
|
775
|
0 |
0 |
$nmessages == 1 ? : |
|
816
|
1 |
1 |
unless defined $desc |
|
834
|
0 |
1 |
unless defined $desc |
|
852
|
0 |
0 |
unless defined $desc |
|
870
|
0 |
0 |
unless defined $desc |
|
888
|
0 |
0 |
unless defined $desc |
|
906
|
0 |
0 |
unless defined $desc |
|
924
|
0 |
0 |
unless defined $desc |
|
942
|
4 |
3 |
if (ref $str) |
|
945
|
1 |
2 |
unless defined $desc |
|
962
|
4 |
3 |
if (ref $str) |
|
965
|
1 |
2 |
unless defined $desc |
|
980
|
0 |
0 |
unless defined $desc |
|
1024
|
4 |
3 |
if (ref $str) |
|
1043
|
4 |
0 |
if (ref $str) |
|
1046
|
0 |
0 |
unless defined $desc |
|
1110
|
0 |
2 |
unless defined $desc |
|
1127
|
10 |
14 |
if &$match($tagtext) |
|
1144
|
1 |
2 |
unless defined $desc |
|
1172
|
1 |
3 |
unless defined $desc |
|
1176
|
1 |
3 |
unless (defined $usable_regex) |
|
1208
|
0 |
3 |
unless defined $desc |
|
1212
|
1 |
2 |
unless (defined $usable_regex) |
|
1253
|
0 |
6 |
unless defined $desc |
|
1283
|
1 |
2 |
unless defined $desc |
|
1313
|
0 |
2 |
unless defined $desc |
|
1345
|
1 |
3 |
unless (defined $usable_regex) |
|
1352
|
1 |
2 |
unless defined $desc |
|
1383
|
1 |
3 |
unless (defined $usable_regex) |
|
1390
|
1 |
2 |
unless defined $desc |
|
1404
|
0 |
3 |
$url_count == 1 ? : |
|
1421
|
37 |
2 |
if ($mech->follow_link('url', $url)) { } |
|
1422
|
30 |
7 |
if ($test eq 'is') { } |
|
1423
|
7 |
23 |
unless $mech->status == $status |
|
1426
|
1 |
6 |
if $mech->status == $status |
|
1451
|
33 |
0 |
if ($mech->follow_link('url', $url)) { } |
|
1453
|
18 |
15 |
if ($test eq 'like') { } |
|
1454
|
6 |
12 |
unless $content =~ /$regex/ |
|
1457
|
6 |
9 |
if $content =~ /$regex/ |
|
1474
|
22 |
3 |
if (ref $links eq 'ARRAY') { } |
|
1476
|
22 |
0 |
if (defined $link) |
|
1477
|
21 |
1 |
if (ref $link eq 'WWW::Mechanize::Link') { } |
|
1515
|
0 |
0 |
if (defined $html) |
|
1519
|
0 |
0 |
if (ref $token->[1] eq "HASH") |
|
1520
|
0 |
0 |
if (exists $token->[1]{$attr}) |
|
1524
|
0 |
0 |
ref $value eq 'Regexp' ? : |
|
1525
|
0 |
0 |
if ($matched) |
|
1528
|
0 |
0 |
unless (wantarray) |
|
1537
|
0 |
0 |
unless wantarray |
|
1560
|
28 |
0 |
if (defined $html) |
|
1563
|
24 |
4 |
if ($found >= 0) |
|
1567
|
125 |
65 |
if (ref $token->[1] eq "HASH") |
|
1569
|
98 |
27 |
unless defined $actual_id |
|
1570
|
25 |
100 |
if ($actual_id eq $id) |
|
1573
|
19 |
6 |
unless (wantarray) |
|
1582
|
22 |
6 |
unless wantarray |
|
1591
|
0 |
28 |
if (@_) { } |
|
1596
|
28 |
0 |
if ($self->is_html) |
|
1619
|
10 |
1 |
if (defined $got) { } |
|
1645
|
4 |
1 |
if (defined $got) { } |
|
1673
|
2 |
26 |
unless ($self->{'ids'}) |
|
1681
|
4 |
6 |
if (my $id = $attr->{'id'}) |
|
1732
|
1 |
3 |
if defined $msg |
|
1784
|
1 |
3 |
if defined $msg |
|
1793
|
9 |
0 |
defined $id ? : |
|
1881
|
37 |
88 |
if (@_) |
|
1913
|
37 |
44 |
if (@_) |
|
1951
|
6 |
0 |
if ($form) |
|
1986
|
0 |
6 |
if (not %{$patterns;}) { } |
|
1996
|
12 |
15 |
unless exists $hash->{$pattern_key} and $hash->{$pattern_key} =~ /$patterns->{$pattern_key}/ |
|
1997
|
12 |
15 |
unless $matches_everything |
|
2000
|
11 |
12 |
if $matches_everything |
|
2072
|
3 |
0 |
if (exists $options->{'fill'} and defined $options->{'fill'} and length $options->{'fill'} > 0) |
|
2078
|
1 |
6 |
if (exists $options->{'ignore'}) |
|
2084
|
2 |
5 |
if (exists $options->{'specs'}) |
|
2096
|
0 |
42 |
if $field->readonly |
|
2097
|
0 |
42 |
if $field->disabled |
|
2102
|
1 |
41 |
if exists $ignore->{$name} |
|
2108
|
34 |
7 |
if ($field->type ne "textarea") |
|
2109
|
27 |
7 |
if (exists $field->{'maxlength'}) |
|
2117
|
4 |
37 |
if (exists $specs->{$name}) |
|
2120
|
3 |
0 |
if (exists $specs->{$name}{'fill'} and defined $specs->{$name}{'fill'} and length $specs->{$name}{'fill'} > 0) |
|
2125
|
2 |
2 |
if (exists $specs->{$name}{'maxlength'} and defined $specs->{$name}{'maxlength'}) |
|
2132
|
38 |
3 |
if ($maxlength % length($fill) == 0) { } |
|
2180
|
0 |
2 |
unless defined $comment |
|
2188
|
0 |
9 |
if $field->readonly |
|
2189
|
2 |
7 |
if $field->disabled |
|
2191
|
1 |
6 |
unless (defined $field->{'maxlength'}) |
|
2197
|
4 |
2 |
if (not $val =~ /^\s*\d+\s*$/ or $val + 0 <= 0) |
|
2238
|
0 |
0 |
if (@args % 2) |
|
2242
|
0 |
0 |
unless defined $comment |
|
2251
|
0 |
0 |
unless ($head_cache->{$abs}++) |
|
2255
|
0 |
0 |
unless ($res->is_success) |
|
2273
|
3 |
0 |
$uri ? : |