| line |
true |
false |
branch |
|
89
|
23 |
20 |
if $class eq 'FlatFile' |
|
93
|
21 |
179 |
if defined $val |
|
170
|
15 |
28 |
if (exists $$self{'FIELDSEP'}) |
|
171
|
0 |
15 |
if (ref $$self{'FIELDSEP'}) { } |
|
172
|
0 |
0 |
unless defined $$self{'FIELDSEPSTR'} |
|
184
|
42 |
1 |
unless $$self{'RECCLASS'} |
|
187
|
43 |
0 |
unless exists $opts{'TMPFILE'} |
|
195
|
43 |
0 |
$self->_open_file ? : |
|
201
|
0 |
578 |
if ($opt{'check_keys'} and not exists $default_default{$k}) |
|
204
|
415 |
163 |
if (not exists $$self{$k} and exists $$settings{$k}) |
|
205
|
0 |
415 |
if ($opt{'mandatory'} and not defined $$settings{$k}) |
|
231
|
0 |
43 |
unless defined $flags |
|
233
|
0 |
43 |
unless tie my @file, 'Tie::File', $file, 'mode', $flags, 'recsep', $$self{'RECSEP'}, 'autochomp', 1 |
|
246
|
0 |
99 |
if (exists $off{$f[$i]}) { } |
|
272
|
27 |
16 |
if ($self->_writable) |
|
317
|
1 |
41 |
unless ref $self |
|
320
|
0 |
42 |
unless $self->rewind |
|
322
|
53 |
167 |
if ($rec->$f eq $v) |
|
323
|
2 |
51 |
unless wantarray |
|
372
|
1 |
12 |
unless ref $self |
|
374
|
0 |
13 |
unless $self->rewind |
|
377
|
62 |
2 |
if &$cb(%_) |
|
436
|
0 |
340 |
if exists $$self{'UPDATE'}{$recno} |
|
442
|
53 |
287 |
unless defined $line |
|
470
|
0 |
6 |
unless push @{$$self{'file'};}, $self->make_rec(0, @data)->as_string |
|
477
|
0 |
5 |
if $$self{'DELETE'}{$id} |
|
520
|
13 |
27 |
unless $self->_writable |
|
522
|
16 |
11 |
if keys %{$$self{'UPDATE'};} == 0 and keys %{$$self{'DELETE'};} == 0 |
|
587
|
10 |
0 |
wantarray ? : |
|
613
|
10 |
876 |
unless (defined $data{$f}) |
|
615
|
10 |
0 |
if ($has_default) { } |
|
619
|
0 |
0 |
if $id |