| line |
true |
false |
branch |
|
182
|
18 |
0 |
unless (eval {
do {
require Time::y2038;
"Time::y2038"->import("gmtime", "localtime");
*time_gm = sub {
my(@date) = @_;
$date[5] = _year_adjust_y2038($date[5]);
return Time::y2038::timegm(@date);
}
;
*greg_time_gm = sub {
my(@date) = @_;
$date[5] -= 1900;
return Time::y2038::timegm(@date);
}
;
*time_local = sub {
my(@date) = @_;
$date[5] = _year_adjust_y2038($date[5]);
return Time::y2038::timelocal(@date);
}
;
*greg_time_local = sub {
my(@date) = @_;
$date[5] -= 1900;
return Time::y2038::timelocal(@date);
}
;
@greg_time_routines = ("gmtime", "localtime", "greg_time_gm", "greg_time_local", "__tle_year_to_Gregorian_year");
1
}
}) |
|
239
|
0 |
0 |
if $year < 0 |
|
242
|
0 |
0 |
if $year >= 1000 |
|
247
|
0 |
0 |
$year > $Breakpoint ? : |
|
257
|
306 |
0 |
$year >= 1000 ? : |
|
339
|
0 |
919 |
if abs $_[0] > 1 |
|
444
|
0 |
21 |
if $yr < -4712 |
|
445
|
0 |
21 |
if $mon < 1 or $mon > 12 |
|
446
|
20 |
1 |
if ($mon < 3) |
|
455
|
1 |
20 |
if $jd < $JD_GREGORIAN |
|
499
|
0 |
0 |
unless $string =~ / \A \s*
( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+
( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) (?: ( [.] [0-9]* ) )? \s* \z /msx |
|
508
|
0 |
0 |
if defined $frac and $frac ne "." |
|
524
|
8 |
15 |
unless (embodies($args[0], "Astro::Coord::ECI")) |
|
525
|
0 |
8 |
unless my $sta = $self->get("station") |
|
539
|
165030 |
1 |
defined $_[0] ? : |
|
558
|
0 |
1 |
unless "ARRAY" eq ref $x and "ARRAY" eq ref $y and @{$x;} == @{$y;} |
|
613
|
39588 |
2278 |
$code ? : |
|
660
|
27 |
0 |
if wantarray |
|
690
|
0 |
421 |
unless defined $begin |
|
692
|
0 |
421 |
unless defined $end |
|
694
|
375 |
46 |
if ($limit >= 1) |
|
695
|
375 |
0 |
if ($begin <= $end) { } |
|
697
|
375 |
0 |
floor($end) == $end ? : |
|
700
|
0 |
0 |
floor($begin) == $begin ? : |
|
707
|
421 |
0 |
$end > $begin ? : |
|
709
|
2987 |
585 |
$limit >= 1 ? : |
|
711
|
1659 |
1913 |
&$test($mid) ? : |
|
740
|
0 |
1 |
unless defined $time and $time =~ / \S /msx |
|
778
|
2 |
0 |
length($1) % 2 ? : |
|
779
|
1 |
0 |
length($1) % 2 ? : |
|
879
|
6 |
30 |
(my $julian = $Z < $JD_GREGORIAN) ? : |
|
888
|
27 |
9 |
$E < 14 ? : |
|
889
|
27 |
9 |
$mon > 2 ? : |
|
890
|
24 |
0 |
$yr % 100 ? : |
|
|
24 |
6 |
$yr % 400 ? : |
|
|
6 |
30 |
$julian ? : |
|
966
|
0 |
1 |
unless defined $precision |
|
977
|
2 |
1 |
if $precision < abs $curr - $prev |
|
998
|
0 |
243 |
if exists $error{$module} |
|
999
|
195 |
48 |
if exists $rslt{$module} |
|
1004
|
0 |
48 |
unless $rslt{$module} = eval "require $module" |
|
1143
|
8360 |
1 |
defined $_[0] ? : |
|
1165
|
1 |
1 |
unless defined $rad |
|
1167
|
1 |
0 |
unless defined $dp |
|
1169
|
1 |
0 |
unless defined $ds |
|
1173
|
0 |
1 |
$rad < 0 ? : |
|
1179
|
1 |
0 |
if ($deg) { } |
|
|
0 |
0 |
elsif ($min) { } |
|
1186
|
0 |
1 |
unless $rslt =~ s/ [.] /"./msx |
|
1207
|
1 |
1 |
unless defined $rad |
|
1209
|
1 |
0 |
unless defined $dp |
|
1213
|
0 |
1 |
$rad < 0 ? : |
|
1219
|
1 |
0 |
if ($hr) { } |
|
|
0 |
0 |
elsif ($min) { } |
|
1226
|
0 |
1 |
unless $rslt =~ s/ [.] /s./msx |
|
1321
|
0 |
3 |
unless @{$b;} == 3 and @{$c;} == 3 |
|
1341
|
0 |
50698 |
unless @{$b;} == @{$c;} |
|
1361
|
0 |
24490 |
unless "ARRAY" eq ref $x |
|
1381
|
0 |
2 |
unless "ARRAY" eq ref $x |
|
1396
|
0 |
42738 |
if ref $invocant |
|
1397
|
0 |
42738 |
unless defined $invocant |
|
1409
|
0 |
115 |
unless ref $object |
|
1410
|
0 |
115 |
unless &blessed($object) |
|
1433
|
28 |
23 |
if $string =~ s/ \s* (?: ( Z ) |
( [+-] ) ( [0-9]{2} ) :? ( [0-9]{2} )? ) \z //msx |
|
1439
|
51 |
0 |
if ($string =~ / \A
( [0-9]{4} [^0-9]? | [0-9]{2} [^0-9] ) # year: $1
(?: ( [0-9]{1,2} ) [^0-9]? # month: $2
(?: ( [0-9]{1,2} ) (?: \s* | [^0-9]? ) # day: $3
(?: ( [0-9]{1,2} ) [^0-9]? # hour: $4
(?: ( [0-9]{1,2} ) [^0-9]? # minute: $5
(?: ( [0-9]{1,2} ) [^0-9]? # second: $6
( [0-9]* ) # fract: $7
)?
)?
)?
)?
)?
\z
/msx) { } |
|
|
0 |
0 |
elsif ($string =~ / \A
( yesterday | today | tomorrow ) # day: $1
(?: [^0-9]* ( [0-9]{1,2} ) [^0-9]? # hour: $2
(?: ( [0-9]{1,2} ) [^0-9]? # minute: $3
(?: ( [0-9]{1,2} ) [^0-9]? # second: $4
( [0-9]* ) # fract: $5
)?
)?
)?
\z /msx) { } |
|
1467
|
0 |
0 |
@zone ? : |
|
1478
|
5 |
46 |
if (@zone and not $zone[0]) |
|
1484
|
221 |
136 |
if defined $_ |
|
1489
|
47 |
4 |
if defined $date[1] |
|
1490
|
12 |
39 |
unless defined $date[2] |
|
1494
|
88 |
218 |
unless defined $_ |
|
1498
|
28 |
23 |
if (@zone) { } |
|
1504
|
0 |
51 |
if (defined $frc and $frc ne "") |
|
1516
|
3 |
27 |
unless defined $tplt |
|
1528
|
0 |
0 |
unless my $info = $deprecate{$sub} |
|
1530
|
0 |
0 |
unless $info->{'level'} |
|
1533
|
0 |
0 |
if $info->{'level'} >= 3 |
|
1537
|
0 |
0 |
if $info->{'level'} == 1 |
|
1558
|
14 |
43 |
$year < 100 ? : |
|
|
40 |
57 |
$year < 57 ? : |