| line |
true |
false |
branch |
|
83
|
0 |
4 |
ref $_[0] eq 'HASH' ? : |
|
107
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
111
|
0 |
0 |
if ($class eq "Genealogy::ObituaryDailyTimes::DB") |
|
115
|
0 |
0 |
unless $directory or $args{'directory'} |
|
133
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (not ref $_[0]) { } |
|
|
0 |
0 |
elsif (scalar(@_) % 2 == 0) { } |
|
154
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
160
|
0 |
0 |
if ($self->{'logger'}) |
|
163
|
0 |
0 |
if $self->{$table} |
|
170
|
0 |
0 |
if ($self->{'logger'}) |
|
174
|
0 |
0 |
if (-r $slurp_file) { } |
|
184
|
0 |
0 |
if ($self->{'logger'}) |
|
191
|
0 |
0 |
if (defined $slurp_file and -r $slurp_file) { } |
|
202
|
0 |
0 |
if (defined $fin) { } |
|
209
|
0 |
0 |
if (defined $slurp_file and -r $slurp_file) { } |
|
212
|
0 |
0 |
if ($args{'column_names'}) { } |
|
227
|
0 |
0 |
if ($self->{'logger'}) |
|
308
|
0 |
0 |
if (-r $slurp_file) { } |
|
311
|
0 |
0 |
if ($self->{'logger'}) |
|
342
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
347
|
0 |
0 |
if (scalar keys %params == 0 and $self->{'data'}) |
|
348
|
0 |
0 |
if ($self->{'logger'}) |
|
360
|
0 |
0 |
unless $self->{$table} |
|
364
|
0 |
0 |
if ($self->{'type'} eq 'CSV' and not $self->{'no_entry'}) { } |
|
374
|
0 |
0 |
if (ref $arg) |
|
375
|
0 |
0 |
if ($self->{'logger'}) |
|
380
|
0 |
0 |
unless (defined $arg) |
|
385
|
0 |
0 |
if ($done_where) { } |
|
386
|
0 |
0 |
if ($arg =~ /\@/) { } |
|
392
|
0 |
0 |
if ($arg =~ /\@/) { } |
|
401
|
0 |
0 |
unless ($self->{'no_entry'}) |
|
404
|
0 |
0 |
unless (wantarray) |
|
407
|
0 |
0 |
if ($self->{'logger'}) |
|
408
|
0 |
0 |
if (defined $query_args[0]) { } |
|
416
|
0 |
0 |
if ($c = $self->{'cache'}) { } |
|
|
0 |
0 |
elsif ($self->{'logger'}) { } |
|
418
|
0 |
0 |
if (defined $query_args[0]) |
|
421
|
0 |
0 |
if (my $rc = $c->get($key)) |
|
422
|
0 |
0 |
if ($self->{'logger'}) |
|
431
|
0 |
0 |
if ($self->{'logger'}) |
|
438
|
0 |
0 |
if (my $sth = $self->{$table}->prepare($query)) |
|
439
|
0 |
0 |
unless $sth->execute(@query_args) |
|
445
|
0 |
0 |
unless wantarray |
|
448
|
0 |
0 |
if ($c and wantarray) |
|
454
|
0 |
0 |
if ($self->{'logger'}) |
|
465
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
470
|
0 |
0 |
unless $self->{$table} |
|
473
|
0 |
0 |
if (my $t = delete $params{'table'}) { } |
|
479
|
0 |
0 |
if ($self->{'type'} eq "CSV" and not $self->{'no_entry'}) |
|
485
|
0 |
0 |
if (my $arg = $params{$c1}) |
|
486
|
0 |
0 |
if ($done_where) { } |
|
487
|
0 |
0 |
if ($arg =~ /\@/) { } |
|
493
|
0 |
0 |
if ($arg =~ /\@/) { } |
|
505
|
0 |
0 |
if ($self->{'logger'}) |
|
506
|
0 |
0 |
if (defined $query_args[0]) { } |
|
515
|
0 |
0 |
if (defined $query_args[0]) { } |
|
521
|
0 |
0 |
if ($c = $self->{'cache'}) |
|
522
|
0 |
0 |
if (my $rc = $c->get($key)) |
|
526
|
0 |
0 |
unless my $sth = $self->{$table}->prepare($query) |
|
527
|
0 |
0 |
unless $sth->execute(@query_args) |
|
528
|
0 |
0 |
if ($c) |
|
543
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_[0]) { } |
|
|
0 |
0 |
elsif (scalar(@_) % 2 == 0) { } |
|
553
|
0 |
0 |
unless defined $args{'query'} |
|
558
|
0 |
0 |
unless $self->{$table} |
|
561
|
0 |
0 |
if ($self->{'logger'}) |
|
565
|
0 |
0 |
unless $sth->execute |
|
568
|
0 |
0 |
unless wantarray |
|
594
|
0 |
0 |
if $column eq "DESTROY" |
|
596
|
0 |
0 |
unless my $self = shift() |
|
601
|
0 |
0 |
unless $self->{$table} |
|
603
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
607
|
0 |
0 |
if (wantarray and not delete $params{'distinct'}) { } |
|
608
|
0 |
0 |
if ($self->{'type'} eq 'CSV' and not $self->{'no_entry'}) { } |
|
615
|
0 |
0 |
if ($self->{'type'} eq 'CSV' and not $self->{'no_entry'}) { } |
|
624
|
0 |
0 |
if (defined $value) { } |
|
625
|
0 |
0 |
if ($done_where) { } |
|
633
|
0 |
0 |
if ($self->{'logger'}) |
|
636
|
0 |
0 |
if ($done_where) { } |
|
645
|
0 |
0 |
unless (wantarray) |
|
648
|
0 |
0 |
if ($self->{'logger'}) |
|
649
|
0 |
0 |
if (scalar @args and $args[0]) { } |
|
656
|
0 |
0 |
unless $sth->execute(@args) |
|
658
|
0 |
0 |
if (wantarray) |
|
665
|
0 |
0 |
if (defined $^V and $^V ge "v5.14.0") |
|
666
|
0 |
0 |
if ${^GLOBAL_PHASE} eq "DESTRUCT" |
|
670
|
0 |
0 |
if ($self->{'temp'}) |
|
673
|
0 |
0 |
if (my $table = delete $self->{'table'}) |