| line |
true |
false |
branch |
|
81
|
24 |
20 |
if $class eq "FlatFile" |
|
85
|
21 |
179 |
if defined $val |
|
162
|
16 |
28 |
if (exists $self->{'FIELDSEP'}) |
|
163
|
0 |
16 |
if (ref $self->{'FIELDSEP'}) { } |
|
165
|
0 |
0 |
unless defined $self->{'FIELDSEPSTR'} |
|
177
|
43 |
1 |
unless $self->{'RECCLASS'} |
|
180
|
44 |
0 |
unless exists $opts{'TMPFILE'} |
|
187
|
44 |
0 |
$self->_open_file ? : |
|
193
|
0 |
593 |
if ($opt{'check_keys'} and not exists $default_default{$k}) |
|
196
|
424 |
0 |
if (not exists $self->{$k} and exists $settings->{$k}) |
|
197
|
0 |
424 |
if ($opt{'mandatory'} and not defined $settings->{$k}) |
|
223
|
0 |
44 |
unless defined $flags |
|
226
|
0 |
44 |
unless tie my @file, "Tie::File", $file, "mode", $flags, "recsep", $self->{'RECSEP'}, "autochomp", 1 |
|
238
|
0 |
101 |
if (exists $off{$f[$i]}) { } |
|
264
|
28 |
16 |
if ($self->_writable) |
|
309
|
1 |
45 |
unless ref $self |
|
312
|
0 |
46 |
unless $self->rewind |
|
314
|
57 |
192 |
if ($rec->$f eq $v) |
|
315
|
2 |
55 |
unless wantarray |
|
364
|
1 |
12 |
unless ref $self |
|
366
|
0 |
13 |
unless $self->rewind |
|
369
|
62 |
2 |
if &$cb(%_) |
|
432
|
2 |
371 |
exists $self->{'UPDATE'}{$recno} ? : |
|
433
|
57 |
316 |
unless defined $line |
|
461
|
0 |
6 |
unless push @{$$self{"file"};}, $self->make_rec(0, @data)->as_string |
|
468
|
0 |
6 |
if $self->{'DELETE'}{$id} |
|
511
|
16 |
38 |
unless $self->_writable |
|
513
|
26 |
12 |
if keys %{$$self{"UPDATE"};} == 0 and keys %{$$self{"DELETE"};} == 0 |
|
578
|
10 |
0 |
wantarray ? : |
|
604
|
10 |
979 |
unless (defined $data{$f}) |
|
606
|
10 |
0 |
if ($has_default) { } |
|
610
|
0 |
0 |
if $id |