| line |
true |
false |
branch |
|
26
|
13 |
14 |
if (match_keyword($header, $part)) |
|
43
|
0 |
53 |
if (length $keyword == 0) |
|
47
|
0 |
53 |
unless ($keyword =~ /^$start_regex$keyword_regex*$/u) |
|
51
|
40 |
13 |
unless ($keyword =~ /\[/u) |
|
68
|
10 |
45 |
if (length $string <= 4) |
|
76
|
0 |
45 |
if ($string =~ /^\*/u) |
|
87
|
45 |
0 |
if ($string =~ /^([a-z]\w*[a-z_])(\d*)(\??)/iu) { } |
|
91
|
8 |
37 |
if ($string =~ /^...[aeiou]/iu) |
|
110
|
11 |
26 |
if (@a != @b) |
|
118
|
13 |
21 |
if ($b ne $a and $b ne scpi_shortform($a)) |
|
136
|
13 |
24 |
if (compare_headers($combination, $header)) |
|
147
|
4 |
0 |
unless defined $d |
|
163
|
0 |
105 |
if ($str =~ /^$WS*(;|\s*$)/u) |
|
169
|
102 |
182 |
if $str =~ /^\s*$/u |
|
171
|
35 |
147 |
if ($level == 0) { } |
|
172
|
0 |
35 |
if ($str =~ /^(\*\w+\??)$WS*(;|\s*$)/iu) { } |
|
|
1 |
34 |
elsif ($str =~ /^(\*\w+\??)$WS+/iu) { } |
|
|
26 |
8 |
elsif ($str =~ /^:/u) { } |
|
173
|
0 |
0 |
unless exists $dtop->{$1} |
|
178
|
1 |
0 |
unless exists $dtop->{$1} |
|
180
|
1 |
0 |
if ($str =~ /^$WS*(;|\s*$)/u) { } |
|
194
|
0 |
147 |
if ($str =~ /^\*/u) |
|
197
|
0 |
147 |
if ($str =~ /^:/u) |
|
203
|
0 |
181 |
if $str =~ /^\s*$/u |
|
205
|
77 |
104 |
if ($str =~ /^;/u) |
|
207
|
3 |
74 |
if $str =~ /^\s*$/u |
|
209
|
23 |
51 |
if $str =~ /^[\*\:]/u |
|
216
|
0 |
104 |
if ($str =~ /^(\w+\??)$WS*(;|\s*$)/iu) { } |
|
|
27 |
77 |
elsif ($str =~ /^(\w+)$WS*:/iu) { } |
|
|
77 |
0 |
elsif ($str =~ /^(\w+\??)$WS+/iu) { } |
|
217
|
0 |
0 |
unless exists $d->{$1} |
|
221
|
21 |
6 |
unless exists $d->{$1} |
|
225
|
77 |
0 |
unless exists $d->{$1} |
|
245
|
154 |
171 |
if ($str =~ /^;/u) { } |
|
|
1 |
170 |
elsif ($str =~ /^\#([1-9])/u) { } |
|
|
0 |
170 |
elsif ($str =~ /^\#0/u) { } |
|
|
10 |
160 |
elsif ($str =~ /^(\"(?:([^\"]+|\"\")*)\")$WS*/u) { } |
|
|
0 |
160 |
elsif ($str =~ /^(\'(?:([^\']+|\'\')*)\')$WS*/u) { } |
|
|
160 |
0 |
elsif ($str =~ /^([\w\-\+\.\%\!\#\~\=\*]+)$WS*/iu) { } |
|
246
|
153 |
1 |
if $lastsp |
|
254
|
1 |
0 |
if (length $str > $nd + 2 + $nnd) { } |
|
288
|
14 |
157 |
if ($str =~ /^$WS*,/u) |
|
290
|
14 |
0 |
if $lastsp |
|
295
|
0 |
0 |
if $lastsp |
|
303
|
3 |
0 |
unless defined $d |
|
306
|
0 |
3 |
unless $str =~ /^[\*:]/u |
|
307
|
1 |
2 |
unless $str =~ /;$/u |
|
314
|
79 |
12 |
if ($str =~ /^;/u) |
|
321
|
76 |
165 |
if ($k eq '_VALUE') { } |
|
327
|
162 |
3 |
if $j < $#cur |
|
334
|
3 |
88 |
if $str =~ /^\s*;?\s*$/u |
|
337
|
79 |
9 |
if ($level == 0) |
|
340
|
52 |
27 |
if ($str =~ /^\w/iu) { } |
|
343
|
52 |
0 |
if (defined $v and $v eq '_VALUE') { } |
|
347
|
0 |
0 |
if defined $v |
|
353
|
26 |
1 |
if ($str =~ /^:/u) |
|
356
|
0 |
27 |
if $str =~ /^\s*;?\s*$/u |
|
358
|
1 |
26 |
if ($str =~ /^(\*\w+\??)$WS*;/iu) { } |
|
|
0 |
26 |
elsif ($str =~ /^(\*\w+\??)$WS+/iu) { } |
|
|
19 |
7 |
elsif ($str =~ /^(\w+)$WS*:/iu) { } |
|
|
0 |
7 |
elsif ($str =~ /^(\w+\??)$WS*;/iu) { } |
|
|
7 |
0 |
elsif ($str =~ /^(\w+\??)$WS*/iu) { } |
|
407
|
0 |
88 |
if $str =~ /^\s*;?\s*$/u |
|
409
|
80 |
8 |
if ($level > 0) |
|
410
|
0 |
80 |
if ($str =~ /^[\*:]/u) |
|
413
|
9 |
71 |
if ($str =~ /^(\w+)$WS*:/iu) { } |
|
|
2 |
69 |
elsif ($str =~ /^(\w+\??)$WS*;/iu) { } |
|
|
69 |
0 |
elsif ($str =~ /^(\w+\??)$WS+/iu) { } |
|
451
|
24 |
74 |
unless defined $override |
|
452
|
23 |
75 |
unless defined $top |
|
458
|
44 |
75 |
if ($k eq '_VALUE') { } |
|
462
|
29 |
46 |
if ($top) |
|
463
|
0 |
29 |
if ($k =~ /^(\*\w+\??)/iu) |
|
465
|
0 |
0 |
if (defined $h->{$k}) |
|
472
|
75 |
0 |
if ($k =~ /^([a-z]\w*[a-z_])$WS*(\d*)(\??)/iu) { } |
|
475
|
0 |
75 |
unless defined $num |
|
477
|
0 |
75 |
unless defined $q |
|
483
|
49 |
171 |
if (uc $ko eq uc $m or $shorter eq uc $m) |
|
492
|
49 |
26 |
if $ov |
|
513
|
23 |
0 |
if (ref $h eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $h eq 'ARRAY') { } |
|
541
|
44 |
98 |
if (ref $h eq '') { } |
|
548
|
98 |
0 |
if (@keys) { } |
|
549
|
75 |
23 |
if $fk ne "" |