| line |
true |
false |
branch |
|
100
|
0 |
0 |
unless defined $bytes_per_sector |
|
102
|
0 |
0 |
unless defined $sectors_per_track_aref |
|
156
|
19 |
0 |
if ($initOK) { } |
|
167
|
2 |
17 |
if (defined $filename) { } |
|
169
|
0 |
2 |
unless (-e $filename) |
|
173
|
0 |
2 |
unless (-r $filename) |
|
179
|
0 |
2 |
unless $readOK |
|
213
|
0 |
2 |
unless open my $fh, '<', $filename |
|
224
|
24 |
0 |
if ($num_bytes == $bytes_per_sector) { } |
|
|
0 |
0 |
elsif ($num_bytes > 0 and $num_bytes != $bytes_per_sector) { } |
|
233
|
0 |
2 |
unless close $fh |
|
271
|
0 |
242 |
if ($track < 1 or $track > $num_tracks) |
|
277
|
0 |
242 |
if ($sector < 0 or $sector >= $num_sectors) |
|
281
|
179 |
63 |
if (defined $data) |
|
285
|
1 |
178 |
if ($data_length > $bytes_per_sector) |
|
291
|
1 |
178 |
if ($data_length < $bytes_per_sector) |
|
298
|
174 |
68 |
unless defined wantarray |
|
300
|
24 |
44 |
if (wantarray) { } |
|
328
|
202 |
518 |
if ($type eq '$') { } |
|
|
518 |
0 |
elsif ($type eq '@') { } |
|
329
|
0 |
202 |
if (defined $value) { } |
|
337
|
0 |
518 |
if (defined $value) { } |
|
379
|
0 |
251 |
if ($track < 1 or $track > $num_tracks) |
|
402
|
1 |
1 |
unless (defined $filename) |
|
428
|
3 |
1 |
unless (defined $loaded_filename and $loaded_filename eq $filename) |
|
430
|
0 |
3 |
if (-e $filename) |
|
440
|
0 |
4 |
unless open my $fh, '>', $filename |
|
451
|
0 |
42 |
unless (defined $num_bytes and $num_bytes == $bytes_per_sector) |
|
454
|
0 |
0 |
if defined $loaded_filename and $loaded_filename ne $filename |
|
460
|
0 |
4 |
unless close $fh |