| line |
!l |
l&&!r |
l&&r |
condition |
|
149
|
0 |
1 |
6 |
$self->is_html and $self->document |
|
152
|
4 |
0 |
2 |
exists $parms{'format'} and $parms{'format'} eq 'text' |
|
177
|
0 |
1 |
15 |
$link and $link->tag =~ /^a/ |
|
235
|
0 |
2 |
6 |
$meth eq 'GET' and $new_uri->eq($self->uri) |
|
311
|
17 |
15 |
389 |
!defined($$self{'Scripter_dumb'}) || $$self{'Scripter_dumb'} and $self->is_html |
|
484
|
0 |
0 |
0 |
$scriptable{$self} and %{$script_handlers{$self};} |
|
503
|
2 |
3 |
2 |
$1 eq 'nput' and $target->type ne 'image' |
|
607
|
121 |
5 |
40 |
exists $link_tags{$tag} and defined $_->attr($link_tags{$tag}) |
|
663
|
293 |
169 |
53 |
$base eq 'about:blank' and (my $parent = $self->parent) != $self |
|
683
|
0 |
0 |
0 |
$button and $_->name ne $button |
|
688
|
2 |
0 |
0 |
$button and not $input |
|
843
|
4 |
7 |
14 |
defined $url and CORE::length $url |
|
977
|
1 |
26 |
0 |
($jh ||= $self->_handler_for_lang('JavaScript')) && $jh->eval($self, $$_[1]) |
|
|
83 |
2 |
0 |
$@ && $self->warn($@) |
|
1015
|
2 |
23 |
0 |
$self->count_timers > $min and !$args{'max_wait'} || time - $start_time < $args{'max_wait'} |
|
1035
|
39 |
0 |
10 |
not CORE::length $name and my $doc = $self->document |
|
1083
|
3 |
1 |
4 |
$$named{$name} && ${$$named{$name};}->window_group |
|
1175
|
1 |
1 |
2 |
$po and defined blessed($po) |
|
|
2 |
1 |
1 |
$po and defined blessed($po) and $po->can('clone') |
|
1428
|
105 |
6 |
10 |
$max and @$self > $max |
|
1445
|
33 |
8 |
493 |
exists $res{$refaddr} and not $seen{$refaddr}++ |
|
1658
|
1 |
0 |
2 |
not defined $old and defined wantarray |
|
1675
|
0 |
0 |
10 |
not defined $old and defined wantarray |
| line |
l |
!l |
condition |
|
145
|
35 |
0 |
(shift())->document || (return) |
|
289
|
406 |
15 |
$res->content_type || '' |
|
425
|
7 |
0 |
$cs || $elem->charset || $tree->charset || 'latin1' |
|
433
|
9 |
1 |
$elem->firstChild || (return) |
|
537
|
133 |
212 |
$cs || 'iso-8859-1' |
|
662
|
515 |
24 |
$self->document || (return $self->SUPER::base(@_)) |
|
705
|
0 |
0 |
$continue || (return) |
|
800
|
0 |
1 |
$scrn{$self} ||= bless(\my($foo), 'WWW::Scripter::Screen') |
|
812
|
7 |
8 |
$timeouts{$doc} ||= [] |
|
828
|
4 |
1 |
$timers{$doc} ||= [] |
|
897
|
186 |
2 |
$doc or '' |
|
966
|
85 |
35 |
$$timers{$self->document} || (next) |
|
1012
|
1 |
2 |
$args{'interval'} || 0.1 |
|
1013
|
1 |
2 |
$args{'min_timers'} || 0 |
|
1078
|
5 |
3 |
($$self{'Scripter_n'} ||= &fieldhash({}))->{$self->response} ||= {} |
|
1140
|
12 |
2 |
$$self{'plugins'} ||= {} |
|
1158
|
5 |
0 |
$$self{'plugins'}{$plugin} || 1 |
|
1194
|
6 |
0 |
$self->document || (last) |
|
1413
|
2 |
0 |
$$self[$_][1] || 0 |
|
1417
|
1 |
3 |
$to_delete || 0 |
|
1857
|
7 |
0 |
(shift())->SUPER::FETCH(@_) || (return) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
200
|
12 |
1 |
0 |
$self->find_target($dom_link->target) || $self |
|
230
|
0 |
8 |
0 |
$new_uri ||= $orig_uri->clone |
|
256
|
235 |
0 |
0 |
$meth eq 'GET' or $meth eq 'POST' |
|
311
|
404 |
0 |
17 |
!defined($$self{'Scripter_dumb'}) || $$self{'Scripter_dumb'} |
|
328
|
9 |
7 |
0 |
$$self{'Scripter_f'} ||= do {
(my $clone = $self->clone->clear_history(1))->dom_enabled(0);
$clone->max_history(1);
$clone
} |
|
367
|
4 |
1 |
0 |
$self->find_target($link->target) || $self |
|
372
|
2 |
0 |
0 |
$self->find_target($form->target) || $self |
|
555
|
0 |
7 |
338 |
$$self{'form'} ||= $$self{'forms'}[0] |
|
573
|
27 |
0 |
3 |
$script_handlers{$self}{'default'} || () |
|
607
|
32 |
8 |
0 |
$tag ne 'meta' or lc $_->attr('http-equiv') eq 'refresh' |
|
650
|
3 |
0 |
0 |
$_[0]->find_target($form->target) || $_[0] |
|
713
|
1 |
0 |
0 |
$self->find_target($form->target) || $self |
|
772
|
0 |
0 |
0 |
$$self{'Scripter_confirm'} || $self->die('There is no default confirm function') |
|
778
|
0 |
0 |
0 |
$$self{'Scripter_prompt'} || $self->die('There is no default prompt function') |
|
785
|
234 |
134 |
0 |
$$self{'Scripter_loc'} ||= 'WWW::Scripter::Location'->new($self) |
|
794
|
0 |
3 |
0 |
$navi{$self} ||= 'WWW::Scripter::Navigator'->new($self) |
|
848
|
10 |
4 |
0 |
$target ||= $self->top |
|
897
|
139 |
49 |
0 |
$frames{$doc or ''} ||= 'WWW::Scripter::Frames'->new($_[0], $doc) |
|
977
|
43 |
0 |
42 |
reftype($$_[1]) eq 'CODE' || exists $INC{'overload.pm'} && defined blessed($$_[1]) && overload::Method($$_[1], '&{}') |
|
1006
|
32 |
0 |
4 |
$count || () |
|
1015
|
2 |
20 |
1 |
!$args{'max_wait'} || time - $start_time < $args{'max_wait'} |
|
1078
|
6 |
2 |
0 |
$$self{'Scripter_n'} ||= &fieldhash({}) |
|
1128
|
0 |
0 |
0 |
$h || $self->die(defined $lang ? "No scripting handlers have been registered for $lang" : 'No scripting handlers have been registered') |
|
1381
|
2 |
2 |
45 |
$new_pos < 0 or $new_pos > $#$self |
|
1582
|
2 |
0 |
0 |
$1 || length $2 |