| line |
true |
false |
branch |
|
71
|
1 |
14 |
if (not defined $class) { }
|
|
|
0 |
14 |
elsif (ref $class) { }
|
|
105
|
10 |
41 |
if (not ref $self) { }
|
|
|
1 |
40 |
elsif (ref $self eq 'HASH') { }
|
|
|
12 |
28 |
elsif (ref $_[0] eq 'HASH') { }
|
|
|
1 |
27 |
elsif (ref $_[0]) { }
|
|
|
8 |
19 |
elsif (scalar @_ and scalar(@_) % 2 == 0) { }
|
|
106
|
7 |
3 |
if (scalar @_)
|
|
123
|
35 |
4 |
if (my $date = $params{'date'}) { }
|
|
125
|
3 |
30 |
if ($date =~ /^bef\s/i or $date =~ /^aft\s/i or $date =~ /^abt\s/i)
|
|
126
|
4 |
1 |
unless $quiet
|
|
130
|
1 |
29 |
if ($date =~ /^31 Nov/)
|
|
135
|
13 |
16 |
unless (defined $dfn)
|
|
138
|
1 |
28 |
if ($date =~ /^\s*(.+\d\d)\s*\-\s*(.+\d\d)\s*$/)
|
|
142
|
3 |
26 |
if ($date =~ /^bet (.+) and (.+)/i)
|
|
143
|
1 |
2 |
if (wantarray)
|
|
149
|
25 |
1 |
if (not $date =~ /^\d{3,4}$/) { }
|
|
151
|
2 |
23 |
if ($strict) { }
|
|
|
4 |
19 |
elsif ($date =~ /^(\d{1,2})\s+([A-Z]{4,}+)\.?\s+(\d{3,4})$/i) { }
|
|
152
|
2 |
0 |
unless ($date =~ /^(\d{1,2})\s+([A-Z]{3})\s+(\d{3,4})$/i)
|
|
153
|
2 |
0 |
unless $quiet
|
|
157
|
3 |
1 |
if (my $abbrev = $months{ucfirst lc $2}) { }
|
|
160
|
1 |
0 |
unless $quiet
|
|
164
|
18 |
4 |
if ($date =~ /^\d/ and my $d = $self->_date_parser_cached($date))
|
|
166
|
1 |
17 |
if $date =~ /\s\d{1,2}$/
|
|
169
|
4 |
0 |
if (not $date =~ /^(Abt|ca?)/i and $date =~ /^[\w\s,]+$/)
|
|
172
|
4 |
0 |
if (my $rc = $dfn->parse_datetime($date)) { }
|
|
173
|
1 |
3 |
if ($dfn->success)
|
|
176
|
3 |
0 |
unless $quiet
|
|
178
|
0 |
0 |
unless $quiet
|
|
197
|
0 |
18 |
unless (defined $date)
|
|
201
|
2 |
16 |
if ($self->{'all_dates'}{$date})
|
|
205
|
12 |
4 |
unless (defined $date_parser)
|
|
213
|
0 |
16 |
if (my $error = $date_parser->error)
|
|
217
|
16 |
0 |
if ($d and ref $d eq "ARRAY")
|