| line |
true |
false |
branch |
|
37
|
0 |
6 |
unless @_ |
|
41
|
2 |
0 |
$_[0] eq 'Date::Extract::Surprise' ? : |
|
|
4 |
2 |
blessed($_[0]) && $_[0]->isa('Date::Extract::Surprise') ? : |
|
51
|
0 |
6 |
defined $args{'base'} ? : |
|
|
0 |
6 |
blessed($args{'base'}) && $args{'base'}->isa('DateTime') ? : |
|
61
|
0 |
6 |
if $$self{'DEBUG'} > 0 |
|
78
|
174 |
276 |
unless $search_str =~ /\d/ |
|
80
|
0 |
276 |
if $$self{'DEBUG'} > 1 |
|
85
|
240 |
36 |
unless my $dt = eval {
do {
'DateTime::Format::Flexible'->parse_datetime($search_str)
}
} |
|
100
|
0 |
2 |
unless @_ |
|
104
|
0 |
2 |
if blessed($_[0]) and $_[0]->isa('Date::Extract::Surprise') or $_[0] eq 'Date::Extract::Surprise' |