| line |
true |
false |
branch |
|
59
|
179 |
117 |
$_data_are_not_list ? : |
|
61
|
0 |
296 |
unless (defined $datum) |
|
66
|
12 |
284 |
if (index($sct, 'a') == 0) { } |
|
|
11 |
273 |
elsif (index($sct, '(') == 0) { } |
|
|
47 |
226 |
elsif ($sct eq 'v') { } |
|
87
|
3 |
223 |
if ($sct eq 'h') { } |
|
|
11 |
212 |
elsif ($sct eq 'o') { } |
|
|
41 |
171 |
elsif ($sct eq 's') { } |
|
89
|
0 |
3 |
unless defined $fd |
|
93
|
2 |
1 |
unless (defined $idx) |
|
101
|
0 |
11 |
unless ($datum =~ m[\A/(?:[A-Za-z0-9_]+(?:/[A-Za-z0-9_]+)*)?\z]) |
|
137
|
3 |
9 |
if ($array_start % 8) |
|
144
|
9 |
3 |
if (0 == index($sct, '{')) { } |
|
148
|
2 |
7 |
$DICT_CANONICAL ? : |
|
163
|
3 |
9 |
if $compensate_align8 |
|
211
|
116 |
1756 |
if (substr($sct_sig, 0, 1) eq 'a') { } |
|
|
36 |
1720 |
elsif (substr($sct_sig, 0, 1) eq '(') { } |
|
|
193 |
1527 |
elsif (substr($sct_sig, 0, 1) eq 'v') { } |
|
220
|
52 |
64 |
if (substr($sct_sig, 1, 1) eq '{') { } |
|
275
|
0 |
1527 |
if ($FILEHANDLES and $sct_sig eq 'h') { } |
|
|
428 |
1099 |
elsif ($is_string) { } |
|
286
|
428 |
1099 |
$is_string ? : |
|
296
|
0 |
193 |
unless length $sig |
|
303
|
0 |
193 |
$PRESERVE_VARIANT_SIGNATURES ? : |
|
312
|
533 |
1220 |
if ($pack_tmpl = {g => 'C/a x', o => 'L/a x', s => 'L/a x'}->{$sct_sig}) { } |
|
316
|
0 |
1220 |
unless ($pack_tmpl = {"b" => "L","d" => "d","h" => "L","i" => "l","n" => "s","q" => "S","t" => "Q","u" => "L","x" => "q","y" => "C"}->{$sct_sig}) |
|
383
|
0 |
0 |
$_ENDIAN_PACK eq '<' ? : |