| line |
true |
false |
branch |
|
112
|
0 |
0 |
unless eval {
do {
require LWP::UserAgent;
1
}
} |
|
117
|
0 |
0 |
unless my $ua = "LWP::UserAgent"->new |
|
120
|
0 |
0 |
unless my $rslt = $ua->get($url) |
|
123
|
0 |
0 |
unless $rslt->is_success |
|
130
|
1 |
0 |
unless eval {
do {
require DateTime;
require DateTime::TimeZone;
1
}
} |
|
191
|
0 |
0 |
if $dumped++ |
|
202
|
0 |
0 |
if ($vers >= 6) |
|
206
|
0 |
0 |
if ("Date::Manip"->isa("Date::Manip::DM5")) |
|
213
|
0 |
0 |
if (my $code = 'Date::Manip'->can('Date_TimeZone')) { } |
|
219
|
0 |
0 |
if ($app->isa("Astro::App::Satpass2::ParseTime")) |
|
221
|
0 |
0 |
if $app->can("dmd_zone") |
|
223
|
0 |
0 |
if $app->can("__epoch_offset") |
|
258
|
0 |
0 |
if $dumped++ |
|
274
|
0 |
0 |
if (eval {
do {
require DateTime;
1
}
}) { } |
|
280
|
0 |
0 |
if (eval {
do {
require DateTime::TimeZone;
1
}
}) { } |
|
293
|
0 |
0 |
defined $Time::y2038::VERSION ? : |
|
299
|
0 |
0 |
defined $main::TZ ? : |
|
301
|
0 |
0 |
defined $ENV{'TZ'} ? : |
|
331
|
0 |
0 |
unless exists $version{$module} |
|
349
|
8 |
6 |
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'}
}
} |
|
350
|
0 |
8 |
if $v |
|
352
|
7 |
1 |
unless $opt{'import'} |
|
356
|
8 |
0 |
unless $opt{'noimport'} |
|
358
|
2 |
4 |
$v ? : |
|
360
|
2 |
4 |
if $skip and $skip =~ / \A all \z /imsx |
|
374
|
12 |
395 |
if (defined(my $err = &dies(sub {
$got = $app->$method(@args);
}
))) { } |
|
376
|
0 |
12 |
unless defined $want |
|
377
|
12 |
0 |
unless "Regexp" eq ref $want |
|
383
|
29 |
366 |
if ("CODE" eq ref $want) |
|
389
|
496 |
236 |
if defined $_ and not ref $_ |
|
392
|
0 |
366 |
'Regexp' eq ref $want ? : |
|
429
|
1 |
4 |
unless my $code = "My::Module::Meta"->can($kind) |
|
442
|
10 |
49 |
unless eval {
do {
require $file;
$installed = $module->VERSION;
$installed = "undef" unless defined $installed;
1
}
} |
|
445
|
0 |
49 |
unless defined $installed |
|
453
|
0 |
4 |
unless defined $hdr |
|
467
|
0 |
0 |
defined $ele ? : |
|
480
|
0 |
0 |
unless exists $attr->{$name} |
|
509
|
4 |
0 |
unless my $code = $normalizer{$^O} |
|
523
|
2 |
0 |
if ($want eq $got or $no_stat{$^O}) |
|
561
|
1 |
2 |
exists $self->{'exported'}{$name} ? : |
|
572
|
0 |
3 |
unless defined $format |