Branch Coverage

blib/lib/Genealogy/ObituaryDailyTimes/DB.pm
Criterion Covered Total %
branch 1 180 0.5


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'})