Condition Coverage

blib/lib/Dios.pm
Criterion Covered Total %
condition 100 156 64.1


and 3 conditions

line !l l&&!r l&&r condition
130 145 0 286 length $params and $params =~ s/\A \s*+ $PARAMETER_SYNTAX //ux
157 151 26 1 not @params and $kind eq "method"
181 1 0 15 defined $param->{'type'} && $param->{'type'} =~ /\S/u
238 15 1 defined $param->{'constraint'} and not defined $param->{'type'} && $param->{'type'} =~ /\S/u
209 253 1 0 substr($param->{'var'}, 1) eq "_" and $param->{'namedvar'} ne "*\@_"
212 68 77 109 $first_param and $kind eq "method"
145 18 91 $first_param and $kind eq "method" and $param->{'terminator'} ne ":"
218 159 42 53 $first_param and $param->{'terminator'}
42 35 18 $first_param and $param->{'terminator'} and $param->{'terminator'} eq ":"
243 0 2 0 exists $param->{'name'} and $param->{'sigil'} ne "\@"
348 0 120 36 exists $param->{'name'} and exists $param->{'default_type'}
349 26 1 9 $param->{'default_type'} eq "//=" and $param->{'sigil'} eq "\$"
391 0 60 2 exists $param->{'name'} and exists $param->{'default'}
437 0 1 0 $special eq 'alias' && $] < 5.022
465 377 2 0 $special eq 'alias' && $] < 5.022
473 10 0 0 $special eq 'alias' && $] < 5.022
483 3 0 0 $special eq 'alias' && $] < 5.022
500 0 2 0 $special eq "alias" and $] < "5.022"
539 2 0 0 $special eq "alias" and $] < "5.022"
545 2 0 0 $special eq 'alias' && $] >= 5.022
754 33 1 0 $constraint and not defined $type
802 19 15 0 $sigil =~ /[\@%]/u and !$initializer || $initializer =~ /\A \s*+ \z/msux
848 1 2 0 $constraint and not defined $type
869 4 1 0 $constraint and not defined $type
1066 0 0 0 $arg =~ /\S/u and $arg =~ /(?:(?&PerlOWS)(?:(?x:is (?&PerlNWS) (?&PerlQualifiedIdentifier))))$PPR::GRAMMAR/gu
39 13 21 $arg =~ /\S/u and $arg =~ /(?:(?&PerlOWS)(?:(?x:is (?&PerlNWS) (?&PerlQualifiedIdentifier))))$PPR::GRAMMAR/gu
1254 0 0 0 $parameter_list and not $parameter_list =~ /^\(\s*+\)$/u
1 2 0 $parameter_list and not $parameter_list =~ /^\(\s*+\)$/u

or 2 conditions

line l !l condition
103 230 0 $^H{'Dios invocant_name'} // "\$self"
187 5 14 $param->{'sigil'} ||= "\$"
221 0 18 $param->{'type'} // "Any"
256 55 101 $param->{'type'} // "Any"
271 40 22 $param->{'type'} // "Any"
308 1 0 $param->{'type'} // "value"
462 4 390 $special //= ""
536 0 2 $special //= ""
769 7 0 $type // "Any"
8 0 $type // "Any"
913 58 0 $multis{$subname} //= []
1047 2 62 (($opt->{'accessor'} // $opt->{'accessors'}) // $opt->{'acc'}) // "standard"
1050 1 64 ($opt->{'invocant'} // $opt->{'inv'}) // "\$self"
1052 65 1 $1 || '$'
1060 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1068 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1089 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1120 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1140 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1224 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1227 0 0 $^H{'Dios attrnames'} // ""
7 5 $^H{'Dios attrnames'} // ""
1238 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1249 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1255 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1258 66 0 (&CORE::GLOBAL::caller(0))[3] // ""
1259 66 0 (&CORE::GLOBAL::caller(0))[3] // ""

or 3 conditions

line l !l&&r !l&&!r condition
106 0 52 178 not defined $params or $params =~ /$EMPTY_PARAM_LIST/u
516 27 9 0 $default ||= $sigil eq "\$" ? "undef" : ($sigil eq "\@" ? "[]" : "{}")
802 15 0 0 !$initializer || $initializer =~ /\A \s*+ \z/msux
1047 0 2 64 $opt->{'accessor'} // $opt->{'accessors'}
2 2 62 ($opt->{'accessor'} // $opt->{'accessors'}) // $opt->{'acc'}
1050 1 1 64 $opt->{'invocant'} // $opt->{'inv'}