| line |
true |
false |
branch |
|
17
|
1 |
0 |
unless eval {
do {
return unless load_package("Date::Manip");
return unless load_package("Date::Manip::Date");
my $ver = "Date::Manip"->VERSION;
$ver =~ s/ _ //gmsx;
$invalid = sprintf("%s assumes a Date::Manip version >= 6. You have %s", "Astro::App::Satpass2::ParseTime::Date::Manip::v6", "Date::Manip"->VERSION) unless $ver >= 6 and do {
"Date::Manip"->import;
1
};
*_normalize_zone = sub {
$_[0] =~ s/ \A (?: gmt | ut ) \z /UT/imsx;
}
if $ver >= "6.49";
1
}
} |
|
18
|
1 |
0 |
unless load_package("Date::Manip") |
|
20
|
0 |
0 |
unless load_package("Date::Manip::Date") |
|
25
|
0 |
0 |
unless $ver >= 6 and do {
"Date::Manip"->import;
1
} |
|
35
|
0 |
0 |
if $ver >= "6.49" |
|
39
|
1 |
0 |
unless "Astro::App::Satpass2::ParseTime::Date::Manip::v6"->can("_normalize_zone") |
|
58
|
0 |
0 |
if $invalid |
|
60
|
0 |
0 |
if $dm->parse($string) |
|
70
|
0 |
0 |
if $invalid |
|
71
|
0 |
0 |
if (@args) |
|
74
|
0 |
0 |
unless defined $zone and "" ne $zone |
|
84
|
0 |
0 |
unless $cls->can("parse") |
|
91
|
0 |
0 |
if (my $dm = $self->_get_dm_field("object")) |