Branch Coverage

blib/lib/DateTime/Format/Text.pm
Criterion Covered Total %
branch 53 70 75.7


line true false branch
80 1 19 if (not defined $class) { }
0 19 elsif (ref $class) { }
103 8 36 if (not ref $self) { }
1 35 elsif (ref $self eq 'HASH') { }
0 35 elsif (ref $_[0]) { }
104 7 1 if (scalar @_)
139 5 144 if (not ref $self) { }
1 143 elsif (ref $self eq 'HASH') { }
5 138 elsif (ref $_[0] eq 'HASH') { }
0 138 elsif (ref $_[0]) { }
5 133 elsif (scalar @_ and scalar(@_) % 2 == 0) { }
140 4 1 if (scalar @_) { }
0 1 elsif (not defined $self) { }
0 1 elsif ($self eq 'DateTime::Format::Text') { }
162 143 0 if (my $string = $params{'string'}) { }
164 1 142 if (ref $string)
168 62 81 if (wantarray)
188 61 1 if (scalar @rc)
200 17 65 if ($string =~ m[(^|\D)([0-9]?[0-9])[\.\-/ ]+?([0-1]?[0-9])[\.\-/ ]+?([0-9]{2,4})]) { }
0 65 elsif ($string =~ m[($d|$sd)[\s,\-_/]*?(\d?\d)[,\-/]*($o)?[\s,\-/]*($m|$sm)[\s,\-/]+(\d{4})]i) { }
12 53 elsif ($string =~ m[($m|$sm)[\s,\-_/]*?(\d?\d)[,\-/]*($o)?[\s,\-/]+(\d{4})]i) { }
221 53 29 if (not defined $month and $string =~ /($m|$sm)/i)
226 53 29 if (not defined $year and $string =~ /(\d{4})/)
232 53 29 if (defined $month and defined $year and not defined $day)
234 0 53 if ($string =~ m[($d|$sd)[,\s\-/]+(\d?\d)[,\-/]*($o)\s+$year]i) { }
0 53 elsif ($string =~ /[\s\(](\d{1,2})\s+($m|$sm)/i) { }
52 1 elsif ($string =~ /^(\d{1,2})\s+($m|$sm)\s/i) { }
1 0 elsif ($string =~ /($m|$sm)\s+(the\s+)?(\d{1,2})th\s/i) { }
0 0 elsif ($string =~ /($m|$sm)\s+the\s+(\d{1,2})th\s/) { }
0 0 elsif ($string =~ /\s1st\s/i) { }
0 0 elsif ($string =~ /\s2nd\s/i) { }
251 82 0 if ($day and $month and $year)
252 17 65 if ($year < 100)
256 65 17 if ($month =~ /[a-z]/i) { }
258 65 163 if ($month eq $month_names[$i] or $month eq $short_month_names[$i])