| line |
true |
false |
branch |
|
196
|
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
}
}) |
|
253
|
0 |
0 |
if $year < 0 |
|
256
|
0 |
0 |
if $year >= 1000 |
|
261
|
0 |
0 |
$year > $Breakpoint ? : |
|
271
|
0 |
0 |
$year >= 1000 ? : |
|
357
|
0 |
919 |
if abs $_[0] > 1 |
|
462
|
0 |
21 |
if $yr < -4712 |
|
463
|
0 |
21 |
if $mon < 1 or $mon > 12 |
|
464
|
20 |
1 |
if ($mon < 3) |
|
473
|
1 |
20 |
if $jd < $JD_GREGORIAN |
|
516
|
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 |
|
525
|
0 |
0 |
if defined $frac and $frac ne "." |
|
541
|
8 |
17 |
unless (embodies($args[0], "Astro::Coord::ECI")) |
|
542
|
0 |
8 |
unless my $sta = $self->get("station") |
|
556
|
796579 |
1 |
defined $_[0] ? : |
|
575
|
0 |
1 |
unless "ARRAY" eq ref $x and "ARRAY" eq ref $y and @{$x;} == @{$y;} |
|
630
|
67419 |
2948 |
$code ? : |
|
676
|
27 |
0 |
if wantarray |
|
709
|
0 |
421 |
unless defined $begin |
|
711
|
0 |
421 |
unless defined $end |
|
713
|
375 |
46 |
if ($limit >= 1) |
|
714
|
375 |
0 |
if ($begin <= $end) { } |
|
716
|
375 |
0 |
floor($end) == $end ? : |
|
719
|
0 |
0 |
floor($begin) == $begin ? : |
|
726
|
421 |
0 |
$end > $begin ? : |
|
728
|
2987 |
585 |
$limit >= 1 ? : |
|
730
|
1659 |
1913 |
&$test($mid) ? : |
|
759
|
0 |
1 |
unless defined $time and $time =~ / \S /msx |
|
902
|
6 |
30 |
(my $julian = $Z < $JD_GREGORIAN) ? : |
|
911
|
27 |
9 |
$E < 14 ? : |
|
912
|
27 |
9 |
$mon > 2 ? : |
|
913
|
24 |
0 |
$yr % 100 ? : |
|
|
24 |
6 |
$yr % 400 ? : |
|
|
6 |
30 |
$julian ? : |
|
989
|
0 |
1 |
unless defined $precision |
|
1000
|
2 |
1 |
if $precision < abs $curr - $prev |
|
1021
|
0 |
243 |
if exists $error{$module} |
|
1022
|
195 |
48 |
if exists $rslt{$module} |
|
1027
|
0 |
48 |
unless $rslt{$module} = eval "require $module" |
|
1200
|
29010 |
1 |
defined $_[0] ? : |
|
1222
|
1 |
1 |
unless defined $rad |
|
1224
|
1 |
0 |
unless defined $dp |
|
1226
|
1 |
0 |
unless defined $ds |
|
1230
|
0 |
1 |
$rad < 0 ? : |
|
1236
|
1 |
0 |
if ($deg) { } |
|
|
0 |
0 |
elsif ($min) { } |
|
1243
|
0 |
1 |
unless $rslt =~ s/ [.] /"./msx |
|
1264
|
1 |
1 |
unless defined $rad |
|
1266
|
1 |
0 |
unless defined $dp |
|
1270
|
0 |
1 |
$rad < 0 ? : |
|
1276
|
1 |
0 |
if ($hr) { } |
|
|
0 |
0 |
elsif ($min) { } |
|
1283
|
0 |
1 |
unless $rslt =~ s/ [.] /s./msx |
|
1378
|
0 |
3 |
unless @{$b;} == 3 and @{$c;} == 3 |
|
1398
|
0 |
50698 |
unless @{$b;} == @{$c;} |
|
1418
|
0 |
50185 |
unless "ARRAY" eq ref $x |
|
1438
|
0 |
2 |
unless "ARRAY" eq ref $x |
|
1453
|
0 |
73374 |
if ref $invocant |
|
1454
|
0 |
73374 |
unless defined $invocant |
|
1466
|
0 |
115 |
unless ref $object |
|
1467
|
0 |
115 |
unless builtin::blessed($object) |
|
1490
|
28 |
23 |
if $string =~ s/ \s* (?: ( Z ) |
( [+-] ) ( [0-9]{2} ) :? ( [0-9]{2} )? ) \z //msx |
|
1496
|
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) { } |
|
1524
|
0 |
0 |
@zone ? : |
|
1535
|
5 |
46 |
if (@zone and not $zone[0]) |
|
1541
|
221 |
136 |
if defined $_ |
|
1546
|
47 |
4 |
if defined $date[1] |
|
1547
|
12 |
39 |
unless defined $date[2] |
|
1551
|
88 |
218 |
unless defined $_ |
|
1555
|
28 |
23 |
if (@zone) { } |
|
1561
|
0 |
51 |
if (defined $frc and $frc ne "") |
|
1599
|
0 |
18 |
unless length($percent) % 2 and $mung{$fmt} |
|
1602
|
16 |
2 |
unless defined $places |
|
1604
|
5 |
13 |
if (defined $places) |
|
1605
|
3 |
2 |
unless index($places, ".") == 0 |
|
1607
|
0 |
5 |
if $places eq "." |
|
1618
|
5 |
49 |
unless defined $tplt |
|
1638
|
0 |
28 |
unless my $info = $deprecate{$sub} |
|
1640
|
28 |
0 |
unless $info->{'level'} |
|
1643
|
0 |
0 |
if $info->{'level'} >= 3 |
|
1647
|
0 |
0 |
if $info->{'level'} == 1 |
|
1668
|
14 |
43 |
$year < 100 ? : |
|
|
40 |
57 |
$year < 57 ? : |