| line |
true |
false |
branch |
|
40
|
119 |
0 |
if ($inval) { } |
|
44
|
0 |
119 |
unless defined $key and $key ne '' |
|
45
|
119 |
0 |
if ($val =~ /^(\+?)(\d*)(\D+)(\d*)/io) |
|
48
|
1 |
118 |
if ($rel eq '+') { } |
|
|
0 |
118 |
elsif ($2 ne '') { } |
|
55
|
0 |
119 |
unless defined $len |
|
56
|
7 |
112 |
if not defined $pos or $pos eq '' |
|
58
|
27 |
92 |
if ($val eq 'f' or $val eq 'v' or $val =~ /^[l]/io) { } |
|
|
82 |
10 |
elsif ($val eq 'F' or $val =~ /^[s]/io) { } |
|
59
|
4 |
23 |
$len ne '' ? : |
|
61
|
0 |
82 |
$len ne '' ? : |
|
63
|
0 |
10 |
$len ne '' ? : |
|
86
|
0 |
1134 |
if $pos eq '' |
|
87
|
4 |
1130 |
if ($arrlen ne '') { } |
|
127
|
2292 |
10 |
if not defined $arrlen or $arrlen eq '' |
|
128
|
2 |
2300 |
if $arrlen eq '*' |
|
132
|
6 |
2328 |
if ($type eq 'f') { } |
|
|
6 |
2322 |
elsif ($type eq 'v') { } |
|
|
0 |
2322 |
elsif ($type eq 'F') { } |
|
|
36 |
2286 |
elsif ($type =~ /^[l]/io) { } |
|
|
2266 |
20 |
elsif ($type =~ /^[s]/io) { } |
|
|
0 |
20 |
elsif ($type eq 'c') { } |
|
136
|
0 |
6 |
if $res > 32767 |
|
152
|
0 |
0 |
if $res > 1 |
|
160
|
0 |
36 |
if $type eq 'l' and $res >= 2147483648 |
|
166
|
572 |
1694 |
if $type eq 's' and $res >= 32768 |
|
181
|
10 |
2292 |
wantarray ? : |
|
201
|
4 |
190 |
if ($arrlen ne '') { } |
|
228
|
0 |
196 |
if $arrlen eq '*' |
|
229
|
192 |
4 |
if $arrlen eq '' |
|
234
|
6 |
194 |
if ($type eq 'f') { } |
|
|
6 |
188 |
elsif ($type eq 'v') { } |
|
|
0 |
188 |
elsif ($type eq 'F') { } |
|
|
36 |
152 |
elsif ($type =~ /^[l]/io) { } |
|
|
132 |
20 |
elsif ($type =~ /^[s]/io) { } |
|
|
0 |
20 |
elsif ($type eq 'c') { } |
|
242
|
6 |
0 |
if ($res =~ s/\.([0-9a-f]+)$//io) { } |
|
259
|
0 |
36 |
if $type eq 'L' and $res < 0 |
|
264
|
0 |
132 |
if $type eq 'S' and $res < 0 |
|
312
|
122 |
0 |
if $] >= 5.006 |
|
316
|
0 |
0 |
if ($dat < 128) { } |
|
|
0 |
0 |
elsif ($dat < 2048) { } |
|
|
0 |
0 |
elsif ($dat >= 55296 and $dat < 56320) { } |
|
348
|
122 |
0 |
if $^V ge v5.6.0 |
|
353
|
0 |
0 |
if ($str =~ s/^([\x00-\x7F]+)//o) { } |
|
|
0 |
0 |
elsif ($str =~ s/^([\xC0-\xDF])([\x80-\xBF])//o) { } |
|
|
0 |
0 |
elsif ($str =~ s/^([\0xE0-\xEF])([\x80-\xBF])([\x80-\xBF])//o) { } |
|
|
0 |
0 |
elsif ($str =~ s/^([\xF0-\xF7])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])//o) { } |
|
|
0 |
0 |
elsif ($str =~ s/^[\xF8-\xFF][\x80-\xBF]*//o) { } |
|
462
|
0 |
0 |
unless defined $num |
|
463
|
0 |
0 |
unless defined $text |
|
465
|
0 |
0 |
if ($num != 0) |
|
467
|
0 |
0 |
if ($num < 0) |
|
470
|
0 |
0 |
$num == -1 ? : |
|
474
|
0 |
0 |
$size == 1 ? : |
|
490
|
0 |
0 |
unless defined $hints{$words[0]} |
|
493
|
0 |
0 |
if ($hints[$num][1] < 0) { } |
|
|
0 |
0 |
elsif ($hints[$num][1] > 0) { } |
|
495
|
0 |
0 |
$hints[$num][1] == -1 ? : |
|
496
|
0 |
0 |
$hints[$num][2] == 1 ? : |
|
500
|
0 |
0 |
$hints[$num][2] == 1 ? : |
|
590
|
0 |
0 |
$j & 1 ? : |
|
591
|
0 |
0 |
$j & 1 ? : |
|
592
|
0 |
0 |
$j & 1 ? : |
|
605
|
0 |
0 |
if $cmap |