Condition Coverage

lib/Date/Manip/Date.pm
Criterion Covered Total %
condition 389 549 70.8


and 3 conditions

line !l l&&!r l&&r condition
242 1112 0 538 $dow2 and $dow
1112 538 0 $dow2 and $dow and $dow != $dow2
970 0 0 4 $h && $mn
3 4 0 $h || $mn || $s and not $h && $mn
5 2 0 $ampm and not $h
1000 0 12586 92 exists $dmb->{'data'}{'lang'}{'_special_rules'} and exists $dmb->{'data'}{'lang'}{'_special_rules'}{$rule}
1066 137 3 4 not @tmp and defined $abb
1124 4772 101 2 defined $abb and lc $a ne lc $abb
1379 1366 0 76 defined $ampm and $ampm
1391 1426 0 12 defined $fh and $fh ne ""
1418 0 8 defined $fm and $fm ne ""
1426 0 57 3 exists $dmb->{'data'}{'rx'}{'sepfr'} and $dmb->{'data'}{'rx'}{'sepfr'}
1459 0 52 8 exists $dmb->{'data'}{'rx'}{'sephm'} and defined $dmb->{'data'}{'rx'}{'sephm'}
52 0 8 exists $dmb->{'data'}{'rx'}{'sephm'} and defined $dmb->{'data'}{'rx'}{'sephm'} and exists $dmb->{'data'}{'rx'}{'sepms'}
0 0 8 exists $dmb->{'data'}{'rx'}{'sephm'} and defined $dmb->{'data'}{'rx'}{'sephm'} and exists $dmb->{'data'}{'rx'}{'sepms'} and defined $dmb->{'data'}{'rx'}{'sepms'}
1775 14 0 0 $h == 24 and $mn == 0
14 0 0 $h == 24 and $mn == 0 and $s == 0
1808 1118 0 1 $h == 24 and $mn == 0
1118 0 1 $h == 24 and $mn == 0 and $s == 0
1914 0 0 16 $y and $m
2049 24 12 0 $got_time and $dh != 0 || $dmn != 0 || $ds != 0
2127 1 0 0 not $tmp and $abbrev
1 0 0 not $tmp and $abbrev and not $zone
2156 1 0 0 not $tmp and $abbrev
1 0 0 not $tmp and $abbrev and not $zone
2221 150 126 603 $got_m and $nth
276 571 32 $got_m and $nth and not $dow
70 5 595 $nth and $dow
75 11 584 $nth and $dow and not $field_w
52 9 25 $field_w and $dow
56 0 5 $nth and not $got_y
2274 121 0 6 $field_d and $got_m
0 1 120 $dow and $got_m
2543 2454 0 126 $h eq "" and $m eq ""
2454 0 126 $h eq "" and $m eq "" and $s eq ""
2734 5250 0 319 $self->{'data'}{'set'} and not $self->{'err'}
2787 4872 2 0 $#val == 1 and $val[1] eq '0' || $val[1] eq '1'
2811 0 0 0 $#val == 0 and $val[0] eq '0' || $val[0] eq '1'
3049 856 2 8 $curr == 2 and $cmp != -1 * $sign
3203 1186 2 86 $mode eq 'approx' || $mode eq 'semi' and $self->{'data'}{'tz'} eq $date->{'data'}{'tz'}
3374 17 60 379 $y1 == $y2 and $m1 == $m2
77 263 116 $y1 == $y2 and $m1 == $m2 and $d1 == $d2
3429 2 3173 1 ref $date2 eq "ARRAY" and $date2->[0] < 0 || $date2->[0] > 9999
3465 73 0 2 $subtract == 2 and not $self->__is_business_day($date, 1)
3474 2097 11 1198 $subtract == 2 and $dy || $dm || $dw || $dd_approx
3518 0 2018 90 not $err and $dd_exact || $dh || $dmn || $ds
3797 45 13 0 $h == $hend and $mn > $mend
45 3 10 $h == $hend and $mn == $mend
48 10 0 $h == $hend and $mn == $mend and $s > $send
45 3 10 $h == $hend and $mn == $mend
48 0 10 $h == $hend and $mn == $mend and $s == $send
30 3 0 $h == $hbeg and $mn < $mbeg
30 0 3 $h == $hbeg and $mn == $mbeg
30 3 0 $h == $hbeg and $mn == $mbeg and $s < $sbeg
4106 2712 0 559 $checktime and not $dmb->_config("workday24hr")
4125 294 733 2115 exists $dmb->{'data'}{'holidays'}{'dates'} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}
1027 456 1659 exists $dmb->{'data'}{'holidays'}{'dates'} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}{$m + 0}
1189 1074 585 exists $dmb->{'data'}{'holidays'}{'dates'} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}{$m + 0} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}{$m + 0}{$d + 0}
4135 82 1 1 not $y and $self->{'data'}{'set'} == 1
4169 0 6 27 exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}{$m + 0}
6 4 23 exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}{$m + 0} and exists $dmb->{'data'}{'holidays'}{'dates'}{$y + 0}{$m + 0}{$d + 0}
4445 682 0 84 $obj->start and $obj->end
4823 11 1 9 @args and $args[$#args] eq "dates"
4830 15 0 6 @args and $#args == 0
15 2 4 @args and $#args == 0 and ref $args[0] eq "Date::Manip::Date"
15 0 2 @args and $#args == 0
15 0 2 @args and $#args == 0 and $args[0] == 0
4906 55 82 48 $beg->cmp($d1) != 1 and $end->cmp($d0) != -1

or 3 conditions

line l !l&&r !l&&!r condition
532 25 10 420 $dow or $of
579 0 0 0 $abb or $off
831 2 2 16 $f eq "H" or $f eq "I"
0 0 16 $f eq "k" or $f eq "i"
0 0 4 $f eq "C" or $f eq "u"
2 0 0 $f eq "T" or $f eq "X"
970 4 0 3 $h || $mn || $s
1053 103 41 4728 defined $abb or defined $off
1128 1 0 49 $off->[0] != $o->[0] or $off->[1] != $o->[1]
1 0 49 $off->[0] != $o->[0] or $off->[1] != $o->[1] or $off->[2] != $o->[2]
1161 86 0 179 $rx eq "cdate" or $rx eq "tdate"
75 0 104 $rx eq "ctime" or $rx eq "ttime"
1328 35 4 275 defined $w or defined $dow
1358 26 4 40 defined $w or defined $dow
1784 14 0 1982 $got_time or exists $opts{'noother'}
1828 0 5 25 not $got_time or $string
2038 0 0 36 abs $dy > 10000 or abs $dm > 120000
0 0 36 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000
0 0 36 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000
0 0 36 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000 or abs $dh > 87840000
0 0 36 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000 or abs $dh > 87840000 or abs $dmn > 5270400000
0 0 36 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000 or abs $dh > 87840000 or abs $dmn > 5270400000 or abs $ds > '316224000000'
2049 6 0 6 $dh != 0 || $dmn != 0 || $ds != 0
2072 0 0 10 $dd != 0 or $dh != 0
0 0 10 $dd != 0 or $dh != 0 or $dmn != 0
0 0 10 $dd != 0 or $dh != 0 or $dmn != 0 or $ds != 0
2238 8 10 32 $field_y or $field_m
18 10 22 $field_y or $field_m or $field_w
2310 0 0 567 not $m2 or $m2 != $m
2327 12 11 2 defined $n or $nth
2349 0 1 4 $field_d or $field_w
1 0 4 $field_d or $field_w or $field_m
1 0 4 $field_d or $field_w or $field_m or $field_y
2682 0 0 10661 $self->{'err'} or not $self->{'data'}{'set'}
2691 0 0 10661 $date->{'err'} or not $date->{'data'}{'set'}
2743 0 0 66 $self->{'err'} or not $self->{'data'}{'set'}
2787 0 0 2 $val[1] eq '0' || $val[1] eq '1'
2811 0 0 0 $val[0] eq '0' || $val[0] eq '1'
2937 0 0 75 $self->{'err'} or not $self->{'data'}{'set'}
2949 0 0 75 $self->{'err'} or not $self->{'data'}{'set'}
3155 0 0 1430 $self->{'err'} or not $self->{'data'}{'set'}
3160 0 0 1430 $date->{'err'} or not $date->{'data'}{'set'}
3172 0 0 226 $args[0] eq 0 or $args[0] eq 1
3203 62 44 1324 $mode eq "business" or $mode eq "bapprox"
106 50 1274 $mode eq "business" or $mode eq "bapprox" or $mode eq "bsemi"
68 20 1186 $mode eq 'approx' || $mode eq 'semi'
3239 8 5 29 $mode eq "business" or $mode eq "exact"
13 10 19 $mode eq "business" or $mode eq "exact" or $subtract == 2
3254 62 44 1324 $mode eq "business" or $mode eq "bapprox"
106 50 1274 $mode eq "business" or $mode eq "bapprox" or $mode eq "bsemi"
3269 68 44 1318 $mode eq "approx" or $mode eq "bapprox"
3275 67 23 22 $dy or $dm
3288 20 68 1342 $mode eq "semi" or $mode eq "approx"
3302 9 60 19 $dw or $dd
3307 44 12 32 $dy or $dm
56 9 23 $dy or $dm or $dw
21 16 7 $dy or $dm or $dw or $dd
3308 7 32 42 $dw > 0 || $dd > 0
3315 50 44 1336 $mode eq "bsemi" or $mode eq "bapprox"
3327 1186 20 224 $mode eq "exact" or $mode eq "semi"
1206 68 156 $mode eq "exact" or $mode eq "semi" or $mode eq "approx"
3341 62 50 1318 $mode eq "business" or $mode eq "bsemi"
112 44 1274 $mode eq "business" or $mode eq "bsemi" or $mode eq "bapprox"
3393 0 0 3178 $self->{'err'} or not $self->{'data'}{'set'}
3414 0 0 3178 abs $dy > 10000 or abs $dm > 120000
0 1 3177 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000
1 0 3177 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000
1 1 3176 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000 or abs $dh > 87840000
1 0 3176 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000 or abs $dh > 87840000 or abs $dmn > 5270400000
1 0 3176 abs $dy > 10000 or abs $dm > 120000 or abs $dw > 530000 or abs $dd > 3660000 or abs $dh > 87840000 or abs $dmn > 5270400000 or abs $ds > '316224000000'
3429 0 1 3173 $date2->[0] < 0 || $date2->[0] > 9999
3474 82 28 11 $dy || $dm || $dw || $dd_approx
3510 1411 241 456 $dy or $dm
1652 90 366 $dy or $dm or $dw
331 125 241 $dy or $dm or $dw or $dd
3518 213 35 1840 $dd_exact || $dh || $dmn || $ds
3670 2 9 1198 $date0->[0] <=> $date1->[0] || $date0->[1] <=> $date1->[1] || $date0->[2] <=> $date1->[2]
3736 309 1254 83 $dd > 0 || $dw > 0 || $dm > 0 || $dy > 0
3797 10 0 58 $h > $hend or $h == $hend and $mn > $mend
0 0 58 $h > $hend or $h == $hend and $mn > $mend or $h == $hend and $mn == $mend and $s > $send
0 10 48 $h > $hend or $h == $hend and $mn > $mend or $h == $hend and $mn == $mend and $s > $send or $h == $hend and $mn == $mend and $s == $send
15 0 33 $h < $hbeg or $h == $hbeg and $mn < $mbeg
0 0 33 $h < $hbeg or $h == $hbeg and $mn < $mbeg or $h == $hbeg and $mn == $mbeg and $s < $sbeg
3831 26 5 17 $dd > 0 || $dh > 0 || $dmn > 0 || $ds > 0
3851 0 1 1397 $date->[0] < 0 or $date->[0] > 9999
3950 0 0 5 $self->{'err'} or not $self->{'data'}{'set'}
3962 0 0 27 $self->{'err'} or not $self->{'data'}{'set'}
4003 0 0 7 $self->{'err'} or not $self->{'data'}{'set'}
4013 0 1 3 $self->{'data'}{'def'}[1] or $self->{'data'}{'def'}[2]
1 1 2 $self->{'data'}{'def'}[1] or $self->{'data'}{'def'}[2] or $self->{'data'}{'def'}[3]
1 0 2 $self->{'data'}{'def'}[1] or $self->{'data'}{'def'}[2] or $self->{'data'}{'def'}[3] or $self->{'data'}{'def'}[4]
0 1 1 $self->{'data'}{'def'}[1] or $self->{'data'}{'def'}[2] or $self->{'data'}{'def'}[3] or $self->{'data'}{'def'}[4] or $self->{'data'}{'def'}[5]
4041 0 0 12 $self->{'err'} or not $self->{'data'}{'set'}
4082 0 0 13 $self->{'err'} or not $self->{'data'}{'set'}
4100 0 1244 3271 $dow < $dmb->_config("workweekbeg") or $dow > $dmb->_config("workweekend")
4111 91 38 430 $t lt $t0 or $t gt $t1
4157 0 0 33 $self->{'err'} or not $self->{'data'}{'set'}
4191 0 0 12 $self->{'err'} or not $self->{'data'}{'set'}
4204 0 0 12 $self->{'err'} or not $self->{'data'}{'set'}
4256 0 0 6 $self->{'err'} or not $self->{'data'}{'set'}
4498 0 0 47 $self->{'err'} or not $self->{'data'}{'set'}
4575 2 3 277 $f eq "G" or $f eq "W"
4586 1 2 279 $f eq "L" or $f eq "U"
4597 23 5 254 $f eq "Y" or $f eq "y"
4602 6 2 274 $f eq "m" or $f eq "f"
4607 19 10 253 $f eq "d" or $f eq "e"
4620 4 3 27 $f eq "I" or $f eq "i"
4643 22 2 102 $f eq "b" or $f eq "h"
1 1 29 $f eq "C" or $f eq "u"
1 1 10 $f eq "T" or $f eq "X"
4705 1 1 2 $date lt $d0 or $date ge $d1
4813 0 0 21 $self->{'err'} or not $self->{'data'}{'set'}
4876 26 26 50 $type eq "ym" or $type eq "date"
4913 8 3 8 $Date::Manip::Date::a->[0]->cmp($Date::Manip::Date::b->[0]) or $Date::Manip::Date::a->[1]->cmp($Date::Manip::Date::b->[1])
4941 44 3 6 $Date::Manip::Date::a->[0]->cmp($Date::Manip::Date::b->[0]) or $Date::Manip::Date::a->[1] cmp $Date::Manip::Date::b->[1]