| line |
true |
false |
branch |
|
149
|
0 |
24 |
if (ref $initializer eq 'GLOB') { } |
|
201
|
13 |
26 |
$delim_values ? : |
|
246
|
0 |
106 |
if $key eq '' |
|
250
|
0 |
106 |
if $case_inse |
|
253
|
26 |
80 |
$delim_values ? : |
|
290
|
0 |
0 |
unless ref $fh eq 'GLOB' |
|
298
|
0 |
0 |
unless $self->keys_count or $use_empty |
|
303
|
0 |
0 |
unless print $fh "$delim_recs$record_str" |
|
331
|
0 |
0 |
unless ref $fh eq 'GLOB' |
|
339
|
0 |
0 |
if eof $fh |
|
342
|
0 |
0 |
unless defined(my $record_str = <$fh>) |
|
347
|
0 |
0 |
if $self->keys_count |
|
349
|
0 |
0 |
if $use_empty |
|
403
|
0 |
0 |
$linebreak ? : |
|
505
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
507
|
0 |
0 |
unless ref $fh eq 'GLOB' |
|
510
|
0 |
0 |
if ref $mvh eq 'Data::MultiValuedHash' |
|
512
|
0 |
0 |
if ref $mvh eq 'HASH' |
|
514
|
0 |
0 |
unless ref $mvh eq 'CGI::MultiValuedHash' |
|
516
|
0 |
0 |
unless defined $mvh->to_file($fh, @_) |
|
548
|
0 |
0 |
unless ref $fh eq 'GLOB' |
|
551
|
0 |
0 |
$max_obj_num <= 0 ? : |
|
553
|
0 |
0 |
if eof $fh |
|
558
|
0 |
0 |
unless defined $mvh->from_file($fh, @_) |
|
562
|
0 |
0 |
if --$remaining_obj_count != 0 |
|
569
|
0 |
0 |
if (not $use_empty and @mvh_list and not $mvh_list[-1]->keys_count) |