| line |
true |
false |
branch |
|
123
|
126 |
41 |
if (%args) |
|
124
|
2 |
124 |
unless (defined $args{'data'}) |
|
127
|
1 |
123 |
unless (defined $args{'track'}) |
|
130
|
1 |
122 |
unless (defined $args{'sector'}) |
|
157
|
548 |
1118 |
if (defined $value) |
|
158
|
159 |
389 |
ref $value ? : |
|
167
|
34051 |
0 |
if (defined $byte_value and length $byte_value == 1 and ord $byte_value >= 0 and ord $byte_value <= 255) |
|
177
|
234 |
14 |
if ($self->is_int($number_value) and $number_value >= 0 and $number_value <= 255) |
|
214
|
124 |
28 |
if (defined $data) |
|
220
|
4 |
120 |
if (not $is_valid_ts_link || $alloc_size != 0) { } |
|
228
|
124 |
28 |
unless defined wantarray |
|
232
|
13 |
15 |
wantarray ? : |
|
240
|
28 |
192 |
unless scalar @args > 0 |
|
243
|
182 |
10 |
if (scalar @args == 1) |
|
245
|
149 |
33 |
if (ref $arg eq 'ARRAY') |
|
255
|
34 |
158 |
if (scalar @args == 1) |
|
257
|
31 |
3 |
if (not ref $arg) { } |
|
259
|
8 |
23 |
if (length $arg < $min_size or length $arg > $max_size) |
|
269
|
170 |
11 |
if (not scalar @args < $min_size || scalar @args > $max_size) { } |
|
272
|
4 |
34059 |
if (ref $byte_value) |
|
275
|
8 |
34051 |
unless ($self->_is_valid_byte_value($byte_value)) |
|
316
|
36 |
20 |
unless exists $args{'set_alloc_size'} |
|
318
|
40 |
16 |
if defined $data |
|
320
|
34 |
16 |
if (defined $file_data) |
|
326
|
12 |
22 |
if ($args{'set_alloc_size'}) |
|
328
|
9 |
3 |
$file_data_size > 0 ? : |
|
336
|
11 |
23 |
if (not $is_valid_ts_link || $alloc_size != 0) { } |
|
344
|
34 |
16 |
unless defined wantarray |
|
354
|
6 |
10 |
wantarray ? : |
|
374
|
118 |
7 |
if (defined $track) |
|
375
|
2 |
116 |
if (ref $track) |
|
378
|
4 |
112 |
unless ($self->_is_valid_number_value($track)) |
|
381
|
1 |
111 |
if ($track == 0) |
|
409
|
114 |
7 |
if (defined $sector) |
|
410
|
2 |
112 |
if (ref $sector) |
|
413
|
4 |
108 |
unless ($self->_is_valid_number_value($sector)) |
|
439
|
139 |
239 |
$ts_pointer_track == 0 ? : |
|
463
|
12 |
12 |
if (defined $track or defined $sector) |
|
464
|
1 |
11 |
unless (defined $track) |
|
467
|
1 |
10 |
if (ref $track) |
|
470
|
2 |
8 |
unless ($self->_is_valid_number_value($track)) |
|
473
|
1 |
7 |
if ($track == 0) |
|
477
|
1 |
6 |
unless (defined $sector) |
|
480
|
1 |
5 |
if (ref $sector) |
|
483
|
2 |
3 |
unless ($self->_is_valid_number_value($sector)) |
|
494
|
4 |
11 |
unless $self->is_valid_ts_link |
|
521
|
11 |
3 |
$ts_pointer_track == 0 ? : |
|
545
|
6 |
188 |
if (defined $alloc_size) |
|
546
|
1 |
5 |
if (ref $alloc_size) |
|
549
|
2 |
3 |
unless ($self->_is_valid_number_value($alloc_size)) |
|
556
|
116 |
75 |
if $self->is_valid_ts_link |
|
582
|
168 |
27 |
if (defined $is_empty) |
|
583
|
1 |
167 |
if (ref $is_empty) |
|
586
|
19 |
148 |
$is_empty ? : |
|
649
|
1 |
767 |
if ($val >= 32 and $val <= 127) { } |
|
668
|
0 |
31 |
if ($self->_is_valid_number_value($value)) |