Branch Coverage

blib/lib/EB/Utils.pm
Criterion Covered Total %
branch 61 96 63.5


line true false branch
60 74 4 if ($date =~ /^(\d\d\d\d)-(\d\d)-(\d\d)$/) { }
2 2 elsif ($date =~ /^(\d\d?)-(\d\d?)-(\d\d\d\d)$/) { }
2 0 elsif ($date =~ /^(\d\d?)-(\d\d?)$/) { }
0 0 elsif ($date =~ /^(\d\d?) (\w+)$/) { }
67 0 2 unless $default_year
71 0 0 unless $default_year
72 0 0 unless $m = $rev_month_names{$2} || $rev_months{$2}
81 0 78 unless $time
84 0 78 if $delta_y
85 4 74 if $delta_m
92 0 78 unless $time
95 70 8 if $delta_d
100 39 39 wantarray ? :
117 2 21 if ($range =~ m[^(\d\d\d\d)-(\d\d)-(\d\d)\s*[-/]\s*(\d\d\d\d)-(\d\d)-(\d\d)$]) { }
1 20 elsif ($range =~ m[^(\d\d\d\d)-(\d\d)-(\d\d)\s*/\s*(\d\d)-(\d\d)$]) { }
1 19 elsif ($range =~ m[^(\d\d\d\d)-(\d\d)-(\d\d)\s*/\s*(\d\d)$]) { }
1 18 elsif ($range =~ /^(\d\d)-(\d\d)-(\d\d\d\d)\s*-\s*(\d\d)-(\d\d)-(\d\d\d\d)$/) { }
1 17 elsif ($range =~ /^(\d\d)-(\d\d)\s*-\s*(\d\d)-(\d\d)$/) { }
2 15 elsif ($range =~ /^(\d+)\s+(\w+)\s*-\s*(\d+)\s+(\w+)(?:\s+(\d{4}))?$/) { }
1 14 elsif ($range =~ /^(\d+)\s+(\w+)\s+(\d{4})\s*-\s*(\d+)\s+(\w+)\s+(\d{4})$/) { }
2 12 elsif ($range =~ /^(\w+)\s*-\s*(\w+)(?:\s+(\d{4}))?$/) { }
1 11 elsif ($range =~ /^(\d{4})$/) { }
2 9 elsif ($range =~ /^[kq](\d+)(?:\s+(\d{4}))?$/) { }
2 7 elsif ($range eq lc EB::_T('jaar') or $range eq 'jaar') { }
7 0 elsif ($range =~ /^(\w+)(?:\s+(\d{4}))?$/) { }
134 0 1 unless $default_year
140 0 2 unless $default_year
141 0 2 unless $m1 = $rev_month_names{$2} || $rev_months{$2}
142 0 2 unless $m2 = $rev_month_names{$4} || $rev_months{$4}
148 0 1 unless $m1 = $rev_month_names{$2} || $rev_months{$2}
149 0 1 unless $m2 = $rev_month_names{$5} || $rev_months{$5}
156 0 2 unless $default_year
157 0 2 unless $m1 = $rev_month_names{$1} || $rev_months{$1}
158 0 2 unless $m2 = $rev_month_names{$2} || $rev_months{$2}
169 0 2 unless $2 or $default_year
170 0 2 unless $1 >= 1 and $1 <= 4
177 0 2 unless $default_year
183 0 7 unless $2 or $default_year
184 0 7 unless $m1 = $m2 = $rev_month_names{$1} || $rev_months{$1}
192 14 9 if ($d2 < 0)
195 3 11 if ++$m2 > 12
199 0 23 unless $time1
201 0 23 unless $time2
202 14 9 if $datefix
222 0 0 $_[0] < $_[1] ? :
223 0 0 $_[0] > $_[1] ? :
232 70 0 defined $args{$1} ? :
245 0 0 $n == 1 ? :