| line |
true |
false |
branch |
|
84
|
0 |
0 |
unless eval {
do {
require LWP::UserAgent;
1
}
} |
|
89
|
0 |
0 |
unless my $ua = "LWP::UserAgent"->new |
|
92
|
0 |
0 |
unless my $rslt = $ua->get($url) |
|
95
|
0 |
0 |
unless $rslt->is_success |
|
102
|
1 |
0 |
unless eval {
do {
require DateTime;
require DateTime::TimeZone;
1
}
} |
|
163
|
0 |
0 |
if $dumped++ |
|
174
|
0 |
0 |
if ($vers >= 6) |
|
178
|
0 |
0 |
if ("Date::Manip"->isa("Date::Manip::DM5")) |
|
185
|
0 |
0 |
if (my $code = 'Date::Manip'->can('Date_TimeZone')) { } |
|
191
|
0 |
0 |
if ($app->isa("Astro::App::Satpass2::ParseTime")) |
|
193
|
0 |
0 |
if $app->can("dmd_zone") |
|
195
|
0 |
0 |
if $app->can("__epoch_offset") |
|
230
|
0 |
0 |
if $dumped++ |
|
245
|
0 |
0 |
if (eval {
do {
require DateTime;
1
}
}) { } |
|
251
|
0 |
0 |
if (eval {
do {
require DateTime::TimeZone;
1
}
}) { } |
|
264
|
0 |
0 |
defined $Time::y2038::VERSION ? : |
|
270
|
0 |
0 |
defined $main::TZ ? : |
|
272
|
0 |
0 |
defined $ENV{'TZ'} ? : |
|
302
|
0 |
0 |
unless exists $version{$module} |
|
320
|
5 |
7 |
if eval "require $module; 1" and eval {
do {
$module->VERSION($v) if $v;
my(@import) = map({split(qr/ \s* , \s* /msx, $_, 0);} @{[] unless $opt{'import'};});
eval "package $caller; $module->import( qw{ @import } ); 1" unless $opt{'noimport'}
}
} |
|
321
|
0 |
5 |
if $v |
|
323
|
4 |
1 |
unless $opt{'import'} |
|
327
|
5 |
0 |
unless $opt{'noimport'} |
|
329
|
2 |
5 |
$v ? : |
|
331
|
2 |
5 |
if $skip and $skip =~ / \A all \z /imsx |
|
344
|
399 |
12 |
if (eval {
do {
$got = $app->$method(@args);
1
}
}) { } |
|
346
|
33 |
366 |
if ("CODE" eq ref $want) |
|
352
|
496 |
236 |
if defined $_ and not ref $_ |
|
355
|
2 |
364 |
ref $want ? : |
|
|
0 |
366 |
'Regexp' eq ref $want ? : |
|
360
|
0 |
12 |
unless defined $want |
|
361
|
12 |
0 |
unless "Regexp" eq ref $want |
|
394
|
4 |
0 |
unless my $code = $normalizer{$^O} |
|
408
|
2 |
0 |
if ($want eq $got or $no_stat{$^O}) |
|
426
|
1 |
2 |
exists $self->{'exported'}{$name} ? : |
|
437
|
0 |
3 |
unless defined $format |