Branch Coverage

lib/Date/Manip/DM5.pm
Criterion Covered Total %
branch 0 2196 0.0


line true false branch
261 0 0 if $Curr{'Debug'} =~ /trace/
266 0 0 if $Curr{'Debug'} =~ /trace/
285 0 0 if ($var =~ /^GlobalCnf$/i) { }
0 0 elsif ($var =~ /^PathSep$/i) { }
0 0 elsif ($var =~ /^PersonalCnf$/i) { }
0 0 elsif ($var =~ /^PersonalCnfPath$/i) { }
0 0 elsif ($var =~ /^IgnoreGlobalCnf$/i) { }
0 0 elsif ($var =~ /^EraseHolidays$/i) { }
287 0 0 if ($val)
295 0 0 if $Curr{'InitFilesRead'} == 2
298 0 0 if $Curr{'InitFilesRead'} == 2
300 0 0 if $Curr{'InitFilesRead'} == 0
311 0 0 if ($Curr{'InitFilesRead'} < 1 and not $Cnf{'IgnoreGlobalCnf'})
314 0 0 if ($Cnf{'GlobalCnf'})
316 0 0 if $file
321 0 0 if ($Curr{'InitFilesRead'} < 2)
324 0 0 if ($Cnf{'PersonalCnf'} and $Cnf{'PersonalCnfPath'})
326 0 0 if $file
335 0 0 unless defined $val
340 0 0 unless _IsInt($Cnf{'FirstDay'}, 1, 7)
342 0 0 unless _IsInt($Cnf{'WorkWeekBeg'}, 1, 7)
344 0 0 unless _IsInt($Cnf{'WorkWeekEnd'}, 1, 7)
346 0 0 if $Cnf{'WorkWeekEnd'} <= $Cnf{'WorkWeekBeg'}
355 0 0 if ($Curr{'InitLang'})
358 0 0 if ($L eq 'English') { }
0 0 elsif ($L eq 'French') { }
0 0 elsif ($L eq 'Swedish') { }
0 0 elsif ($L eq 'German') { }
0 0 elsif ($L eq 'Polish') { }
0 0 elsif ($L eq 'Dutch' or $L eq 'Nederlands') { }
0 0 elsif ($L eq 'Spanish') { }
0 0 elsif ($L eq 'Portuguese') { }
0 0 elsif ($L eq 'Romanian') { }
0 0 elsif ($L eq 'Italian') { }
0 0 elsif ($L eq 'Russian') { }
0 0 elsif ($L eq 'Turkish') { }
0 0 elsif ($L eq 'Danish') { }
0 0 elsif ($L eq 'Catalan') { }
478 0 0 if ($tmp2 < 6)
611 0 0 if ($Curr{'ResetWorkDay'})
613 0 0 if ($Cnf{'WorkDay24Hr'}) { }
622 0 0 unless ($h1, $m1) = _CheckTime($Cnf{'WorkDayBeg'})
625 0 0 unless ($h2, $m2) = _CheckTime($Cnf{'WorkDayEnd'})
634 0 0 if ($m1 < 0)
645 0 0 if ($Cnf{'ForceDate'} =~ /^(\d{4})-(\d{2})-(\d{2})-(\d{2}):(\d{2}):(\d{2})$/) { }
662 0 0 if ($Cnf{'TodayIsMidnight'}) { }
673 0 0 if (wantarray)
683 0 0 if exists $tmp{$key}
693 0 0 if $Curr{'Debug'} =~ /trace/
695 0 0 unless $_
701 0 0 if not $Curr{'InitDone'} or $Cnf{'UpdateCurrTZ'}
708 0 0 if ($Lang{$L}{'Exact'} and s/$Lang{$L}{'Exact'}//) { }
0 0 elsif ($Lang{$L}{'Approx'} and s/$Lang{$L}{'Approx'}//) { }
0 0 elsif ($Lang{$L}{'Business'} and s/$Lang{$L}{'Business'}//) { }
0 0 elsif (not exists $Curr{'Mode'}) { }
743 0 0 if /[^:0-9]/
748 0 0 if (@tmp)
812 0 0 if (/(^|[^a-z])$timeexp($|[^a-z])/i)
828 0 0 if (length $z != 1 or length $aft == 0) { }
843 0 0 if not /$falsefrom/ and s/$from/$to/
846 0 0 if (/$D$mnsec/i or /$ampmexp/i)
849 0 0 if /$mnsec$zone2?\s*$/i or /$mnsec$zone\s*$/i
850 0 0 if /$ampmexp/i
851 0 0 if (s/$apachetime$zone()/$1 /i or s/$apachetime$zone2?/$1 /i or s/(^|[^a-z])$at\s*$D$mnsec$zone()/$1 /i or s/(^|[^a-z])$at\s*$D$mnsec$zone2?/$1 /i or s/(^|[^0-9])(\d)$mnsec$zone()/$1 /i or s/(^|[^0-9])(\d)$mnsec$zone2?/$1 /i or s/(t)$D$mnsec$zone()/$1 /i and ($iso = $tmp) || 1 or s/(t)$D$mnsec$zone2?/$1 /i and ($iso = $tmp) || 1 or s/()$DD$mnsec$zone()/ /i and ($iso = $tmp) || 1 or s/()$DD$mnsec$zone2?/ /i and ($iso = $tmp) || 1 or s/(^|$at\s*|\s+)$D()()\s*$ampmexp$zone()/ /i or s/(^|$at\s*|\s+)$D()()\s*$ampmexp$zone2?/ /i or 0)
866 0 0 if (defined $z)
867 0 0 if ($z =~ /^[+-]\d{2}:\d{2}$/) { }
0 0 elsif ($z =~ /^[+-]\d{2}$/) { }
880 0 0 if (/^\s*$/)
881 0 0 unless $Cnf{'UpdateCurrTZ'}
886 0 0 if $time ne 1
891 0 0 if ($z)
900 0 0 if ($iso and /^([0-9-]+(?:W[0-9-]+)?)$zone?$/i or $iso and /^([0-9-]+(?:W[0-9-]+)?)$zone2?$/i or $iso and /^([0-9-]+(?:T[0-9-]+)?)$zone?$/i or $iso and /^([0-9-]+(?:T[0-9-]+)?)$zone2?$/i or $iso and /^([0-9-]+)T$zone?$/i or $iso and /^([0-9-]+)T$zone2?$/i or 0)
910 0 0 if ($z)
915 0 0 if @z
921 0 0 if (/^$D4\s*$DD\s*$DD\s*t?$DD(?:$DD(?:$DD(\d*))?)?$/i or /^$DD\s+$DD\s*$DD\s*t?$DD(?:$DD(?:$DD(\d*))?)?$/i or 0) { }
0 0 elsif (/^$D4(?:\s*$DD(?:\s*$DD)?)?$/ or /^$DD(?:\s+$DD(?:\s*$DD)?)?$/) { }
0 0 elsif (/^$YY\s+$D\s+$D/) { }
0 0 elsif (/^$YY\s*W$DD\s*(\d)?$/i) { }
0 0 elsif (/^$D4\s*(\d{3})$/ or /^$DD\s*(\d{3})$/) { }
0 0 elsif ($iso < 0) { }
936 0 0 if ($h == 24 and !defined($mn) || $mn == 0 and !defined($s) || $s == 0)
940 0 0 unless defined $h
941 0 0 if $time and defined $h
985 0 0 if $Curr{'InCalc'} and $delta
986 0 0 if ($delta)
987 0 0 unless $Cnf{'UpdateCurrTZ'}
996 0 0 if (/$wom/i or /$future/i or /$later/i or /$past/i or /$next/i or /$prev/i or /^$week$/i or /$wkabb/i)
1000 0 0 if (/^$wom\s*$week$of\s*$month\s*$YY?$/i) { }
0 0 elsif (/^$last$day$of\s*$month(?:$of?\s*$YY)?/i) { }
0 0 elsif (/^$week$/i) { }
0 0 elsif (/^$next\s*$week$/i) { }
0 0 elsif (/^$prev\s*$week$/i) { }
0 0 elsif (/^$next$wkabb$/i) { }
0 0 elsif (/^$prev$wkabb$/i) { }
0 0 elsif (/^$next$mabb$/i) { }
0 0 elsif (/^$prev$mabb$/i) { }
0 0 elsif (/^$future\s*(\d+)$day$/i or /^(\d+)$day$later$/i) { }
0 0 elsif (/^(\d+)$day$past$/i) { }
0 0 elsif (/^$future\s*(\d+)$wkabb$/i or /^(\d+)$wkabb$later$/i) { }
0 0 elsif (/^(\d+)$wkabb$past$/i) { }
0 0 elsif (/^$future\s*(\d+)$mabb$/i or /^(\d+)$mabb$later$/i) { }
0 0 elsif (/^(\d+)$mabb$past$/i) { }
0 0 elsif (/^$week$future\s*(\d+)$wkabb$/i or /^$week\s*(\d+)$wkabb$later$/i) { }
0 0 elsif (/^$week\s*(\d+)$wkabb$past$/i) { }
0 0 elsif (/^$future\s*(\d+)$wkabb$on$week$/i or /^(\d+)$wkabb$later$on$week$/i) { }
0 0 elsif (/^(\d+)$wkabb$past$on$week$/i) { }
0 0 elsif (/^$week\s*$wkabb$/i) { }
0 0 elsif (/^$now\s*$wkabb$/i and $tmp = 'Now' or /^$today\s*$wkabb$/i and $tmp = 'Today') { }
0 0 elsif (/^$offset\s*$wkabb$/i) { }
1004 0 0 if _Date_DateCheck(\$y, \$m, \$d, \$h, \$mn, \$s, \$ampm, \$wk)
1009 0 0 if ($wofm == -1) { }
1014 0 0 if ($i == 0) { }
1026 0 0 unless $Cnf{'UpdateCurrTZ'}
1027 0 0 if not defined $y or length $y < 4
1035 0 0 unless $Cnf{'UpdateCurrTZ'}
1043 0 0 unless $Cnf{'UpdateCurrTZ'}
1050 0 0 unless $Cnf{'UpdateCurrTZ'}
1056 0 0 unless $Cnf{'UpdateCurrTZ'}
1058 0 0 if defined $h
1062 0 0 unless $Cnf{'UpdateCurrTZ'}
1064 0 0 if defined $h
1069 0 0 unless $Cnf{'UpdateCurrTZ'}
1071 0 0 if defined $h
1075 0 0 unless $Cnf{'UpdateCurrTZ'}
1077 0 0 if defined $h
1085 0 0 unless $Cnf{'UpdateCurrTZ'}
1088 0 0 if defined $h
1093 0 0 unless $Cnf{'UpdateCurrTZ'}
1096 0 0 if defined $h
1104 0 0 unless $Cnf{'UpdateCurrTZ'}
1107 0 0 if defined $h
1112 0 0 unless $Cnf{'UpdateCurrTZ'}
1115 0 0 if defined $h
1123 0 0 unless $Cnf{'UpdateCurrTZ'}
1126 0 0 if defined $h
1131 0 0 unless $Cnf{'UpdateCurrTZ'}
1134 0 0 if defined $h
1166 0 0 unless $Cnf{'UpdateCurrTZ'}
1168 0 0 if $time
1173 0 0 unless $Cnf{'UpdateCurrTZ'}
1177 0 0 if ($time)
1178 0 0 if _Date_DateCheck(\$y, \$m, \$d, \$h, \$mn, \$s, \$ampm, \$wk)
1185 0 0 if ($tmp)
1186 0 0 unless $Cnf{'UpdateCurrTZ'}
1197 0 0 if (/(^|[^a-z0-9])$dom($|[^a-z0-9])/i)
1198 0 0 if (/^\s*$dom\s*$/)
1212 0 0 if (/^$D\s*$week(?:$of?\s*$YY)?$/i) { }
0 0 elsif (/^$week$wkabb\s*$D(?:$of?\s*$YY)?$/i or /^$week\s*$D$wkabb(?:$of?\s*$YY)?$/i) { }
1215 0 0 unless $y
1218 0 0 if ($which > 1)
1233 0 0 if (/(^|[^a-z])$week($|[^a-z])/i)
1235 0 0 unless s/(^|[^a-z])$week,/$1 /i
1252 0 0 if (/^$D\s+$D(?:\s+$YY)?$/) { }
0 0 elsif (/^$D4\s*$D\s*$D$/) { }
0 0 elsif (s/(^|[^a-z])$month($|[^a-z])/$1 $3/i) { }
0 0 elsif (/^epochNEGATIVE (\d+)$/) { }
0 0 elsif (/^epoch\s*(\d+)$/i) { }
0 0 elsif (/^$now$/i and $tmp = 'Now' or /^$today$/i and $tmp = 'Today') { }
0 0 elsif (/^$offset$/i) { }
1255 0 0 if $type ne "US"
1266 0 0 if (/^\s*$D(?:\s+$YY)?\s*$/) { }
0 0 elsif (/^\s*$D$D4\s*$/) { }
0 0 elsif (/^\s*$D4\s*$D\s*$/) { }
0 0 elsif (/^\s*$D4\s*$/) { }
1307 0 0 unless $Cnf{'UpdateCurrTZ'}
1309 0 0 if ($time)
1310 0 0 if _Date_DateCheck(\$y, \$m, \$d, \$h, \$mn, \$s, \$ampm, \$wk)
1319 0 0 unless $Cnf{'UpdateCurrTZ'}
1322 0 0 if ($time)
1323 0 0 if _Date_DateCheck(\$y, \$m, \$d, \$h, \$mn, \$s, \$ampm, \$wk)
1335 0 0 unless ($date)
1336 0 0 if _Date_DateCheck(\$y, \$m, \$d, \$h, \$mn, \$s, \$ampm, \$wk)
1340 0 0 if ($midnight)
1347 0 0 if $Curr{'Debug'} =~ /trace/
1348 0 0 unless $Curr{'InitDone'}
1356 0 0 if ($#a != 0)
1362 0 0 if (not $ref) { }
0 0 elsif ($ref eq 'ARRAY') { }
0 0 elsif ($ref eq 'SCALAR') { }
1363 0 0 if _Date_Split($args)
1368 0 0 if _Date_Split($$args)
1385 0 0 if $date
1390 0 0 if defined $ref and $ref eq "ARRAY"
1405 0 0 if $Curr{'Debug'} =~ /trace/
1412 0 0 if (defined $errref)
1413 0 0 if (ref $errref) { }
0 0 elsif (not defined $mode) { }
1423 0 0 if (exists $Curr{'Mode'}) { }
1429 0 0 if (defined $mode and $mode >= 0 and $mode <= 3) { }
1435 0 0 if (exists $Curr{'InCalc'}) { }
1442 0 0 if ($tmp = ParseDateString($D1)) { }
0 0 elsif ($tmp = ParseDateDelta($D1)) { }
1445 0 0 if (_Date_Split($D1)) { }
1453 0 0 if $ref
1459 0 0 if ($tmp = ParseDateString($D2)) { }
0 0 elsif ($tmp = ParseDateDelta($D2)) { }
1460 0 0 if (_Date_Split($D2)) { }
1469 0 0 if $ref
1478 0 0 if ($#date == 1) { }
0 0 elsif ($#date == 0) { }
1482 0 0 if $ref
1490 0 0 if $Curr{'Debug'} =~ /trace/
1499 0 0 if ($#a != 0)
1505 0 0 if (not $ref) { }
0 0 elsif ($ref eq 'ARRAY') { }
0 0 elsif ($ref eq 'SCALAR') { }
1528 0 0 unless $Curr{'InitDone'}
1551 0 0 if $_ eq ""
1555 0 0 if ($Lang{$Cnf{'Language'}}{'Exact'} and s/$Lang{$Cnf{'Language'}}{'Exact'}//) { }
0 0 elsif ($Lang{$Cnf{'Language'}}{'Approx'} and s/$Lang{$Cnf{'Language'}}{'Approx'}//) { }
0 0 elsif ($Lang{$Cnf{'Language'}}{'Business'} and s/$Lang{$Cnf{'Language'}}{'Business'}//) { }
0 0 elsif (not exists $Curr{'Mode'}) { }
1567 0 0 if $Curr{'Mode'} != 2
1591 0 0 if ($tmp2 =~ s/(^|[^a-z])($future)($|[^a-z])/$1 $3/i)
1593 0 0 if ($tmpl > $len)
1601 0 0 if ($tmp2 =~ s/(^|[^a-z])($later)($|[^a-z])/$1 $3/i)
1603 0 0 if ($tmpl > $len)
1611 0 0 if ($tmp2 =~ s/(^|[^a-z])($past)($|[^a-z])/$1 $3/i)
1613 0 0 if ($tmpl > $len)
1625 0 0 if (s/($signexp?$numexp?(:($signexp?$numexp)?){1,6})$//)
1636 0 0 if $#colon >= $i--
1638 0 0 if (s/^$exp1//xi)
1639 0 0 if $2
1640 0 0 if $1
1649 0 0 if length $sign
1650 0 0 $count % 2 ? :
1654 0 0 unless (/^\s*$/)
1662 0 0 if ($colon[$i] =~ /^$signexp$numexp?/)
1663 0 0 if $2
1664 0 0 if $1
1671 0 0 if ($dir < 0)
1680 0 0 if defined $ref and $ref eq "ARRAY"
1689 0 0 if $Curr{'Debug'} =~ /trace/
1695 0 0 unless $date
1700 0 0 unless $Curr{'InitDone'}
1702 0 0 unless (wantarray)
1721 0 0 if ($f{'W'} >= 52 or $f{'U'} >= 52)
1724 0 0 if ($dd > 31)
1728 0 0 if (Date_WeekOfYear($mm, $dd, $yy, 1) == 2)
1732 0 0 if (Date_WeekOfYear($mm, $dd, $yy, 7) == 2)
1738 0 0 if ($f{'W'} == 0)
1741 0 0 if $dd < 1
1747 0 0 if ($f{'U'} == 0)
1750 0 0 if $dd < 1
1757 0 0 if length $f{'U'} < 2
1758 0 0 if length $f{'W'} < 2
1768 0 0 if length $f{'v'} < 2
1779 0 0 if $f{'k'} == 0
1780 0 0 if $f{'k'} > 12
1781 0 0 if $f{'i'} > 12
1782 0 0 if length $f{'i'} < 2
1786 0 0 if $f{'k'} > 11
1792 0 0 $Cnf{'ConvTZ'} eq 'IGNORE' || $Cnf{'ConvTZ'} eq '' ? :
1793 0 0 $f{'Z'} =~ /^[+-]\d{4}/ ? :
1801 0 0 if $Cnf{'DateFormat'} ne "US"
1811 0 0 if ($f{'W'} == 0) { }
1814 0 0 if length $tmp < 2
1836 0 0 if ($c eq '%') { }
1838 0 0 if ($c eq 'l') { }
0 0 elsif (exists $f{"$c"}) { }
1842 0 0 if (Date_Cmp($date, $date1) >= 0 and Date_Cmp($date, $date2) <= 0) { }
1859 0 0 if ($scalar) { }
1869 0 0 if $Curr{'Debug'} =~ /trace/
1872 0 0 if (lc $arg[0] eq 'approx') { }
1881 0 0 unless $delta
1888 0 0 if (defined $dec and $dec > 0) { }
1894 0 0 unless (wantarray)
1912 0 0 if ($mode eq 'exact') { }
1931 0 0 if ($mode eq 'exact') { }
1984 0 0 if ($c1 eq '%') { }
1986 0 0 if (exists $f{$c1})
1991 0 0 if (exists $f{"$c1$c2"})
2003 0 0 if ($scalar) { }
2012 0 0 if $Curr{'Debug'} =~ /trace/
2013 0 0 unless $Curr{'InitDone'}
2045 0 0 unless defined $date0
2046 0 0 unless defined $date1
2047 0 0 unless defined $dateb
2048 0 0 unless defined $flag
2050 0 0 if ($dateb)
2052 0 0 unless $dateb
2054 0 0 if ($date0)
2056 0 0 unless $date0
2058 0 0 if ($date1)
2060 0 0 unless $date1
2070 0 0 if (@tmp) { }
2072 0 0 unless defined $recur_0
2073 0 0 unless defined $recur_1
2074 0 0 unless defined $flag_t
2075 0 0 unless defined $date_b
2076 0 0 unless defined $date_0
2077 0 0 unless defined $date_1
2081 0 0 if $#recur0 + $#recur1 + 2 != 7
2083 0 0 if ($date_b)
2085 0 0 unless $date_b
2087 0 0 if ($date_0)
2089 0 0 unless $date_0
2091 0 0 if ($date_1)
2093 0 0 unless $date_1
2116 0 0 if (/(^|[^a-z])$daysexp($|[^a-z])/i)
2124 0 0 if (/(^|[^a-z])$each($|[^a-z])/i) { }
2131 0 0 if ($each) { }
2133 0 0 if (/^$D?$day(?:$of$mmm?$Y)?$/i or /^$D?$day(?:$of$mmm())?$/i) { }
0 0 elsif (/^$D$day?$of$month(?:$of?$Y)?$/) { }
0 0 elsif (/^$D$wkexp$of$month(?:$of?$Y)?$/ or /^($lastexp)$wkexp$of$month(?:$of?$Y)?$/) { }
0 0 elsif (/^$D?$wkexp(?:$of$mmm?$Y)?$/i or /^$D?$wkexp(?:$of$mmm())?$/i) { }
2138 0 0 unless defined $num
2139 0 0 unless defined $m
2140 0 0 unless defined $y
2142 0 0 unless $y
2143 0 0 if ($m) { }
2158 0 0 unless $y
2172 0 0 unless $y
2174 0 0 unless $num =~ /^$D$/
2188 0 0 unless $y
2189 0 0 unless defined $num
2190 0 0 unless defined $m
2193 0 0 if ($m) { }
2210 0 0 if $date0
2211 0 0 if $date1
2221 0 0 unless $date0
2222 0 0 unless $date1
2223 0 0 unless $dateb
2224 0 0 if ($flag =~ s/^\+//)
2225 0 0 if $flag_t
2227 0 0 unless $flag
2228 0 0 unless $flag
2230 0 0 unless (wantarray)
2232 0 0 if @recur1
2236 0 0 if (@recur0)
2237 0 0 unless $date0 and $date1
2247 0 0 if ($f =~ /^EASTER$/i)
2250 0 0 if ($#recur0 == -1) { }
0 0 elsif ($#recur0 <= 3) { }
0 0 elsif ($#recur0 == 4) { }
0 0 elsif ($#recur0 == 5) { }
2278 0 0 if ($#recur0 == -1)
2281 0 0 if ($y eq 0)
2291 0 0 if length $y == 2
2292 0 0 if length $y != 4 or not _IsInt($y)
2295 0 0 unless $date0
2296 0 0 unless $date1
2298 0 0 if ($m eq '0' and $w eq '0') { }
0 0 elsif ($w eq '0') { }
0 0 elsif ($m eq '0') { }
2303 0 0 if ($d eq '0') { }
2307 0 0 unless @d
2309 0 0 if not _IsInt($d, -366, 366) or $d == 0
2318 0 0 if $tmpd < 0
2319 0 0 unless _IsInt($tmpd, 1, $diy)
2332 0 0 unless @m
2334 0 0 unless _IsInt($m, 1, 12)
2337 0 0 if ($d eq '0') { }
2341 0 0 unless @d
2343 0 0 if not _IsInt($d, -31, 31) or $d == 0
2353 0 0 if $d < 0
2354 0 0 unless _IsInt($tmpd, 1, $dim)
2368 0 0 unless @w
2370 0 0 if not _IsInt($w, -53, 53) or $w == 0
2373 0 0 if ($d eq '0') { }
2377 0 0 unless @d
2379 0 0 if $d < 0
2380 0 0 unless _IsInt($d, 1, 7)
2389 0 0 if ($w < 0) { }
2401 0 0 if (_Date_Split($date))[0] == $y
2413 0 0 unless @m
2415 0 0 unless @w
2416 0 0 if ($d eq '0') { }
2427 0 0 if ($#recur0 == 0)
2431 0 0 if $n == 0
2433 0 0 if ($m eq '0') { }
0 0 elsif ($w eq '0') { }
2442 0 0 if not $dateb and $y != 1
2445 0 0 unless @m
2447 0 0 unless _IsInt($m, 1, 12)
2450 0 0 if ($d eq '0') { }
2454 0 0 unless @d
2456 0 0 if not _IsInt($d, -31, 31) or $d == 0
2463 0 0 if ($dateb) { }
2472 0 0 if (($yy - $yb) % $n == 0)
2477 0 0 if ($tmpd < 0)
2480 0 0 unless _IsInt($tmpd, 1, $dim)
2493 0 0 if not $dateb and $y != 1
2496 0 0 unless @m
2498 0 0 unless @w
2500 0 0 if ($d eq '0') { }
2508 0 0 if ($dateb) { }
2516 0 0 if (($yy - $yb) % $n == 0)
2526 0 0 if ($#recur0 == 1)
2530 0 0 if ($w eq '0') { }
0 0 elsif ($m == 0) { }
2539 0 0 if not $dateb and $y != 1
2541 0 0 if $n == 0
2544 0 0 unless @w
2546 0 0 if $w == 0 or not _IsInt($w, -53, 53)
2549 0 0 if ($d eq '0') { }
2553 0 0 unless @d
2555 0 0 if $d < 0
2556 0 0 unless _IsInt($d, 1, 7)
2563 0 0 if ($dateb) { }
2572 0 0 if (($yy - $yb) % $n == 0)
2576 0 0 if ($w < 0) { }
2588 0 0 if (_Date_Split($date))[0] != $yy
2600 0 0 if not $dateb and $y != 0 || $m != 1
2604 0 0 unless $dateb
2609 0 0 if ($d eq '0') { }
2620 0 0 if ($#recur0 == 2)
2623 0 0 if ($d eq '0') { }
0 0 elsif ($m == 0 and $w == 0) { }
0 0 elsif ($w > 0) { }
0 0 elsif ($m > 0) { }
2626 0 0 unless $dateb
2627 0 0 if $y == 0 and $m == 0 and $w == 0
2635 0 0 if $y == 0
2637 0 0 if not $dateb and $y != 1
2640 0 0 unless @d
2642 0 0 if not _IsInt($d, -366, 366) or $d == 0
2648 0 0 if ($dateb) { }
2657 0 0 if (($yy - $yb) % $n == 0)
2660 0 0 if $tmpd < 0
2661 0 0 unless _IsInt($tmpd, 1, $diy)
2672 0 0 if not $dateb and ($y != 0 and $m != 0 and $w != 1)
2678 0 0 unless @d
2680 0 0 if $d < 0
2681 0 0 unless _IsInt($d, 1, 7)
2685 0 0 unless $dateb
2693 0 0 if ($d != $tmp)
2694 0 0 if ($tmp >= $Cnf{'FirstDay'} and $d < $Cnf{'FirstDay'} or $tmp >= $Cnf{'FirstDay'} and $d > $tmp or $tmp < $d and $d < $Cnf{'FirstDay'}) { }
2709 0 0 if not $dateb and ($y != 0 and $m != 1)
2715 0 0 unless @d
2717 0 0 if $d == 0 or not _IsInt($d, -31, 31)
2719 0 0 unless $dateb
2728 0 0 if $tmpd < 0
2729 0 0 unless _IsInt($tmpd, 1, $dim)
2740 0 0 if ($#recur0 > 2)
2746 0 0 if ($#recur0 == 3 and ($y == 0 and $m == 0 and $w == 0 and $d == 1) or $#recur0 == 4 and ($y == 0 and $m == 0 and $w == 0 and $d == 0 and $h == 1) or $#recur0 == 5 and ($y == 0 and $m == 0 and $w == 0 and $d == 0 and $h == 0 and $mn == 1))
2755 0 0 unless $dateb
2759 0 0 unless $delta =~ /[1-9]/
2761 0 0 if (@recur1) { }
2773 0 0 if @time
2780 0 0 if (@flags)
2784 0 0 if ($f =~ /^(P|N)(D|T)([1-7])$/)
2786 0 0 $tmp[0] eq 'P' ? :
2787 0 0 $tmp[1] eq 'D' ? :
2791 0 0 if ($forw) { }
2804 0 0 if ($f =~ /^(F|B)(D|W)(\d+)$/)
2807 0 0 if $tmp[0] eq "B"
2809 0 0 if $tmp[1] eq "W"
2816 0 0 if not $work or Date_IsWorkDay($date, 0)
2825 0 0 if ($f =~ /^CW(N|P|D)$/ or $f =~ /^(N|P|D)W(D)$/)
2827 0 0 $2 ? :
2828 0 0 if ($tmp eq 'N' or $tmp eq 'D' and $Cnf{'TomorrowFirst'}) { }
2837 0 0 if (Date_IsWorkDay($date))
2842 0 0 if ($forw) { }
2847 0 0 if (Date_IsWorkDay($d))
2851 0 0 unless $noalt
2858 0 0 if ($f eq "EASTER")
2864 0 0 if Date_Cmp($date, $date0) < 0 or Date_Cmp($date, $date1) > 0
2878 0 0 if $Curr{'Debug'} =~ /trace/
2880 0 0 unless $Curr{'InitDone'}
2883 0 0 if defined $hr and $hr eq 0
2884 0 0 if defined $min and $min eq 0
2885 0 0 if defined $sec and $sec eq 0
2887 0 0 unless (_Date_Split($date))
2889 0 0 unless $date
2894 0 0 if ($dow) { }
2897 0 0 if (_IsInt($dow)) { }
2898 0 0 if $dow < 1 or $dow > 7
2900 0 0 unless exists $dow{lc $dow}
2903 0 0 if ($dow == $curr_dow) { }
2904 0 0 unless $today
2905 0 0 if $today == 2
2907 0 0 if $dow > $curr_dow
2911 0 0 if defined $hr
2912 0 0 if $adjust and Date_Cmp($date, $curr) > 0
2918 0 0 if ($hr) { }
0 0 elsif ($min) { }
0 0 elsif ($sec) { }
2932 0 0 if ($today) { }
2933 0 0 if Date_Cmp($d, $date) > 0
2935 0 0 if Date_Cmp($d, $date) >= 0
2943 0 0 if $Curr{'Debug'} =~ /trace/
2945 0 0 unless $Curr{'InitDone'}
2948 0 0 if defined $hr and $hr eq 0
2949 0 0 if defined $min and $min eq 0
2950 0 0 if defined $sec and $sec eq 0
2952 0 0 unless (_Date_Split($date))
2954 0 0 unless $date
2959 0 0 if ($dow) { }
2962 0 0 if (_IsInt($dow)) { }
2963 0 0 if $dow < 1 or $dow > 7
2965 0 0 unless exists $dow{lc $dow}
2968 0 0 if ($dow == $curr_dow) { }
2969 0 0 unless $today
2970 0 0 if $today == 2
2972 0 0 if $curr_dow > $dow
2976 0 0 if defined $hr
2977 0 0 if $adjust and Date_Cmp($date, $curr) < 0
2983 0 0 if ($hr) { }
0 0 elsif ($min) { }
0 0 elsif ($sec) { }
2997 0 0 if ($today) { }
2998 0 0 if Date_Cmp($d, $date) < 0
3000 0 0 if Date_Cmp($d, $date) < 1
3009 0 0 if $Curr{'Debug'} =~ /trace/
3011 0 0 unless $Curr{'InitDone'}
3013 0 0 unless $date
3017 0 0 unless exists $Holiday{'dates'}{$y}
3019 0 0 unless exists $Holiday{'dates'}{$y}{$date}
3021 0 0 unless $name
3026 0 0 if $Curr{'Debug'} =~ /trace/
3028 0 0 unless $Curr{'InitDone'}
3033 0 0 unless $date0
3035 0 0 if ($#args == 0)
3039 0 0 if ($args[1]) { }
3041 0 0 unless $date1
3042 0 0 if (Date_Cmp($date0, $date1) > 0)
3055 0 0 unless $flag
3061 0 0 if ($flag == 1) { }
0 0 elsif ($flag == 2) { }
3067 0 0 if (exists $ret{$flag}) { }
3082 0 0 unless $flag
3083 0 0 if (exists $ret{$flag}) { }
3101 0 0 if $Curr{'Debug'} =~ /trace/
3103 0 0 unless $Curr{'InitDone'}
3106 0 0 unless (_Date_Split($date))
3108 0 0 unless $date
3115 0 0 if _Date_DateCheck(\$y, \$m, \$d, \$h, \$mn, \$s, \$ampm, \$wk)
3120 0 0 if $Curr{'Debug'} =~ /trace/
3123 0 0 unless defined $nocheck
3127 0 0 unless ($y)
3129 0 0 unless $date
3133 0 0 if (lc $field eq 'y') { }
0 0 elsif (lc $field eq 'm') { }
0 0 elsif (lc $field eq 'd') { }
0 0 elsif (lc $field eq 'h') { }
0 0 elsif (lc $field eq 'mn') { }
0 0 elsif (lc $field eq 's') { }
3150 0 0 if $nocheck or _Date_Split($date)
3167 0 0 if $Curr{'Debug'} =~ /trace/
3169 0 0 if length $y != 4
3171 0 0 if Date_LeapYear($y)
3176 0 0 if $Curr{'Debug'} =~ /trace/
3178 0 0 if length $y != 4
3183 0 0 if $dayofweek == 0
3190 0 0 if $Curr{'Debug'} =~ /trace/
3192 0 0 if length $y != 4
3201 0 0 if $Curr{'Debug'} =~ /trace/
3203 0 0 unless $Curr{'InitDone'}
3204 0 0 if length $y != 4
3207 0 0 if $Cnf{'ConvTZ'} eq "IGNORE"
3210 0 0 if not defined $tz or $tz eq ""
3211 0 0 unless $tz =~ /^[+-]\d{4}$/
3214 0 0 if $tz < 0
3222 0 0 if $Curr{'Debug'} =~ /trace/
3224 0 0 if length $y != 4
3236 0 0 if $y == 0
3240 0 0 if $yy == 0
3241 0 0 if $y == 0
3245 0 0 if $y == 0
3254 0 0 if $Curr{'Debug'} =~ /trace/
3256 0 0 if length $y != 4
3260 0 0 if $m > 2 and Date_LeapYear($y)
3265 0 0 if $Curr{'Debug'} =~ /trace/
3267 0 0 if length $y != 4
3268 0 0 if Date_LeapYear($y)
3273 0 0 if $Curr{'Debug'} =~ /trace/
3275 0 0 unless $Curr{'InitDone'}
3276 0 0 if length $y != 4
3282 0 0 if ($Cnf{'Jan1Week1'}) { }
3290 0 0 if $f > $dow
3293 0 0 if $day > $doy
3298 0 0 if $Curr{'Debug'} =~ /trace/
3300 0 0 if length $y != 4
3301 0 0 unless $y % 4 == 0
3302 0 0 unless $y % 100 == 0
3303 0 0 unless $y % 400 == 0
3308 0 0 if $Curr{'Debug'} =~ /trace/
3310 0 0 unless $Curr{'InitDone'}
3315 0 0 if $Curr{'Debug'} =~ /trace/
3317 0 0 unless (_Date_Split($date))
3319 0 0 if (not $level) { }
0 0 elsif ($level == 1) { }
3327 0 0 unless $Curr{'InitDone'}
3330 0 0 if (not defined $from or $from eq '') { }
3332 0 0 if (not defined $to or $to eq '') { }
3334 0 0 if $Cnf{'ConvTZ'} eq "IGNORE" or not $Cnf{'ConvTZ'}
3341 0 0 if not defined $from or $from eq ""
3346 0 0 if (not defined $to or $to eq '') { }
3348 0 0 if $Cnf{'ConvTZ'} eq "IGNORE"
3350 0 0 if not defined $to or $to eq ""
3358 0 0 if exists $Zone{'n2o'}{lc $to}
3360 0 0 if exists $Zone{'n2o'}{lc $from}
3363 0 0 unless $from =~ /^[+-]\d{4}$/ and $to =~ /^[+-]\d{4}$/
3364 0 0 if $from eq $to
3373 0 0 $s1 eq '-' ? :
3380 0 0 if ($s1 eq $s2) { }
3385 0 0 $s2 eq '-' ? :
0 0 if $h1 < $h2 or $h1 == $h2 and $m1 < $m2
3390 0 0 if ($m > 59) { }
0 0 elsif ($m < 0) { }
3398 0 0 if ($h > 23) { }
0 0 elsif ($h < 0) { }
3401 0 0 if ($d + $delta > 28)
3409 0 0 if ($d - $delta < 1)
3419 0 0 if $Curr{'Debug'} =~ /trace/
3421 0 0 unless $Curr{'InitDone'}
3425 0 0 if defined $Cnf{'TZ'}
3426 0 0 if defined $ENV{'TZ'}
3428 0 0 if defined $ENV{'SYS$TIMEZONE_RULE'}
3430 0 0 if defined $ENV{'SYS$TIMEZONE_NAME'}
3432 0 0 if defined $ENV{'UCX$TZ'}
3434 0 0 if defined $ENV{'TCPIP$TZ'}
3446 0 0 unless ($^O ne "cygwin" and $^X =~ /perl\.exe$/i or $OS eq "Windows" or $OS eq "Netware" or $OS eq "VMS")
3450 0 0 if ($Date::Manip::DM5::NoTaint) { }
3451 0 0 if ($OS eq 'VMS') { }
3453 0 0 unless (defined $tz)
3455 0 0 unless (defined $tz)
3459 0 0 if defined $tz
3464 0 0 unless (defined $tz)
3469 0 0 if defined $tz
3474 0 0 if defined $tz
3484 0 0 unless (defined $tz)
3489 0 0 if defined $tz
3494 0 0 if defined $tz
3498 0 0 if defined $main::TZ
3500 0 0 if (-s "/etc/TIMEZONE")
3505 0 0 if ($tmp =~ /^TZ\s*=\s*(.*?)\s*$/)
3513 0 0 if (-s "/etc/timezone")
3518 0 0 if $tmp =~ /^\s*\043/
3520 0 0 if ($tmp =~ /^\s*(.*?)\s*$/)
3533 0 0 if $tz eq ""
3536 0 0 if defined $Zone{'n2o'}{lc $tz}
3538 0 0 if ($tz =~ /^[+-]\d{4}$/) { }
0 0 elsif ($tz =~ /^([+-]\d{2})(?::(\d{2}))?$/) { }
3542 0 0 unless $m
3547 0 0 if ($tz =~ /^$Zone{'tzones'}$/i)
3553 0 0 if ($tz =~ /^([a-z]+)-?\d([a-z]+)-?\d?$/i)
3556 0 0 unless defined $Zone{'n2o'}{lc $std} and defined $Zone{'n2o'}{lc $dst}
3560 0 0 if $isdst
3572 0 0 if $Curr{'Debug'} =~ /trace/
3574 0 0 unless $Curr{'InitDone'}
3576 0 0 unless $date
3578 0 0 unless $time
3587 0 0 if $dow < $Cnf{'WorkWeekBeg'} or $dow > $Cnf{'WorkWeekEnd'} or "${h}:$m" lt $Cnf{'WorkDayBeg'} or "${h}:$m" ge $Cnf{'WorkDayEnd'}
3589 0 0 unless (exists $Holiday{'dates'}{$y})
3595 0 0 if exists $Holiday{'dates'}{$y}{$d}
3608 0 0 if $Curr{'Debug'} =~ /trace/
3610 0 0 unless $Curr{'InitDone'}
3614 0 0 unless (Date_IsWorkDay($date, $time))
3615 0 0 if ($time) { }
3618 0 0 if Date_IsWorkDay($date, $time)
3623 0 0 if Date_IsWorkDay($date, $time)
3631 0 0 if Date_IsWorkDay($date, $time)
3650 0 0 if $Curr{'Debug'} =~ /trace/
3652 0 0 unless $Curr{'InitDone'}
3656 0 0 unless (Date_IsWorkDay($date, $time))
3657 0 0 if ($time) { }
3660 0 0 if Date_IsWorkDay($date, $time)
3665 0 0 if Date_IsWorkDay($date, $time)
3673 0 0 if Date_IsWorkDay($date, $time)
3684 0 0 if $Curr{'Debug'} =~ /trace/
3686 0 0 unless $Curr{'InitDone'}
3689 0 0 unless defined $tomorrow
3691 0 0 if Date_IsWorkDay($date)
3694 0 0 if ($tomorrow) { }
3705 0 0 if Date_IsWorkDay($a)
3707 0 0 if Date_IsWorkDay($b)
3715 0 0 if $Curr{'Debug'} =~ /trace/
3717 0 0 unless $y
3718 0 0 if not defined $n or $n eq ""
3720 0 0 if length $y < 4
3722 0 0 if $n < 1
3723 0 0 $leap ? :
0 0 if $n >= ($leap ? 367 : 366)
3726 0 0 if $leap
3741 0 0 if ($n <= $d_in_m[0]) { }
3773 0 0 if $Curr{'Debug'} =~ /trace/
3780 0 0 if $opts =~ /lc/i
3781 0 0 if $opts =~ /sort/i
3782 0 0 if $opts =~ /back/i
3783 0 0 if $opts =~ /escape/i
3788 0 0 if $lc
3793 0 0 if ($regexp)
3795 0 0 if $sort
3796 0 0 if ($escape)
3801 0 0 if ($back) { }
3835 0 0 if $Curr{'Debug'} =~ /trace/
3843 0 0 if $opts =~ /lc/i
3844 0 0 if $opts =~ /sort/i
3845 0 0 if $opts =~ /back/i
3846 0 0 if $opts =~ /escape/i
3849 0 0 if (@lists)
3850 0 0 if $#lists != $#data
3854 0 0 if ($Cnf{'IntCharSet'} and $#ele > 0) { }
3864 0 0 if (@$hash) { }
3877 0 0 unless $tmp
3878 0 0 if $lc
3883 0 0 if $hashsave
3886 0 0 if ($regexp)
3888 0 0 if $sort
3889 0 0 if ($escape)
3894 0 0 if ($back) { }
3917 0 0 if $Curr{'Debug'} =~ /trace/
3923 0 0 if $opts =~ /lc/i
3924 0 0 if $opts =~ /sort/i
3925 0 0 if $opts =~ /back/i
3926 0 0 if $opts =~ /escape/i
3930 0 0 if $sort
3931 0 0 if ($escape)
3936 0 0 if ($back) { }
3941 0 0 if $lc
4018 0 0 if $Curr{'Debug'} =~ /trace/
4022 0 0 unless defined $options
4023 0 0 unless defined $array
4026 0 0 if $options =~ /sort/i
4027 0 0 if $options =~ /lc/i
4028 0 0 if $options =~ /under/i
4030 0 0 if $options =~ /back/i
4031 0 0 if $options =~ /opt/i
4032 0 0 if $options =~ /pre/
4033 0 0 if $options =~ /Pre/
4034 0 0 if $options =~ /PRE/
4035 0 0 if $options =~ /post/
4036 0 0 if $options =~ /Post/
4037 0 0 if $options =~ /POST/
4038 0 0 if $options =~ /optws/
4039 0 0 if $options =~ /optws/
4042 0 0 if $array =~ /keys/i
4043 0 0 if $array =~ /key0/i
4044 0 0 if $array =~ /key1/i
4045 0 0 if $array =~ /val0/i
4046 0 0 if $array =~ /val1/i
4047 0 0 if $keys or $key0 or $key1 or $val0 or $val1
4050 0 0 if (not $ref) { }
0 0 elsif ($ref eq 'ARRAY') { }
4060 0 0 unless ($list)
4061 0 0 if ($back eq '') { }
4068 0 0 if $lc
4069 0 0 if $under
4071 0 0 if ($keys) { }
0 0 elsif ($key0 or $key1 or $val0 or $val1) { }
4076 0 0 if $key1 or $val1
4077 0 0 if ($key0 or $key1) { }
4083 0 0 if $sort
4086 0 0 if $pre or $post
4088 0 0 if $ws
4090 0 0 if ($array and $hash) { }
0 0 elsif ($array) { }
4104 0 0 if $Curr{'Debug'} =~ /trace/
4106 0 0 unless $delta
4108 0 0 if $delta =~ /^([+-]?0+:){6}[+-]?0+$/ and $Cnf{'DeltaSigns'}
4109 0 0 if $delta =~ /^([+-]?0+:){6}[+-]?0+$/
4115 0 0 if $mode == 2 or $mode == 3
4123 0 0 unless $y
4124 0 0 unless $mon
4125 0 0 unless $w
4126 0 0 unless $d
4127 0 0 unless $h
4128 0 0 unless $m
4129 0 0 unless $s
4140 0 0 if ($mon < 0)
4148 0 0 if $y eq "-0"
4149 0 0 if $mon eq "-0"
4158 0 0 if ($mode == 3 or $mode == 2) { }
4164 0 0 if ($s < 0)
4178 0 0 if ($mode == 3 or $mode == 2) { }
4185 0 0 if $w eq "-0"
4186 0 0 if $d eq "-0"
4187 0 0 if $h eq "-0"
4188 0 0 if $m eq "-0"
4189 0 0 if $s eq "-0"
4192 0 0 if $y == 0 and $mon == 0
4193 0 0 if $w == 0 and $d == 0 and $h == 0 and $m == 0 and $s == 0
4194 0 0 if $sign1 eq $sign2 and not $Cnf{'DeltaSigns'}
4196 0 0 if ($Cnf{'DeltaSigns'}) { }
4208 0 0 if $Curr{'Debug'} =~ /trace/
4211 0 0 if $exact and $#delta != 6
4213 0 0 unless defined $sign
4215 0 0 unless $delta[$i]
4216 0 0 unless $delta[$i] =~ /^[+-]?\d+$/
4217 0 0 $delta[$i] =~ s/^([+-])// ? :
4226 0 0 if $Curr{'Debug'} =~ /trace/
4230 0 0 if (defined $h and $h =~ /$t/)
4233 0 0 if defined $3
4235 0 0 unless defined $h
4236 0 0 unless defined $m
4237 0 0 unless defined $s
4245 0 0 if $Curr{'Debug'} =~ /trace/
4247 0 0 unless defined $_[$_]
4252 0 0 if ($Cnf{'Internal'} == 0) { }
0 0 elsif ($Cnf{'Internal'} == 1) { }
0 0 elsif ($Cnf{'Internal'} == 2) { }
4267 0 0 if length $m == 1
4268 0 0 if length $d == 1
4269 0 0 if length $h == 1
4270 0 0 if length $mn == 1
4271 0 0 if length $s == 1
4279 0 0 if $Curr{'Debug'} =~ /trace/
4289 0 0 if ($time eq 'one') { }
0 0 elsif ($time eq 'two') { }
4296 0 0 if ($time =~ /$t/i) { }
4298 0 0 if length $h < 2
4299 0 0 if length $m < 2
4300 0 0 unless defined $s
4311 0 0 if $Curr{'Debug'} =~ /trace/
4320 0 0 if ($recur =~ /^$R$F?$DB?$D0?$D1?$/)
4323 0 0 if $#tmp > 1
4324 0 0 if $#tmp == 0
4339 0 0 if $Curr{'Debug'} =~ /trace/
4341 0 0 unless defined $definitely_valid
4350 0 0 if ($Cnf{'Internal'} == 0) { }
0 0 elsif ($Cnf{'Internal'} == 1) { }
0 0 elsif ($Cnf{'Internal'} == 2) { }
4368 0 0 if (not defined $date or $date eq "")
4369 0 0 if ($definitely_valid) { }
4376 0 0 if ($date =~ /$t/)
4379 0 0 if Date_LeapYear($y)
4380 0 0 if ($d > $d_in_m[$m])
4382 0 0 if ($definitely_valid) { }
4393 0 0 if ($definitely_valid)
4403 0 0 if length $y == 2
4429 0 0 if (@m) { }
4431 0 0 unless _IsInt($m, 1, 12)
4448 0 0 unless @tmp
4455 0 0 unless @w
4457 0 0 if $w == 0 or not _IsInt($w, -5, 5)
4460 0 0 if (@d)
4462 0 0 if $d == 0 or not _IsInt($d, -7, 7)
4463 0 0 if $d < 0
4488 0 0 if ($w > 0) { }
4489 0 0 if $w > $#tmp + 1
4492 0 0 if -$w > $#tmp + 1
4550 0 0 if $s eq -1
4551 0 0 if $m eq -1
4553 0 0 if ($h ne -1)
4555 0 0 unless @h
4567 0 0 if ($m ne -1)
4569 0 0 unless @m
4581 0 0 if ($s ne -1)
4583 0 0 unless @s
4597 0 0 if Date_Cmp($date, $date0) >= 0 and Date_Cmp($date, $date1) < 0 and _Date_Split($date)
4606 0 0 if $Curr{'Debug'} =~ /trace/
4609 0 0 unless defined $mode
4612 0 0 if ($mode == 0)
4625 0 0 if ($y2 > $y1) { }
0 0 elsif ($y2 < $y1) { }
4645 0 0 if $delta[$i] >= 0
4657 0 0 if ($mode == 2 or $mode == 3)
4663 0 0 if (Date_Cmp($date1, $date2) > 0) { }
4671 0 0 if (Date_Cmp($date1, $date2) == 0)
4672 0 0 if $Cnf{'DeltaSigns'}
4680 0 0 if ($mode != 3)
4685 0 0 if ($dy > 0)
4687 0 0 if (Date_Cmp($tmp, $date2) > 0)
4690 0 0 if $dy > 0
4699 0 0 if ($dm > 0)
4701 0 0 if (Date_Cmp($tmp, $date2) > 0)
4704 0 0 if $dm > 0
4712 0 0 if ($mode == 2)
4713 0 0 unless (Date_IsWorkDay($date1, 0))
4720 0 0 if ($mode == 2 or $mode == 3) { }
4724 0 0 if (Date_Cmp($tmp, $date2) <= 0) { }
4738 0 0 if ($m1 != $m2)
4739 0 0 if Date_LeapYear($y1)
4743 0 0 if (Date_Cmp($tmp, $date2) > 0)
4752 0 0 if ($d1 < $d2)
4755 0 0 if (Date_Cmp($tmp, $date2) > 0)
4768 0 0 if ($mode == 2 || $mode == 3 and $d1 != $d2)
4771 0 0 if $Cnf{'WorkDay24Hr'}
4777 0 0 if $d1 != $d2
4792 0 0 if $Curr{'Debug'} =~ /trace/
4795 0 0 unless defined $mode
4801 0 0 if $delta[$i] >= 0
4810 0 0 if $Curr{'Debug'} =~ /trace/
4815 0 0 unless defined $mode
4817 0 0 if ($mode == 2 or $mode == 3)
4824 0 0 if ($mm < 0)
4840 0 0 if Date_LeapYear($y)
4844 0 0 if ($d > $d_in_m[$m])
4849 0 0 if ($mode == 0 or $mode == 1) { }
4859 0 0 if ($mode == 2 or $mode == 3)
4860 0 0 if $d > $d_in_m[$m]
4867 0 0 if ($mode == 2 or $mode == 3) { }
4873 0 0 if ($h > $h2 or $h == $h2 and $mn > $m2) { }
0 0 elsif ($h < $h1 or $h == $h1 and $mn < $m1) { }
0 0 elsif ($h == $h2 and $mn == $m2) { }
4904 0 0 if ($d > $d_in_m[$m])
4910 0 0 if ($mode == 2 or $mode == 3) { }
4911 0 0 if ($dd >= 0) { }
4919 0 0 if Date_LeapYear($y)
4920 0 0 if $d > $d_in_m[$m]
4924 0 0 if ($m == 0)
4930 0 0 if (Date_LeapYear($y)) { }
4941 0 0 if ($m == 13)
4947 0 0 if (Date_LeapYear($y)) { }
4956 0 0 if ($y < 0 or $y > 9999)
4964 0 0 if $Curr{'Debug'} =~ /trace/
4974 0 0 if (@tmp) { }
0 0 elsif ($key =~ /^(.*)([+-].*)$/) { }
4977 0 0 unless $date
4983 0 0 if ($tmp) { }
4987 0 0 unless $date =~ /^$year/
4995 0 0 if ($tmp) { }
4999 0 0 unless $date =~ /^$year/
5008 0 0 if $Curr{'Debug'} =~ /trace/
5012 0 0 if $var =~ /^PathSep$/i
5013 0 0 if $var =~ /^PersonalCnf$/i
5014 0 0 if $var =~ /^PersonalCnfPath$/i
5015 0 0 if $var =~ /^EraseHolidays$/i
5016 0 0 if $var =~ /^IgnoreGlobalCnf$/i
5017 0 0 if $var =~ /^GlobalCnf$/i
5020 0 0 if $var =~ /^Language$/i
5021 0 0 if $var =~ /^DateFormat$/i
5022 0 0 if $var =~ /^TZ$/i
5023 0 0 if $var =~ /^ConvTZ$/i
5024 0 0 if $var =~ /^Internal$/i
5025 0 0 if $var =~ /^FirstDay$/i
5026 0 0 if $var =~ /^WorkWeekBeg$/i
5027 0 0 if $var =~ /^WorkWeekEnd$/i
5029 0 0 if $var =~ /^WorkDayBeg$/i
5031 0 0 if $var =~ /^WorkDayEnd$/i
5033 0 0 if $var =~ /^WorkDay24Hr$/i
5034 0 0 if $var =~ /^DeltaSigns$/i
5035 0 0 if $var =~ /^Jan1Week1$/i
5036 0 0 if $var =~ /^YYtoYYYY$/i
5037 0 0 if $var =~ /^UpdateCurrTZ$/i
5038 0 0 if $var =~ /^IntCharSet$/i
5039 0 0 if $var =~ /^Debug$/i
5040 0 0 if $var =~ /^TomorrowFirst$/i
5041 0 0 if $var =~ /^ForceDate$/i
5042 0 0 if $var =~ /^TodayIsMidnight$/i
5048 0 0 if $Curr{'Debug'} =~ /trace/
5065 0 0 if $Curr{'Debug'} =~ /trace/
5071 0 0 unless $date0
5072 0 0 if ($date1) { }
5074 0 0 if (Date_Cmp($date0, $date1) > 0)
5092 0 0 if $d1
5093 0 0 if $del
5094 0 0 if ($d1) { }
5095 0 0 if ($del)
5101 0 0 if (Date_Cmp($d0, $d1) > 0)
5108 0 0 if Date_Cmp($d1, $date0) <= 0 or Date_Cmp($d0, $date1) >= 0
5113 0 0 if (Date_Cmp($d0, $date0) <= 0)
5115 0 0 if Date_Cmp($d1, $date1) < 0
5120 0 0 if (Date_Cmp($d1, $date1) >= 0)
5148 0 0 if $tmp =~ /^!/
5169 0 0 if $Curr{'Debug'} =~ /trace/
5173 0 0 if $force
5174 0 0 if $Events{'parsed'}
5184 0 0 if ($#event == 0) { }
0 0 elsif ($#event == 1) { }
5186 0 0 if ($date0 = ParseDateString($event[0])) { }
0 0 elsif ($recur = ParseRecur($event[0])) { }
5191 0 0 if ($tmp and $tmp eq $date0) { }
5203 0 0 if ($recur0) { }
5204 0 0 if ($recur1) { }
5213 0 0 if (pop @recur == 0 and pop @recur == 0 and pop @recur == 0) { }
5228 0 0 if ($date0 = ParseDateString($event[0])) { }
0 0 elsif ($recur = ParseRecur($event[0])) { }
5230 0 0 if ($date1 = ParseDateString($event[1])) { }
0 0 elsif ($delta = ParseDateDelta($event[1])) { }
5235 0 0 if ($tmp and $tmp eq $date1)
5254 0 0 if ($delta = ParseDateDelta($event[1])) { }
5284 0 0 if $Curr{'Debug'} =~ /trace/
5291 0 0 unless $in->open($file)
5296 0 0 if $_ eq "" or /^\#/
5298 0 0 if (/^\*holiday/i) { }
0 0 elsif (/^\*events/i) { }
5300 0 0 if $section =~ /holiday/i and $Cnf{'EraseHolidays'}
5307 0 0 if ($section =~ /var/i) { }
0 0 elsif ($section =~ /holiday/i) { }
0 0 elsif ($section =~ /events/i) { }
5308 0 0 unless /(.*\S)\s*=\s*(.*)$/
5314 0 0 unless /(.*\S)\s*=\s*(.*)$/
5317 0 0 unless defined $name
5321 0 0 unless /(.*\S)\s*=\s*(.*)$/
5341 0 0 if $Curr{'Debug'} =~ /trace/
5345 0 0 unless defined $$h
5346 0 0 unless defined $$mn
5347 0 0 unless defined $$s
5348 0 0 unless defined $$ampm
5349 0 0 if $$ampm
5354 0 0 if ($$ampm =~ /^$tmp1$/i) { }
0 0 elsif ($$ampm) { }
5356 0 0 if $$ampm =~ /^$tmp3$/i
5358 0 0 if $$ampm =~ /^$tmp3$/i
5362 0 0 if ($tmp2 eq 'AM' or $tmp2 eq 'PM') { }
5363 0 0 if length $$h == 1
5364 0 0 if $$h < 1 or $$h > 12
5365 0 0 if $tmp2 eq "AM" and $$h == 12
5366 0 0 if $tmp2 eq "PM" and $$h != 12
5368 0 0 if $$h eq ""
5369 0 0 if length $$h == 1
5370 0 0 unless _IsInt($$h, 0, 23)
5371 0 0 if $$h < 12
5372 0 0 if $$h >= 12
5375 0 0 if $tmp2 eq "PM"
5378 0 0 if $$mn eq ""
5379 0 0 if length $$mn == 1
5380 0 0 unless _IsInt($$mn, 0, 59)
5383 0 0 if $$s eq ""
5384 0 0 if length $$s == 1
5385 0 0 unless _IsInt($$s, 0, 59)
5399 0 0 if $Curr{'Debug'} =~ /trace/
5407 0 0 if defined $$y and not defined $$m and not defined $$d
5408 0 0 unless defined $$y
5409 0 0 unless defined $$m
5410 0 0 unless defined $$d
5411 0 0 unless defined $$wk
5412 0 0 if $$y eq "" and $$m eq "" and $$d eq ""
5415 0 0 if $$y eq ""
5416 0 0 if length $$y < 4
5417 0 0 unless _IsInt($$y, 0, 9999)
5418 0 0 if Date_LeapYear($$y)
5421 0 0 if $$m eq ""
5423 0 0 if exists $Lang{$Cnf{'Language'}}{'MonthH'}{lc $$m}
5424 0 0 if length $$m == 1
5425 0 0 unless _IsInt($$m, 1, 12)
5428 0 0 if $$d eq ""
5429 0 0 if length $$d == 1
5430 0 0 unless _IsInt($$d, 1, $d_in_m[$$m])
5431 0 0 if ($$wk)
5434 0 0 if exists $Lang{$Cnf{'Language'}}{'WeekH'}{lc $$wk}
5435 0 0 if $tmp1 != $tmp2
5443 0 0 if $Curr{'Debug'} =~ /trace/
5446 0 0 unless defined $y and $y
5447 0 0 if length $y == 4
5448 0 0 if length $y != 2
5451 0 0 if (lc $Cnf{'YYtoYYYY'} eq 'c') { }
0 0 elsif ($Cnf{'YYtoYYYY'} =~ /^c(\d{2})$/i) { }
0 0 elsif ($Cnf{'YYtoYYYY'} =~ /^c(\d{2})(\d{2})$/i) { }
5462 0 0 if $y < $y1
5488 0 0 if $Curr{'Debug'} =~ /trace/
5491 0 0 unless defined $y and $y
5492 0 0 if not defined $n or $n eq ""
5493 0 0 if $n < 0 or $n > 53
5494 0 0 if (defined $dow) { }
5497 0 0 if exists $dow{$dow}
5498 0 0 if $dow < 1 or $dow > 7
5499 0 0 unless defined $flag
5505 0 0 if length $y < 4
5506 0 0 if ($Cnf{'Jan1Week1'}) { }
5512 0 0 if $dow ne ""
5514 0 0 if ($flag)
5516 0 0 if $tmp != $y
5519 0 0 if ($n > 1) { }
0 0 elsif ($n == 0) { }
5844 0 0 if $Curr{'Debug'} =~ /trace/
5916 0 0 if $Curr{'Debug'} =~ /trace/
5987 0 0 if $Curr{'Debug'} =~ /trace/
6064 0 0 if $Curr{'Debug'} =~ /trace/
6181 0 0 if $Curr{'Debug'} =~ /trace/
6265 0 0 if $Curr{'Debug'} =~ /trace/
6354 0 0 if $Curr{'Debug'} =~ /trace/
6446 0 0 if $Curr{'Debug'} =~ /trace/
6545 0 0 if $Curr{'Debug'} =~ /trace/
6628 0 0 if $Curr{'Debug'} =~ /trace/
6724 0 0 if $Curr{'Debug'} =~ /trace/
6912 0 0 if $Curr{'Debug'} =~ /trace/
7023 0 0 if $Curr{'Debug'} =~ /trace/
7102 0 0 if $Curr{'Debug'} =~ /trace/
7209 0 0 if $N == 0
7211 0 0 if ($N < 0) { }
7214 0 0 if ($$val > $N) { }
0 0 elsif ($$val < 1) { }
7224 0 0 if ($$val > $N - 1) { }
0 0 elsif ($$val < 0) { }
7240 0 0 if not defined $N && $N =~ /^\s*[-+]?\d+\s*$/ or defined $low and $N < $low or defined $high and $N > $high
7259 0 0 if $file ne "./"
7261 0 0 if $file ne "/"
7278 0 0 if ($file =~ s[^~([^/]*)][])
7283 0 0 if $OS eq "Windows" or $OS eq "Mac" or $OS eq "Netware" or $OS eq "MPE"
7287 0 0 unless defined $user
7289 0 0 if ($user) { }
7294 0 0 if $OS eq "VMS"
7295 0 0 unless defined $home
7308 0 0 if $OS eq "Windows"
7310 0 0 unless defined $file
7333 0 0 unless defined $mode
7336 0 0 unless defined $file and $file
7337 0 0 if not -e $file or $mode =~ /r/ and not -r $file or $mode =~ /w/ and not -w $file or $mode =~ /x/ and not -x $file or $mode =~ /R/ and not -R $file or $mode =~ /W/ and not -W $file or $mode =~ /X/ and not -X $file or $mode =~ /o/ and not -O $file or $mode =~ /O/ and not -o $file or $mode =~ /z/ and not -z $file or $mode =~ /s/ and not -s $file or $mode =~ /f/ and not -f $file or $mode =~ /d/ and not -d $file or $mode =~ /l/ and not -l $file or $mode =~ /s/ and not -s $file or $mode =~ /p/ and not -p $file or $mode =~ /b/ and not -b $file or $mode =~ /c/ and not -c $file or $mode =~ /u/ and not -u $file or $mode =~ /g/ and not -g $file or $mode =~ /k/ and not -k $file or $mode =~ /T/ and not -T $file or $mode =~ /B/ and not -B $file
7386 0 0 unless defined $full
7387 0 0 unless defined $mode
7388 0 0 unless defined $err
7390 0 0 if ($mode eq 'e') { }
0 0 elsif ($mode eq 'r') { }
0 0 elsif ($mode eq 'w') { }
7401 0 0 if ($full) { }
7406 0 0 unless (defined $_)
7407 0 0 if $err
7412 0 0 if (not defined $mode or _CheckFilePath($_, $mode)) { }
7415 0 0 if $err
7439 0 0 if _CheckFilePath($f, $mode)
7442 0 0 if _CheckFilePath($fs, $mode)
7459 0 0 if ($str =~ /^[-+]?\d+$/) { }
0 0 elsif ($str =~ /^([-+]?\d+)-([-+]?\d+)$/) { }
7463 0 0 if ($from > $to)