line |
true |
false |
branch |
221
|
1 |
49 |
if ($#params == 0) { } |
|
6 |
85 |
elsif ($#params == 1 and ref $params[1]) { } |
234
|
1 |
49 |
if $output_format and $number_format |
238
|
41 |
8 |
unless ($output_format) |
240
|
0 |
41 |
if $number_format and not $params{'suppress_warnings'} |
243
|
3 |
38 |
if ($number_format eq 'V') |
244
|
11 |
30 |
if ($number_format eq 'N') |
245
|
3 |
38 |
if ($number_format eq 'v') |
246
|
6 |
35 |
if ($number_format eq 'n') |
255
|
165 |
735 |
if ($format_elements[-1] eq '%') |
259
|
164 |
1 |
if (exists $format_elements_raw[0] and $format_elements_raw[0] =~ /[adCSLQ%<>]/) |
262
|
4 |
161 |
if ($format_elements[-1] =~ /%([%<>])/) { } |
|
45 |
118 |
elsif ($format_elements[-1] =~ /%\d*[QSL]/ and exists $format_elements_raw[0] and $format_elements_raw[0] =~ /[<>]/) { } |
273
|
856 |
44 |
if ($format =~ /^([^%]|%\d*a|%\D|%$)/) { } |
288
|
0 |
48 |
unless length $data |
289
|
0 |
48 |
if $start_position =~ /\D/ |
290
|
0 |
48 |
if $end_position =~ /\D/ |
291
|
0 |
48 |
if $end_position < $start_position |
297
|
10 |
38 |
if (length($data) / $chunk_length != int length($data) / $chunk_length) |
298
|
0 |
10 |
unless $params{'suppress_warnings'} |
309
|
48 |
33 |
$chunk eq $data ? : |
313
|
6 |
75 |
if ($params{'space_as_space'}) { } |
320
|
1708 |
649 |
if (length $format == 1) { } |
|
81 |
568 |
elsif ($format =~ /%(\d*)a/) { } |
|
74 |
494 |
elsif ($format eq '%d') { } |
329
|
413 |
81 |
if (length $chunk > $num_bytes{$format}) { } |
347
|
283 |
211 |
if $format =~ / or not $format =~ />/ and 1 |