| line |
true |
false |
branch |
|
199
|
0 |
0 |
unless $response->code == 200 |
|
212
|
0 |
0 |
unless $content =~ m{\A\ *MJD\ +\[UTC-UTC\([A-Z]+\ *\)\]/ns
(?:\ [^\n]*)?$nl_rx
(?>\ *[0-9]+\ +(?:-|-?[0-9]+(?:\.[0-9]+)?)
(?:\ [^\n]*)?$nl_rx)*
\x{1a}?\z}ox |
|
227
|
0 |
0 |
unless $mjd > $last_mjd |
|
229
|
0 |
0 |
unless $mjd >= $min_mjd and !defined($max_mjd) || $mjd < $max_mjd |
|
232
|
0 |
0 |
if ($offset_ns =~ /\A-?0+(?:\.0+)?\z/) { } |
|
241
|
0 |
0 |
if $consecutive_zeroes != 0 |
|
249
|
0 |
0 |
if (not defined $rpt) { } |
|
|
0 |
0 |
elsif (ref $rpt eq '') { } |
|
258
|
0 |
0 |
if (defined $rpt) |
|
260
|
0 |
0 |
unless $time >= $$rpt{'wait_until'} or $time < $$rpt{'last_downloaded'} |
|
272
|
0 |
0 |
unless @$data |
|
274
|
0 |
0 |
if defined $rpt |
|
289
|
0 |
0 |
unless $content =~ /\A\ *Values\ of\ UTC-UTC\(laboratory\)\ for
(?>[^\n]+\n)+\n
((?>(?>\ {5}(?:\ {4}[A-Z\ ]{4}){8}\n)+))
(?>[0-9]{5}
(?:[\ \-\+][\ \-\+0-9]{3}\.(?:[0-9]{3}|0\ \ )
|\ {8}){8}\n)+
\z/x |
|
305
|
0 |
0 |
unless $mjd > $last_mjd |
|
308
|
0 |
0 |
unless ($line == 0) |
|
309
|
0 |
0 |
unless $content =~ /^([0-9]{5})(.{64})\n/gms |
|
312
|
0 |
0 |
unless $mjd eq $last_mjd |
|
315
|
0 |
0 |
unless $mjd >= $min_mjd and $mjd < $max_mjd |
|
319
|
0 |
0 |
unless (defined $lab) |
|
320
|
0 |
0 |
unless $num eq ' ' |
|
324
|
0 |
0 |
if $num eq ' 0.0 ' |
|
325
|
0 |
0 |
unless $num =~ /\A\ *([-+]?[0-9]+
\.[0-9]+)\z/x |
|
339
|
0 |
0 |
unless $content =~ /\A[\ \t\n]*[^\n]*\ local\ representations\ of\ utc[\ :].*
[\ \t\n]unit\ is\ one\ (micr|nan)osecond\./six |
|
342
|
0 |
0 |
$1 =~ /\Amicr\z/i ? : |
|
352
|
0 |
0 |
if (defined $labs) |
|
355
|
0 |
0 |
if exists $data{$lab} |
|
363
|
0 |
0 |
unless @labs |
|
364
|
0 |
0 |
unless $mjd >= $min_mjd and $mjd < $max_mjd |
|
366
|
0 |
0 |
unless @offsets == @labs |
|
369
|
0 |
0 |
unless ($mjd > $data{$lab}{'last_mjd'}) |
|
371
|
0 |
0 |
if $data{$lab}{'last_mjd'} == 50994 |
|
376
|
0 |
0 |
unless $offset eq '-' |
|
393
|
0 |
0 |
unless $content =~ /\A[\ \t\n]*[^\n]*
\[\ *(?:tai|utc)\ *-\ *(?:gps|glonass)\ time\]/xi |
|
396
|
0 |
0 |
$content =~ /\(Unit is one microsecond\)/ ? : |
|
408
|
0 |
0 |
unless ($mjd > $last_mjd) |
|
412
|
0 |
0 |
if $mjd == 49709 |
|
416
|
0 |
0 |
unless $mjd >= $min_mjd and $mjd < $max_mjd |
|
472
|
0 |
0 |
unless defined $year |
|
490
|
0 |
0 |
unless $content =~ /\A[\ \t\n]*Relations\ of\ UTC\ and\ TAI\ with
\ GPS\ time\ and\ GLONASS\ time[\ \t\n]/x |
|
502
|
0 |
0 |
unless $mjd > $last_mjd |
|
504
|
0 |
0 |
unless $mjd >= $min_mjd and $mjd < $max_mjd |
|
505
|
0 |
0 |
unless $gps_offset_ns eq '-' |
|
507
|
0 |
0 |
unless $glo_offset_ns eq '-' |
|
589
|
0 |
0 |
unless defined $metadata |
|
595
|
0 |
0 |
unless (defined $data) |
|
775
|
0 |
0 |
unless defined $r |
|
776
|
0 |
0 |
if (ref $r eq '') |
|
777
|
0 |
0 |
if ($r =~ /\A=([a-z]+)\z/) { } |
|
|
0 |
0 |
elsif ($r eq '*tai') { } |
|
786
|
0 |
0 |
if ($ingredient =~ /\A[!?]/) { } |
|
|
0 |
0 |
elsif ($ingredient =~ /\A(?:u|gg)[0-9][0-9]\z/) { } |
|
|
0 |
0 |
elsif ($ingredient eq 'u') { } |
|
|
0 |
0 |
elsif ($ingredient eq 'u*gum') { } |
|
|
0 |
0 |
elsif ($ingredient eq 'u*pl') { } |
|
|
0 |
0 |
elsif ($ingredient =~ /\Ag([0-9][0-9])\z/) { } |
|
|
0 |
0 |
elsif ($ingredient eq '<') { } |
|
|
0 |
0 |
elsif ($ingredient eq '>') { } |
|
|
0 |
0 |
elsif ($ingredient =~ /\A:([a-z]+)\z/) { } |