| line |
true |
false |
branch |
|
108
|
0 |
0 |
unless defined $bytes_per_sector |
|
110
|
0 |
0 |
unless defined $sectors_per_track_aref |
|
164
|
23 |
0 |
if ($initOK) { } |
|
175
|
2 |
21 |
if (defined $filename) { } |
|
177
|
0 |
2 |
unless (-e $filename) |
|
181
|
0 |
2 |
unless (-r $filename) |
|
187
|
0 |
2 |
unless $readOK |
|
221
|
0 |
2 |
unless open my $fh, '<', $filename |
|
232
|
24 |
0 |
if ($num_bytes == $bytes_per_sector) { } |
|
|
0 |
0 |
elsif ($num_bytes > 0 and $num_bytes != $bytes_per_sector) { } |
|
241
|
0 |
2 |
unless close $fh |
|
276
|
0 |
266 |
unless $class->_valid_track_number($track) |
|
277
|
0 |
266 |
unless $self->_valid_sector_number($track, $sector) |
|
278
|
203 |
63 |
if (defined $data) |
|
283
|
198 |
68 |
unless defined wantarray |
|
285
|
24 |
44 |
if (wantarray) { } |
|
323
|
0 |
4 |
unless $class->_valid_track_number($track) |
|
325
|
3 |
1 |
if (defined $data) |
|
334
|
0 |
4 |
unless defined wantarray |
|
336
|
4 |
0 |
if (wantarray) { } |
|
364
|
442 |
578 |
if ($type eq '$') { } |
|
|
578 |
0 |
elsif ($type eq '@') { } |
|
365
|
0 |
442 |
if (defined $value) { } |
|
373
|
0 |
578 |
if (defined $value) { } |
|
388
|
0 |
270 |
if ($track < 1 or $track > $num_tracks) |
|
399
|
0 |
266 |
if ($sector < 0 or $sector >= $num_sectors) |
|
412
|
2 |
204 |
if ($data_length > $data_length_wanted) |
|
415
|
1 |
1 |
$num_sectors == 1 ? : |
|
426
|
2 |
204 |
if ($data_length < $data_length_wanted) |
|
429
|
1 |
1 |
$num_sectors == 1 ? : |
|
466
|
0 |
279 |
if ($track < 1 or $track > $num_tracks) |
|
489
|
1 |
1 |
unless (defined $filename) |
|
515
|
3 |
1 |
unless (defined $loaded_filename and $loaded_filename eq $filename) |
|
517
|
0 |
3 |
if (-e $filename) |
|
527
|
0 |
4 |
unless open my $fh, '>', $filename |
|
538
|
0 |
42 |
unless (defined $num_bytes and $num_bytes == $bytes_per_sector) |
|
541
|
0 |
0 |
if defined $loaded_filename and $loaded_filename ne $filename |
|
547
|
0 |
4 |
unless close $fh |