Condition Coverage

File:blib/lib/Genealogy/Occupation.pm
Coverage:85.4%

line%coveragecondition
227100
Adec
00
11
Params::Get::get_params(undef, @_) // {}
240100
Adec
00
11
$args->{'warn_on_error'} // 0
349100
Adec
00
11
$args->{'sex'} // "M"
351100
Adec
00
11
$self->{'language'} // "en"
479100
ABCdec
0XX0
10X0
1100
1111
$occupation =~ /^Manager\s+(.*)/iu and not $occupation =~ /^Manager of /iu and not $occupation =~ /Manager & /iu
499100
ABdec
000
011
1X1
$trade =~ /'s$/u or lc $trade eq "shop"
522100
ABdec
0X0
100
111
not $occupation =~ /gas works/iu and $occupation =~ /^(.+([a-z]))s\s+([a-z]+)$/iu
525100
ABdec
000
011
1X1
lc $base eq "bu" or lc $base eq "harnes"
565100
ABdec
0X0
100
111
defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^en_US/u
572100
ABdec
0X0
100
111
defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^en_CA/u
62633
ABdec
000
011
1X1
$translation->{$sex} // $translation->{'M'}
68233
ABdec
000
011
1X1
$translation->{$sex} // $translation->{'M'}
72567
ABdec
0X0
100
111
$ENV{'LANGUAGE'} and $ENV{'LANGUAGE'} =~ /^([a-z]{2})/iu
73767
ABdec
0X0
100
111
defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^C(\.|$)/u