| line | % | coverage | branch |
|---|
| 247 | 100 | T | F | if (scalar @_ == 0 and not ref $class_in and defined $class_in and -d $class_in) { } |
| 100 | T | F | elsif (scalar @_ == 1 and not ref $_[0]) { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, @_)) { } |
| 258 | 100 | T | F | if (not defined $class_in) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class_in)) { } |
| 260 | 100 | T | F | if (%args) |
| 271 | 100 | T | F | if (defined $args{"logger"}) |
| 272 | 100 | T | F | unless (&Scalar::Util::blessed($args{"logger"}) and $args{"logger"}->can("info") and $args{"logger"}->can("warn") and $args{"logger"}->can("error")) |
| 288 | 100 | T | F | unless (defined $args{"directory"}) |
| 289 | 100 | T | F | unless (exists $_dir_cache{$class_in}) |
| 292 | 50 | T | F | if (defined $info) |
| 295 | 50 | T | F | unless -d $derived |
| 300 | 50 | T | F | if defined $_dir_cache{$class_in} |
| 306 | 100 | T | F | if (defined $args{"directory"} and not ref $args{"directory"}) |
| 308 | 100 | T | F | if (index($args{"directory"}, "\0") != -1) |
| 311 | 50 | T | F | if $args{"logger"} |
| 320 | 100 | T | F | if (defined $args{"directory"} and not -d $args{'directory'} && -r $args{'directory'}) |
| 323 | 50 | T | F | if $args{"logger"} |
| 526 | 100 | T | F | unless &Scalar::Util::blessed($self) |
| 531 | 100 | T | F | unless @_ |
| 557 | 100 | T | F | unless (defined $$params{"last"} and length $$params{"last"} > 0) |
| 559 | 50 | T | F | if $$self{"logger"} |
| 570 | 100 | T | F | unless (defined $$self{"obituaries"}) |
| 572 | 50 | T | F | if $$self{"logger"} |
| 576 | 100 | T | F | if (wantarray) |
| 577 | 100 | T | F | unless my $obituaries = $$self{"obituaries"}->selectall_hashref($params) |
| 583 | 100 | T | F | unless defined $obit |
| 597 | 100 | T | F | unless my $obit = $$self{"obituaries"}->fetchrow_hashref($params) |
| 616 | 100 | T | F | unless (&CORE::GLOBAL::caller())[0] eq __PACKAGE__ |
| 623 | 100 | T | F | unless defined $page |
| 625 | 100 | T | F | unless defined $source |
| 630 | 100 | T | F | if ($source eq 'M' or $source eq 'F') { } |
| 100 | T | F | elsif ($source eq 'L') { } |
| 635 | 100 | T | F | if defined $$obit{"newspaper"} and $$obit{"newspaper"} =~ m[\Ahttps?://] |
| 636 | 100 | T | F | if $page =~ m[\Ahttps?://] |