| line |
true |
false |
branch |
|
193
|
39 |
217 |
if exists $args{'data'} |
|
194
|
131 |
114 |
if exists $args{'items'} |
|
195
|
10 |
234 |
if exists $args{'sectors'} |
|
205
|
1 |
53 |
unless (defined $data) |
|
210
|
40 |
13 |
ref $data ? : |
|
218
|
6 |
46 |
unless (scalar @{$data;} == $expected_data_size) |
|
224
|
1 |
198170 |
if (ref $byte_value) |
|
227
|
2 |
198168 |
unless ($self->_is_valid_byte_value($byte_value)) |
|
240
|
3 |
56 |
unless (scalar @{$sectors;} == $expected_sectors_size) |
|
247
|
0 |
56 |
unless (defined $sectors) |
|
251
|
0 |
56 |
unless (ref $sectors eq 'ARRAY') |
|
255
|
1 |
55 |
unless (scalar @{$sectors;} == $expected_sectors_size) |
|
261
|
0 |
990 |
unless ($sector_value->isa('D64::Disk::Layout::Sector')) |
|
280
|
1 |
8562 |
if ($test_sector->track == $track and $test_sector->sector == $sector) |
|
294
|
0 |
1061 |
unless defined $track and defined $sector |
|
297
|
1061 |
8431 |
if ($sector_object->track == $track and $sector_object->sector == $sector) |
|
310
|
0 |
142 |
unless (defined $items) |
|
314
|
0 |
142 |
unless (ref $items eq 'ARRAY') |
|
318
|
1 |
141 |
unless (scalar @{$items;} <= $expected_items_size) |
|
324
|
0 |
1671 |
unless ($item_value->isa('D64::Disk::Dir::Item')) |
|
327
|
0 |
1671 |
unless ($item_value->validate) |
|
359
|
54 |
99 |
if (@args) |
|
361
|
49 |
5 |
scalar @args == 1 ? : |
|
387
|
21 |
20427 |
if ($i % $ITEMS_PER_SECTOR == 0 and $i + $ITEMS_PER_SECTOR < $num_items) { } |
|
|
118 |
20309 |
elsif ($i % $ITEMS_PER_SECTOR == 0 and $i + $ITEMS_PER_SECTOR >= $num_items and $i < $num_items) { } |
|
|
24 |
20285 |
elsif ($i == 0 and $num_items == 0) { } |
|
404
|
25 |
117 |
wantarray ? : |
|
433
|
98 |
28 |
if $track == 0 |
|
444
|
28 |
15022 |
if ($track_order[$j] == $track and $sector_order[$j] == $sector) |
|
475
|
142 |
21 |
if (@args) |
|
477
|
136 |
0 |
ref $arg ? : |
|
|
136 |
6 |
scalar @args == 1 ? : |
|
521
|
641 |
2209 |
if $item->empty |
|
551
|
59 |
11 |
if (@args) |
|
553
|
11 |
0 |
ref $arg ? : |
|
|
11 |
48 |
scalar @args == 1 ? : |
|
579
|
55 |
935 |
unless defined $track and defined $sector |
|
595
|
38 |
9466 |
if ($j == 0 and ($i + 1) * $ITEMS_PER_SECTOR < $num_items) { } |
|
|
57 |
9409 |
elsif ($j == 0 and ($i + 1) * $ITEMS_PER_SECTOR >= $num_items and $i * $ITEMS_PER_SECTOR < $num_items) { } |
|
639
|
2 |
3 |
if ($mode eq 'all') { } |
|
|
3 |
0 |
elsif ($mode eq 'used') { } |
|
662
|
0 |
71 |
unless $sector_object |
|
712
|
0 |
11 |
if (exists $args{'index'} and exists $args{'pattern'}) |
|
716
|
0 |
6 |
unless (exists $args{'index'} or exists $args{'pattern'}) |
|
723
|
11 |
6 |
if (exists $args{'index'}) { } |
|
730
|
4 |
2 |
if ($index < $num_items) { } |
|
746
|
7 |
11 |
unless $is_matched |
|
759
|
39 |
10 |
if ('D64::Disk::Dir::Item'->is_int($index) and $index >= 0 and $index <= $maximum_allowed_position) |
|
763
|
5 |
19 |
$self->_is_valid_number_value($index) ? : |
|
779
|
46 |
4 |
if (defined $pattern and not ref $pattern and is_valid_petscii_string($pattern) and length $pattern > 0 and length $pattern <= 16) |
|
783
|
4 |
4 |
is_printable_petscii_string($pattern) ? : |
|
|
2 |
8 |
ref $pattern ? : |
|
787
|
0 |
8 |
$self->_is_valid_number_value($pattern) ? : |
|
|
2 |
8 |
!defined($pattern) ? : |
|
813
|
2 |
58 |
unless (defined $item) |
|
817
|
4 |
50 |
unless (ref $item and $item->isa('D64::Disk::Dir::Item')) |
|
838
|
1 |
9 |
if ($num_items >= $MAX_ENTRIES) |
|
869
|
4 |
14 |
if $last_item_index < 0 |
|
892
|
4 |
17 |
if $last_item_index < 0 |
|
916
|
1 |
12 |
if ($num_items >= $MAX_ENTRIES) |
|
965
|
1 |
10 |
if (exists $args{'index'} and exists $args{'pattern'}) |
|
969
|
1 |
23 |
unless (exists $args{'index'} or exists $args{'pattern'}) |
|
980
|
10 |
23 |
if (exists $args{'index'}) { } |
|
984
|
4 |
1 |
if ($index < $num_items) { } |
|
1003
|
25 |
10 |
if ($item->match_name($pattern)) |
|
1010
|
11 |
14 |
if $count and not $global |
|
1027
|
5 |
24 |
if ($was_closed == $is_closed and $was_deleted == $is_deleted) |
|
1067
|
1 |
10 |
if (exists $args{'index'} and exists $args{'pattern'}) |
|
1071
|
1 |
27 |
unless (exists $args{'index'} or exists $args{'pattern'}) |
|
1082
|
10 |
27 |
if (exists $args{'index'}) { } |
|
1086
|
4 |
1 |
if ($index < $num_items) { } |
|
1104
|
24 |
16 |
if ($item->match_name($pattern)) |
|
1111
|
13 |
11 |
unless $global |
|
1157
|
2 |
22 |
unless (exists $args{'item'}) |
|
1169
|
12 |
8 |
if (defined $index) { } |
|
1172
|
8 |
0 |
if (defined $first_empty_slot) |
|
1180
|
1 |
7 |
if ($num_items >= $MAX_ENTRIES) |
|
1184
|
7 |
1 |
if ($index <= $num_items) |
|
1203
|
8 |
10 |
if ($item->writable) |
|
1227
|
1 |
21 |
unless (exists $args{'index'}) |
|
1230
|
1 |
20 |
unless (exists $args{'item'}) |
|
1243
|
12 |
1 |
if ($index <= $num_items) |
|
1304
|
198168 |
0 |
if (length $byte_value == 1 and ord $byte_value >= 0 and ord $byte_value <= 255) |
|
1314
|
5 |
11 |
if ('D64::Disk::Dir::Item'->is_int($number_value) and $number_value >= 0 and $number_value <= 255) |
|
1324
|
0 |
29 |
if ($self->_is_valid_number_value($value)) |
|
1328
|
11 |
18 |
if ($self->is_numeric($value)) |