| line |
true |
false |
branch |
|
65
|
0 |
4 |
unless $mode |
|
67
|
4 |
0 |
if ($mode =~ /w/) |
|
70
|
2 |
2 |
unless -e $filename |
|
73
|
0 |
4 |
unless $file->open($filename, $openMode) |
|
80
|
2 |
2 |
if $mode =~ /p/ |
|
81
|
1 |
3 |
if $mode =~ /d/ |
|
82
|
1 |
0 |
$filename =~ /\.(?:hdv|po)$/i ? : |
|
|
1 |
3 |
if $type eq 'AppleII::Disk' |
|
108
|
0 |
32 |
unless defined $pad |
|
111
|
11 |
21 |
if length $pad and length $data < $length |
|
114
|
1 |
31 |
unless (length $data == $length) |
|
116
|
1 |
0 |
if (caller)[0] =~ /^AppleII::Disk::/ |
|
137
|
3 |
3 |
if (@_) |
|
140
|
0 |
3 |
if $self->{'maxlen'} < $self->{'actlen'} |
|
153
|
0 |
0 |
if ($self->{'maxlen'} > $self->{'actlen'}) |
|
154
|
0 |
0 |
unless $self->{'writable'} |
|
156
|
0 |
0 |
unless $self->{'file'}->truncate($self->{'maxlen'}) |
|
195
|
24 |
1020 |
if ($_) { } |
|
246
|
13 |
258 |
if $_ |
|
289
|
1 |
54 |
if $self->seek_block($_[0]) >= $self->{'actlen'} |
|
291
|
0 |
54 |
unless read $self->{'file'}, $buffer, 512 |
|
314
|
1 |
75 |
if $pos < 0 or $pos >= $self->{'maxlen'} |
|
316
|
0 |
75 |
unless $self->{'file'}->seek($pos, 0) |
|
329
|
0 |
21 |
unless $self->{'writable'} |
|
334
|
0 |
20 |
unless print {$self->{'file'};} $data |
|
336
|
1 |
19 |
unless $self->{'actlen'} > $pos |
|
392
|
2 |
4 |
if $self->seek_sector(@_[0, 1]) >= $self->{'actlen'} |
|
394
|
0 |
4 |
unless read $self->{'file'}, $buffer, 256 |
|
415
|
1 |
12 |
if $pos < 0 or $pos >= $self->{'maxlen'} |
|
417
|
0 |
12 |
unless $self->{'file'}->seek($pos, 0) |
|
429
|
0 |
6 |
unless $self->{'writable'} |
|
434
|
0 |
6 |
unless print {$self->{'file'};} $data |
|
436
|
2 |
4 |
unless $self->{'actlen'} > $pos |
|
447
|
0 |
1 |
unless $self->{'writable'} |