Condition Coverage

File:blib/lib/Genealogy/Obituary/Lookup.pm
Coverage:91.8%

line%coveragecondition
247100
ABdec
0X0
100
111
scalar @_ == 1 and not ref $_[0]
100
ABCDdec
0XXX0
10XX0
110X0
11100
11111
scalar @_ == 0 and not ref $class_in and defined $class_in and -d $class_in
272100
ABCDdec
0XXX0
10XX0
110X0
11100
11111
&Scalar::Util::blessed($args{"logger"}) and $args{"logger"}->can("info") and $args{"logger"}->can("warn") and $args{"logger"}->can("error")
30667
ABdec
0X0
100
111
defined $args{"directory"} and not ref $args{"directory"}
32067
ABdec
0X0
100
111
defined $args{"directory"} and not -d $args{'directory'} && -r $args{'directory'}
100
ABdec
0X0
100
111
-d $args{'directory'} && -r $args{'directory'}
55767
ABdec
0X0
100
111
defined $$params{"last"} and length $$params{"last"} > 0
567100
ABdec
000
011
1X1
$$self{"obituaries"} //= "Genealogy::Obituary::Lookup::obituaries"->new("no_entry", 1, "no_fixate", 1, %{$self;})
630100
ABdec
000
011
1X1
$source eq "M" or $source eq "F"
635100
ABdec
0X0
100
111
defined $$obit{"newspaper"} and $$obit{"newspaper"} =~ m[\Ahttps?://]
66067
ABdec
000
011
1X1
$MESSAGES{$key} // Carp::croak("Unknown i18n key '${key}'")
662100
Adec
00
11
$args //= {}
666100
Adec
00
11
$$args{$1} // ""