| line |
!l |
l&&!r |
l&&r |
condition |
|
42
|
105 |
3 |
54 |
$elem_elems{$_->tag} && $_->attr('type') ne 'image' |
|
156
|
3 |
16 |
5 |
$tag eq 'input' and $type =~ /^(?:submit|image)\z/ |
|
|
18 |
0 |
1 |
$tag eq 'button' and ($type || 'submit') eq 'submit' |
|
158
|
6 |
0 |
0 |
$name and $_->name ne $name |
|
193
|
0 |
2 |
0 |
$type and $type ne $_->type |
|
195
|
2 |
0 |
0 |
$no and $no != $c |
|
208
|
30 |
0 |
0 |
$type and $type ne $_->type |
|
233
|
1 |
4 |
3 |
@v == 1 and ref $v[0] |
|
442
|
4 |
3 |
0 |
$btn->disabled && croak("The value '$_[0]' has been disabled for field '${\$self->name;}'") |
|
474
|
0 |
0 |
7 |
defined $name and length $name |
|
797
|
0 |
0 |
0 |
$opt->disabled && croak("The value '$_[0]' has been disabled for field '${\$self->name;}'") |
|
907
|
40 |
0 |
11 |
@_ and !$ret != !$_[0] |
|
987
|
68 |
18 |
23 |
@_ and !$ret != !($self->{'_HTML_DOM_checked'} = shift()) |
|
|
86 |
8 |
15 |
@_ and !$ret != !($self->{'_HTML_DOM_checked'} = shift()) and not $ret |
|
|
26 |
7 |
8 |
@_ and !$ret != !($self->{'_HTML_DOM_checked'} = shift()) and not $ret and $self->type eq 'radio' |
|
989
|
0 |
0 |
8 |
my $form = $self->form and defined(my $name = $self->name) |
|
996
|
8 |
28 |
18 |
$_ != $self and $_->type eq 'radio' |
|
|
36 |
8 |
10 |
$_ != $self and $_->type eq 'radio' and $_->name eq $name |
|
1017
|
86 |
61 |
40 |
(caller) =~ /^(?:HTML::Form(?:::Input)?|WWW::Mechanize)\z/ and ($type = $self->type) =~ /^(?:button|reset)\z/ && (return) || $type eq 'checkbox' |
|
1116
|
0 |
2 |
54 |
defined $name and length $name |
|
1252
|
0 |
0 |
3 |
defined $name and length $name |
| line |
l |
!l |
condition |
|
58
|
3 |
3 |
$self->{'_HTML_DOM_mg_elems'} ||= [] |
|
66
|
7 |
0 |
$self->{'_HTML_DOM_elems'} ||= [] |
|
155
|
23 |
1 |
eval {
do {
$_->tag
}
} || '' |
|
156
|
0 |
1 |
$type || 'submit' |
|
202
|
0 |
30 |
$no ||= 1 |
|
287
|
20 |
10 |
Encode::resolve_alias($enc) || (return) |
|
349
|
16 |
18 |
$self->acceptCharset || (next) |
|
358
|
4 |
22 |
($self->ownerDocument || (next))->charset || (next) |
|
709
|
7 |
2 |
delete $self->{'_HTML_DOM_f'} || (return $ret || ()) |
|
748
|
1 |
0 |
$self->options->item(shift()) || (return) |
|
902
|
14 |
23 |
$self->attr('selected') || 0 |
|
1060
|
0 |
14 |
defined $_ or $_ = 1 |
|
1078
|
3 |
0 |
(shift())->target->form || (return) |
|
1080
|
1 |
0 |
(shift())->target->form || (return) |
|
1267
|
2 |
27 |
$a->type || 'submit' |
|
1276
|
4 |
0 |
(shift())->target->form || (return) |
|
1278
|
1 |
0 |
(shift())->target->form || (return) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
20
|
4338 |
682 |
23 |
$self->isa(scalar caller) or (caller)->isa('HTML::DOM::_TreeBuilder') |
|
33
|
42 |
14 |
0 |
$self->{'_HTML_DOM_elems'} ||= do {
my $collection = 'HTML::DOM::Collection::Elements'->new(my $list = 'HTML::DOM::NodeList::Magic'->new(sub {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"}
grep(($elem_elems{$_->tag} && $_->attr('type') ne 'image'), $self->descendants), @{[] unless $self->{'_HTML_DOM_mg_elems'};};
}
));
$self->ownerDocument->_register_magic_node_list($list);
$collection
} |
|
156
|
5 |
19 |
0 |
$tag eq 'input' and $type =~ /^(?:submit|image)\z/ or $tag eq 'button' and ($type || 'submit') eq 'submit' |
|
225
|
0 |
132 |
43 |
not defined $n or $n ne $name |
|
246
|
1 |
5 |
0 |
$err ||= $@ |
|
273
|
0 |
6 |
8 |
not defined $n or $seen{$n}++ |
|
287
|
18 |
2 |
0 |
$xwfu ? $ascii_encodings_re : $encodings_re ||= qr/^${\join('|', map(quotemeta($_), 'Encode'->encodings('Byte')));}\z/ |
|
321
|
4 |
23 |
0 |
$charsets->[0] || (++$fallback, 'utf8') |
|
338
|
19 |
9 |
6 |
$method eq 'get' || !($self->enctype =~ m[^multipart/form-data\z]i) |
|
513
|
0 |
43 |
123 |
($elem = $list->item($_))->id eq $name or $elem->attr('name') eq $name |
|
525
|
0 |
22 |
22 |
$_->id eq $name || $_->attr('name') eq $name |
|
706
|
29 |
9 |
23 |
($self->look_up('_tag', 'form'))[0] || $self->{'_HTML_DOM_f'} |
|
909
|
1 |
7 |
3 |
not $sel or $sel->multiple |
|
1017
|
0 |
40 |
59 |
($type = $self->type) =~ /^(?:button|reset)\z/ && (return) || $type eq 'checkbox' |
|
1127
|
0 |
1 |
4 |
uc $form->method ne 'POST' or lc $form->enctype ne 'multipart/form-data' |
|
1139
|
0 |
1 |
3 |
not defined $file or length $file == 0 |
|
1190
|
10 |
1 |
0 |
$_[0]->firstChild || (@_ > 1 && $_[0]->appendChild((shift())->ownerDocument->createTextNode(shift())), (return '')) |
|
1249
|
9 |
0 |
6 |
not $type or $type eq 'submit' |