| line |
true |
false |
branch |
|
65
|
11 |
0 |
if (defined $class)
|
|
89
|
8 |
35 |
if (not ref $self) { }
|
|
|
1 |
34 |
elsif (ref $self eq 'HASH') { }
|
|
|
9 |
25 |
elsif (ref $_[0] eq 'HASH') { }
|
|
|
1 |
24 |
elsif (ref $_[0]) { }
|
|
|
8 |
16 |
elsif (scalar @_ and scalar(@_) % 2 == 0) { }
|
|
90
|
5 |
3 |
if (scalar @_)
|
|
107
|
29 |
4 |
if (my $date = $params{'date'}) { }
|
|
109
|
2 |
25 |
if ($date =~ /^bef\s/i or $date =~ /^aft\s/i or $date =~ /^abt\s/i)
|
|
110
|
3 |
1 |
unless $quiet
|
|
114
|
1 |
24 |
if ($date =~ /^31 Nov/)
|
|
119
|
11 |
13 |
unless (defined $dfn)
|
|
122
|
1 |
23 |
if ($date =~ /^\s*(.+\d\d)\s*\-\s*(.+\d\d)\s*$/)
|
|
126
|
3 |
21 |
if ($date =~ /^bet (.+) and (.+)/i)
|
|
127
|
1 |
2 |
if (wantarray)
|
|
133
|
21 |
0 |
if (not $date =~ /^\d{3,4}$/)
|
|
134
|
3 |
18 |
if ($date =~ /^(\d{1,2})\s+([A-Z]{4,}+)\s+(\d{3,4})$/i)
|
|
137
|
1 |
2 |
if (not $strict and my $abbrev = $months{$2}) { }
|
|
140
|
2 |
0 |
unless $quiet
|
|
144
|
14 |
5 |
if ($date =~ /^\d/ and my $d = $self->_date_parser_cached($date))
|
|
147
|
5 |
0 |
if (not $date =~ /^(Abt|ca?)/i and $date =~ /^[\w\s,]+$/)
|
|
150
|
5 |
0 |
if (my $rc = $dfn->parse_datetime($date)) { }
|
|
151
|
1 |
4 |
if ($dfn->success)
|
|
154
|
4 |
0 |
unless $quiet
|
|
156
|
0 |
0 |
unless $quiet
|
|
173
|
0 |
14 |
unless (defined $date)
|
|
177
|
2 |
12 |
if ($self->{'all_dates'}{$date})
|
|
181
|
10 |
2 |
unless (defined $date_parser)
|
|
189
|
0 |
12 |
if (my $error = $date_parser->error)
|
|
193
|
12 |
0 |
if ($d and ref $d eq 'ARRAY')
|