| line |
true |
false |
branch |
|
100
|
7 |
70 |
if (($params[0] || '') eq 'tag' and lc($params[1] || '') eq 'window') { } |
|
111
|
28 |
49 |
if $CM |
|
118
|
42 |
153 |
if (ref $param) { } |
|
|
22 |
131 |
elsif ($param =~ /\s/ or 0 == @params) { } |
|
|
6 |
125 |
elsif ($param eq 'textNode') { } |
|
|
120 |
5 |
elsif ($param =~ /^[a-z]/) { } |
|
|
5 |
0 |
elsif ($param =~ /^[A-Z]/) { } |
|
148
|
64 |
144 |
if (ref $param or $param =~ /\s/ or 0 == @params) { } |
|
152
|
13 |
131 |
if ($param eq 'id') |
|
176
|
0 |
0 |
if ($CM) |
|
180
|
0 |
0 |
if ($server) |
|
191
|
0 |
0 |
if ($CM) |
|
202
|
0 |
6 |
unless ($CM) |
|
203
|
0 |
0 |
unless ($INC{'Test/More.pm'}) |
|
223
|
64 |
13 |
unless ($id) |
|
252
|
0 |
3 |
unless $C->isa('POE::XUL::TextNode') |
|
256
|
0 |
3 |
unless (2 == @_) |
|
257
|
0 |
0 |
unless $old |
|
261
|
1 |
2 |
if ($old and ref $text) { } |
|
|
2 |
0 |
elsif ($old) { } |
|
263
|
1 |
0 |
if &blessed($text) |
|
279
|
1 |
3 |
if not defined $index or $index < 0 |
|
281
|
0 |
3 |
if ($self->tag eq 'menulist') |
|
288
|
6 |
7 |
unless $t eq 'listitem' or $t eq 'menuitem' |
|
289
|
2 |
5 |
if $N == $index |
|
302
|
0 |
1 |
unless $CM |
|
321
|
22 |
0 |
if wantarray |
|
329
|
6 |
133 |
if ($LOGICAL_ATTS{$key}) |
|
330
|
3 |
3 |
unless $self->{'attributes'}{$key} |
|
332
|
0 |
3 |
if $self->{'attributes'}{$key} eq 'false' |
|
335
|
0 |
136 |
if $key eq 'style' |
|
345
|
4 |
137 |
if $key eq 'style' |
|
346
|
75 |
62 |
if ($key eq 'tag') |
|
352
|
9 |
128 |
if ($LOGICAL_ATTS{$key}) |
|
353
|
3 |
6 |
if (not $value or $value eq 'false') |
|
359
|
6 |
0 |
$value ? : |
|
366
|
4 |
130 |
if ($key eq 'value') |
|
371
|
49 |
85 |
if $CM |
|
383
|
0 |
5 |
if $key eq 'tag' |
|
384
|
2 |
3 |
if $CM |
|
402
|
1 |
16 |
if (@_ == 2) { } |
|
414
|
35 |
11 |
if (1 == @_) { } |
|
425
|
37 |
12 |
if $self->{'style_obj'} |
|
427
|
3 |
9 |
if $CM |
|
435
|
0 |
11 |
if (&blessed($value)) { } |
|
437
|
0 |
0 |
if $CM |
|
451
|
0 |
58 |
if $key =~ /DESTROY$/ |
|
454
|
58 |
0 |
if ($key =~ /^[a-z]/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[A-Z]/) { } |
|
455
|
52 |
6 |
if (@_ == 1) { } |
|
491
|
153 |
0 |
wantarray ? : |
|
509
|
1 |
1 |
unless defined $index |
|
510
|
0 |
2 |
if $index < 0 or $index > $child_count |
|
513
|
1 |
1 |
if ($self->{'children'}[$index]) |
|
523
|
8 |
55 |
unless ref $child |
|
532
|
9 |
13 |
if ($d_att) |
|
547
|
0 |
1 |
if $CM |
|
549
|
0 |
1 |
if $CM |
|
560
|
1 |
3 |
unless ($child and $index < @{$self->{'children'};}) |
|
561
|
0 |
1 |
unless $ENV{'AUTOMATED_TESTING'} |
|
566
|
3 |
0 |
if $CM |
|
568
|
3 |
0 |
if &blessed($child) |
|
580
|
1 |
0 |
if $child eq $C |
|
592
|
1 |
4 |
$is_node ? : |
|
593
|
1 |
4 |
$is_node ? : |
|
594
|
5 |
0 |
wantarray ? : |
|
601
|
78 |
0 |
if ($index > $N) { } |
|
609
|
35 |
43 |
if ($CM) |
|
617
|
35 |
0 |
if (defined $trueindex) |
|
628
|
0 |
0 |
if &blessed($id) |
|
629
|
0 |
0 |
unless $self->is_window |
|
642
|
0 |
5 |
if ($server) { } |
|
650
|
0 |
5 |
unless $state |
|
659
|
0 |
0 |
unless $listener |
|
691
|
10 |
48 |
if $CM |
|
705
|
4 |
18 |
$tag =~ /^((h|v|group)box)|(grid|row|(field-(name|value)))$/ ? : |
|
706
|
21 |
1 |
$children ? : |
|
715
|
22 |
0 |
if $self->{'default_id'} and $attributes{'id'} eq $self->{'default_id'} |
|
718
|
24 |
0 |
if defined $attributes{$k} |
|
723
|
2 |
22 |
if $_ ne 'tag' |
|
734
|
31 |
0 |
&blessed($_) ? : |