| line |
true |
false |
branch |
|
207
|
1 |
7 |
if $time_f eq "rfc" |
|
208
|
1 |
7 |
if $time_f eq "iso" |
|
218
|
2 |
6 |
$args{'hem'} =~ /^s/i ? : |
|
228
|
1 |
7 |
if ($args{'output'}) |
|
229
|
0 |
1 |
unless open my $fh, ">:raw", $args{'output'} |
|
243
|
6 |
2 |
if (defined $args{'lat'} and defined $args{'lon'}) |
|
249
|
1 |
1 |
$args{'hash'} ? : |
|
260
|
2 |
6 |
if $args{'format'} and $args{'format'} eq "text" |
|
262
|
3 |
3 |
$source eq '3-day-forecast' ? : |
|
279
|
1 |
6 |
if not $kp or $kp < "4.5" |
|
280
|
1 |
5 |
if $kp < "5.5" |
|
281
|
1 |
4 |
if $kp < "6.5" |
|
282
|
1 |
3 |
if $kp < "7.5" |
|
283
|
2 |
1 |
if $kp < 9 |
|
291
|
6 |
2 |
if $json and $hash |
|
303
|
17888 |
47274 |
if $_->[2] |
|
315
|
7 |
14 |
unless $self->{'cache'} and $self->{'data'}{$key} and time - $self->{'data'}{$key}{'ts'} <= $self->{'cache'} |
|
337
|
1 |
5 |
if $ref_mon and $mon > $ref_mon |
|
340
|
2 |
4 |
wantarray ? : |
|
351
|
2 |
24 |
if ($line =~ /Kp index breakdown\s+.*(\d{4})/i) |
|
357
|
1 |
2 |
unless $year |
|
362
|
2 |
2 |
if ($line =~ /^\s*([A-Za-z]{3}\s+\d+)\s+([A-Za-z]{3}\s+\d+)\s+([A-Za-z]{3}\s+\d+)/) |
|
370
|
0 |
2 |
unless @dates |
|
375
|
16 |
65 |
if ($line =~ /^\s*(\d{2})-\d{2}UT\s+([\d.]+)\s+$g([\d.]+)\s+$g([\d.]+)/) |
|
378
|
8 |
8 |
unless $self->{'td'} |
|
394
|
54 |
25 |
if ($line =~ /^\s*(\d{4})\s+([A-Z][a-z]{2})\s+(\d{2})\s+(\d+)\s+(\d+)\s+(\d+)/) |
|
399
|
27 |
27 |
$self->{'td'} ? : |