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