| line |
true |
false |
branch |
|
24
|
0 |
7 |
unless ($read_h_len == 512 or $read_h_len == 24) |
|
31
|
1 |
6 |
if ($filename =~ /\.fpt$/i) { } |
|
|
0 |
6 |
elsif ($filename =~ /\.smt$/i) { } |
|
42
|
0 |
6 |
unless defined $dbf_version |
|
43
|
6 |
0 |
if (($dbf_version & 15) == 3 or $version == 3) { } |
|
53
|
0 |
7 |
if int $block_size == 0 |
|
71
|
6 |
0 |
if ($num < 0 or $num > $self->last_record) |
|
73
|
2 |
4 |
if (ref $self eq 'XBase::Memo::Fox') |
|
89
|
0 |
1 |
unless $self->create_file($options{'name'}) |
|
91
|
0 |
1 |
if ($options{'name'} =~ /\.smt$/i) { } |
|
|
0 |
1 |
elsif ($version == 5) { } |
|
93
|
0 |
0 |
unless $self->write_to(0, "\cA\000\000\000\000\cB\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000") |
|
96
|
0 |
0 |
unless $self->write_to(0, "\000\000\000\cA\000\000\cB\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000") |
|
98
|
0 |
1 |
unless defined $version |
|
99
|
0 |
1 |
if $version == 4 |
|
100
|
0 |
1 |
unless $self->write_to(0, pack('VVa8Ca3va490', 1, 0, $options{'dbf_filename'}, $version, '', 512, '')) |
|
122
|
2 |
8 |
unless (defined $$self{'memosep'}) |
|
124
|
0 |
2 |
unless (defined $self->read_record($last)) |
|
126
|
0 |
0 |
unless (defined $self->read_record($last)) |
|
133
|
0 |
10 |
unless my $buffer = $self->SUPER::read_record($num, -1) |
|
135
|
10 |
0 |
if ($index >= 0) |
|
148
|
0 |
4 |
if ($num >= 0 and $num <= $self->last_record) { } |
|
150
|
0 |
0 |
if (defined $buffer) |
|
157
|
0 |
0 |
if ($len_in_blocks > $space_in_blocks) |
|
183
|
0 |
4 |
unless (defined $buffer) |
|
185
|
4 |
0 |
if (ref $self eq 'XBase::Memo::Fox') { } |
|
189
|
0 |
0 |
unless substr($buffer, 0, 4) eq "\377\377\cH\000" |
|
192
|
4 |
0 |
if ref $self eq 'XBase::Memo::Fox' |
|
195
|
4 |
0 |
if ($length < $block_size) |
|
200
|
0 |
0 |
unless (defined $rest_data) |
|
211
|
2 |
0 |
if (ref $self eq 'XBase::Memo::Fox') |
|
212
|
0 |
2 |
if ($type eq 'P') { } |
|
|
2 |
0 |
elsif ($type eq 'M') { } |
|
220
|
0 |
2 |
if ($num >= 0 and $num <= $self->last_record) { } |
|
222
|
0 |
0 |
if (defined $buffer) { } |
|
229
|
0 |
0 |
if ($len_in_blocks > $space_in_blocks) |
|
271
|
0 |
0 |
if $num =~ /^\s+$/ |
|
286
|
0 |
0 |
if (defined $num and $num) { } |