| line |
true |
false |
branch |
|
77
|
4 |
139 |
if (ref $macro) |
|
80
|
115 |
24 |
if (defined $macro and $macro ne '' and $macro ne '1') |
|
81
|
115 |
0 |
$macro ? : |
|
88
|
1 |
20 |
if (ref $macro) |
|
92
|
20 |
0 |
if (defined $macro and $macro ne '' and $macro ne '1') |
|
93
|
20 |
0 |
$macro ? : |
|
101
|
3 |
116 |
if (ref $macro) |
|
104
|
96 |
20 |
if (defined $macro and $macro ne '' and $macro ne '1') |
|
149
|
14 |
57 |
if (ref $checked_at) |
|
158
|
8 |
63 |
if ($len < 2) |
|
159
|
5 |
3 |
if defined $checked_at and $checked_at == 0 or $len == 0 |
|
167
|
23 |
43 |
if ($len < 3 and defined $checked_at) |
|
169
|
23 |
0 |
if ($checked_at == 1) { } |
|
|
0 |
0 |
elsif ($checked_at == 0) { } |
|
174
|
23 |
0 |
if (defined $check) |
|
182
|
20 |
6 |
if ($len == 2 and not defined $checked_at or $len == 3 and defined $checked_at and $checked_at == 2) |
|
189
|
5 |
1 |
if ($len == 3 and defined $checked_at and $checked_at == 1) |
|
198
|
3 |
15 |
if ($have_checked_last) |
|
210
|
10 |
8 |
if (defined $checked_at) { } |
|
|
2 |
6 |
elsif (defined $front_chop) { } |
|
244
|
71 |
0 |
if (ref $_) { } |
|
246
|
11 |
60 |
if ($_->{'utf8'}) |
|
249
|
5 |
6 |
if $_->{'utf8'} eq 'no' |
|
264
|
43 |
23 |
if ($type eq $default_type and length $_->{'name'} and length $_->{'name'} == $_->{'name'} =~ tr/0-9A-Z_a-z// and not defined $_->{'macro'} and not defined $_->{'value'} and not defined $_->{'default'} and not defined $_->{'pre'} and not defined $_->{'post'} and not defined $_->{'def_pre'} and not defined $_->{'def_post'} and not defined $_->{'weight'}) { } |
|
279
|
0 |
7 |
unless (defined $declare_types) |
|
282
|
0 |
0 |
if $used_types{$_} |
|
287
|
7 |
0 |
if ($declare_types) |
|
295
|
3 |
4 |
if (@complex) |
|
299
|
23 |
0 |
if defined $item->{'type'} |
|
302
|
27 |
134 |
if (defined $value) |
|
303
|
3 |
24 |
if (ref $value) { } |
|
344
|
1 |
73 |
if ($pre) |
|
350
|
0 |
1 |
unless $pre =~ /;$/ |
|
353
|
0 |
74 |
unless defined $type |
|
354
|
0 |
74 |
unless $self->valid_type($type) |
|
360
|
0 |
74 |
if (length $post) |
|
362
|
0 |
0 |
unless $post =~ /;$/ |
|
366
|
74 |
0 |
if defined $return |
|
367
|
1 |
73 |
if $close |
|
392
|
53 |
20 |
unless defined $value |
|
395
|
0 |
73 |
unless (defined $type) |
|
405
|
1 |
72 |
ref $value ? : |
|
409
|
57 |
16 |
if (defined $macro and $macro ne '' and $macro ne '1') |
|
414
|
56 |
1 |
if (not defined $default) { } |
|
416
|
56 |
0 |
if defined $notdef |
|
418
|
1 |
0 |
ref $default ? : |
|
437
|
11 |
60 |
if (ref $item eq 'ARRAY') { } |
|
440
|
0 |
11 |
unless ref $either eq 'HASH' |
|
445
|
0 |
60 |
if $item->{'utf8'} |
|
459
|
7 |
64 |
if ($yes) { } |
|
|
4 |
60 |
elsif ($no) { } |
|
464
|
11 |
60 |
if ($either) { } |
|
466
|
2 |
9 |
if ($yes and $no) |
|
503
|
10 |
4 |
if (defined $comment) |
|
509
|
0 |
60 |
unless length $_ == $namelen |
|
513
|
49 |
11 |
if tr/0-9A-Z_a-z// == length $_ |
|
538
|
0 |
176 |
if $ord > 255 |
|
539
|
118 |
58 |
if $ord > $max |
|
540
|
56 |
120 |
if $ord < $min |
|
561
|
22 |
27 |
if ($rms < $best[0] or $rms == $best[0] and $max - $min < $best[1]) |
|
565
|
0 |
14 |
unless defined $best[2] |
|
572
|
2 |
12 |
if ($do_front_chop) { } |
|
578
|
0 |
54 |
if length $char != 1 |
|
580
|
0 |
54 |
if ord $char > 255 |
|
586
|
1 |
6 |
ref $a eq 'ARRAY' ? : |
|
587
|
1 |
6 |
ref $b eq 'ARRAY' ? : |
|
591
|
0 |
0 |
unless ($r->{'weight'} || 0) <=> ($l->{'weight'} || 0) |
|
596
|
14 |
46 |
if ($do_front_chop) { } |
|
690
|
37 |
54 |
if (ref $orig) { } |
|
698
|
0 |
37 |
if defined $macro and $macro eq $name |
|
699
|
16 |
21 |
if defined $macro |
|
700
|
0 |
37 |
if defined $value and $value eq $name |
|
701
|
22 |
15 |
if defined $value |
|
705
|
4 |
255 |
if defined $value |
|
715
|
0 |
91 |
unless $self->valid_type($item->{'type'}) |
|
719
|
85 |
6 |
if ($name =~ tr/\000-\177// == length $name or $] < 5.0055 or $args->{'disable_utf8_duplication'}) { } |
|
722
|
0 |
85 |
if (exists $items->{$name}) |
|
728
|
0 |
6 |
if (exists $items->{$name} and ref $items->{$name} ne 'ARRAY') |
|
733
|
5 |
1 |
if ($name =~ tr/\000-\377// == length $name) |
|
751
|
0 |
6 |
if ($items->{$name}[0]) |
|
896
|
10 |
7 |
if (ref $breakout) { } |
|
909
|
1 |
6 |
unless (ref $what) |
|
928
|
7 |
10 |
unless defined $namelen |
|
933
|
10 |
7 |
if (defined $namelen) { } |
|
954
|
12 |
25 |
unless $by_length[$i] |
|
956
|
11 |
14 |
if (@{$by_length[$i];} == 1) { } |
|
|
4 |
10 |
elsif (@{$by_length[$i];} < $breakout) { } |
|
958
|
4 |
7 |
if ($only_thing->{'utf8'}) { } |
|
959
|
2 |
2 |
if ($only_thing->{'utf8'} eq 'yes') { } |
|
978
|
7 |
45 |
if $_->{'utf8'} |
|
1000
|
17 |
0 |
if $notfound |