| line |
true |
false |
branch |
|
103
|
0 |
205 |
if $end_utc_day <= $start_utc_day |
|
105
|
0 |
205 |
if $end_utc_day <= $seg->start_utc_day |
|
106
|
0 |
205 |
if $start_utc_day > $seg->start_utc_day |
|
111
|
0 |
205 |
unless $start_tai_instant == $seg->start_tai_instant and $utc_second_length == $seg->utc_second_length |
|
119
|
0 |
205 |
if abs $leap_utc_seconds >= 60 |
|
148
|
0 |
205 |
unless $line =~ /\A[\ \t]*[0-9]+[\ \t]*[A-Z]+[\ \t]*[0-9]+[\ \t]*
=[\ \t]*
JD[\ \t]*([0-9]+\.?[0-9]*)[\ \t]*
TAI[\ \t]*-[\ \t]*UTC[\ \t]*=[\ \t]*
(-?[0-9]+\.?[0-9]*)[\ \t]*S[\ \t]*
([\+\-])[\ \t]*
\([\ \t]*MJD[\ \t]*([\+\-])[\ \t]*
(-?[0-9]+\.?[0-9]*)[\ \t]*\)[\ \t]*
X[\ \t]*(-?[0-9]+\.?[0-9]*)[\ \t]*S[\ \t]*
\n\z/xi |
|
162
|
0 |
205 |
unless $start_mjd->is_int |
|
166
|
0 |
205 |
if $base_mjd_sign eq '+' |
|
167
|
0 |
205 |
if $tweak_sign eq '-' |
|
176
|
200 |
5 |
if (defined $seg) |
|
186
|
0 |
5 |
unless defined $seg |
|
193
|
5 |
0 |
if ($end_utc_day > $seg->{'start_utc_day'}) |
|
210
|
0 |
5 |
unless $init_dat =~ s/^[\ \t]*[0-9]+[\ \t]*[A-Z]+[\ \t]*[0-9]+[\ \t]*
=[\ \t]*
JD[\ \t]*([0-9]+\.?[0-9]*)[\ \t]*
unknown[\ \t]*\n\z//mix |
|
260
|
0 |
0 |
unless $list =~ /\n\z/ |
|
261
|
0 |
0 |
unless $list =~ /^\#h[\ \t]*
([0-9a-fA-F]{1,8}(?:[\ \t]+[0-9a-fA-F]{1,8}){4})
[\ \t]*$/mx |
|
273
|
0 |
0 |
unless sha1_hex($data_to_hash) eq $hash |
|
278
|
0 |
0 |
unless $line =~ /\A[ \t]*([0-9]+)[ \t]+([0-9]+)[ \t]*(?:\#|\z)/ |
|
283
|
0 |
0 |
unless $next_start_utc_day->is_int |
|
287
|
0 |
0 |
if (defined $start_utc_day) |
|
298
|
0 |
0 |
unless $list =~ /^\#\@[ \t]*([0-9]+)[ \t]*$/m |
|
302
|
0 |
0 |
if (defined $start_utc_day) |
|
315
|
0 |
0 |
unless eval {
do {
local $SIG{'__DIE__'};
&_download_leap_seconds_list();
1
}
} |
|
323
|
15 |
3 |
unless $time >= $wait_until or $time < $last_download |
|
326
|
0 |
3 |
if &_download_latest_data() |
|
352
|
22 |
0 |
if (defined $try_to_extend_knowledge) |
|
359
|
4 |
18 |
if (ref $self eq 'Time::UTC::Segment::Complete') |