Condition Coverage

blib/lib/Advanced/Config/Options.pm
Criterion Covered Total %
condition 65 94 69.1


and 3 conditions

line !l l&&!r l&&r condition
777 0 0 0 ref $val eq "" and $val
799 72196 739 1 $val eq "" and $expect ne ""
72935 1 0 $val eq "" and $expect ne "" and $no_spaces_allowed
805 16336 56600 0 $expect =~ /^-?\d+$/ and not $val =~ /^-?\d+$/
811 56600 16336 0 not $expect =~ /^-?\d+$/ and $val =~ /^-?\d+$/
889 0 0 3269 0 <= $ref->{'date_format'} and $ref->{'date_format'} <= 8
958 67141 28 32 $get_opts->{'inherit'} and not defined $data
1010 22 18 0 do { $old =~ /(^true[.!;]?$)|(^yes[.!;]?$)|(^good[.!;]?$)|(^[TYG]$)|(^on[.!;]?$)/i } && do { $v = 1 }
1049 168 171 120 $run_flg and $fp
339 40 80 $run_flg and $fp and $get_opts->{'numeric'} != 3
1057 412 32 15 $err and $run_flg
1089 18 0 0 $get_opts->{'filename'} & 2 and not -r _
1090 18 0 0 $get_opts->{'filename'} & 4 and not -w _
1091 18 0 0 $get_opts->{'filename'} & 8 and not -x _
1104 13 6 0 $get_opts->{'directory'} & 2 and not -r _
1105 18 1 0 $get_opts->{'directory'} & 4 and not -w _
1106 13 6 0 $get_opts->{'directory'} & 8 and not -x _
1116 1172 55253 2609 not $get_opts->{'split'} and $old ne $v
1123 57862 137 125 $get_opts->{'split'} and $get_opts->{'sort'}
1148 8 128465 400 exists $_[0]{'assign'} && $_[0]{'assign'} eq '\\s'
1489 96 40 0 $prev->{'today'} and $prev->{'today'} ne $dates->{'today'}
1515 96 40 0 $prev->{'this_month'} and $prev->{'this_month'} ne $dates->{'this_month'}
1528 96 40 0 $prev->{'this_year'} and $prev->{'this_year'} ne $dates->{'this_year'}

or 2 conditions

line l !l condition
545 53 0 getpwuid $< || '??'
549 0 0 getlogin || '??'

or 3 conditions

line l !l&&r !l&&!r condition
1003 42 6 41 $old =~ /^[-+]?\d+([.]\d*)?$/ or $old =~ /^[-+]?[.]\d+$/
1026 291 168 58624 $get_opts->{'numeric'} or $is_all_numbers
1031 0 0 459 $v =~ /^[+-]?\d+([.]\d*)?[Ee][+-]?\d+$/ or $v =~ /^[+-]?[.]\d+[Ee][+-]?\d$/
165 3 47 $v =~ /^[+-]?\d+[.]\d*$/ or $v =~ /^[+-]?[.]\d+$/
1077 14 0 0 $get_opts->{'date_language'} || $l
1170 67694 0 7341 $ropts->{'quote_left'} eq "['\"]" or $ropts->{'quote_left'} eq "[\"']"
1606 12 12 384 $order == 1 or $order == 2