Branch Coverage

blib/lib/Genealogy/Wills/DB.pm
Criterion Covered Total %
branch 1 174 0.5


line true false branch
71 0 0 ref $_[0] eq 'HASH' ? :
75 0 0 if ($class eq "Genealogy::Wills::DB")
79 0 0 unless $directory or $args{'directory'}
93 0 3 ref $_[0] eq 'HASH' ? :
105 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (not ref $_[0]) { }
0 0 elsif (scalar(@_) % 2 == 0) { }
126 0 0 ref $_[0] eq 'HASH' ? :
132 0 0 if ($self->{'logger'})
135 0 0 if $self->{$table}
142 0 0 if ($self->{'logger'})
146 0 0 if (-r $slurp_file) { }
156 0 0 if ($self->{'logger'})
163 0 0 if (defined $slurp_file and -r $slurp_file) { }
174 0 0 if (defined $fin) { }
181 0 0 if (defined $slurp_file and -r $slurp_file) { }
184 0 0 if ($args{'column_names'}) { }
199 0 0 if ($self->{'logger'})
280 0 0 if (-r $slurp_file) { }
283 0 0 if ($self->{'logger'})
314 0 0 ref $_[0] eq 'HASH' ? :
319 0 0 unless $self->{$table}
321 0 0 if (scalar keys %params == 0 and $self->{'data'})
322 0 0 if ($self->{'logger'})
336 0 0 if ($self->{'type'} eq 'CSV' and not $self->{'no_entry'}) { }
345 0 0 if (ref $arg)
346 0 0 if ($self->{'logger'})
351 0 0 unless (defined $arg)
356 0 0 if ($done_where) { }
357 0 0 if ($arg =~ /\@/) { }
363 0 0 if ($arg =~ /\@/) { }
372 0 0 unless ($self->{'no_entry'})
375 0 0 unless (wantarray)
378 0 0 if ($self->{'logger'})
379 0 0 if (defined $query_args[0]) { }
387 0 0 if ($c = $self->{'cache'})
389 0 0 if (defined $query_args[0])
392 0 0 if (my $rc = $c->get($key))
401 0 0 if (my $sth = $self->{$table}->prepare($query))
402 0 0 unless $sth->execute(@query_args)
408 0 0 unless wantarray
411 0 0 if ($c and wantarray)
417 0 0 if ($self->{'logger'})
428 0 0 ref $_[0] eq 'HASH' ? :
433 0 0 unless $self->{$table}
436 0 0 if (my $t = delete $params{'table'}) { }
442 0 0 if ($self->{'type'} eq "CSV" and not $self->{'no_entry'})
448 0 0 if (my $arg = $params{$c1})
449 0 0 if ($done_where) { }
450 0 0 if ($arg =~ /\@/) { }
456 0 0 if ($arg =~ /\@/) { }
468 0 0 if ($self->{'logger'})
469 0 0 if (defined $query_args[0]) { }
478 0 0 if (defined $query_args[0]) { }
484 0 0 if ($c = $self->{'cache'})
485 0 0 if (my $rc = $c->get($key))
489 0 0 unless my $sth = $self->{$table}->prepare($query)
490 0 0 unless $sth->execute(@query_args)
491 0 0 if ($c)
506 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (ref $_[0]) { }
0 0 elsif (scalar(@_) % 2 == 0) { }
516 0 0 unless defined $args{'query'}
521 0 0 unless $self->{$table}
524 0 0 if ($self->{'logger'})
528 0 0 unless $sth->execute
531 0 0 unless wantarray
557 0 0 if $column eq "DESTROY"
559 0 0 unless my $self = shift()
564 0 0 unless $self->{$table}
566 0 0 ref $_[0] eq 'HASH' ? :
570 0 0 if (wantarray and not delete $params{'distinct'}) { }
571 0 0 if ($self->{'type'} eq 'CSV' and not $self->{'no_entry'}) { }
578 0 0 if ($self->{'type'} eq 'CSV' and not $self->{'no_entry'}) { }
587 0 0 if (defined $value) { }
588 0 0 if ($done_where) { }
596 0 0 if ($self->{'logger'})
599 0 0 if ($done_where) { }
608 0 0 unless (wantarray)
611 0 0 if ($self->{'logger'})
612 0 0 if (scalar @args and $args[0]) { }
619 0 0 unless $sth->execute(@args)
621 0 0 if (wantarray)
628 0 0 if (defined $^V and $^V ge "v5.14.0")
629 0 0 if ${^GLOBAL_PHASE} eq "DESTRUCT"
633 0 0 if ($self->{'temp'})
636 0 0 if (my $table = delete $self->{'table'})