| line |
true |
false |
branch |
|
21
|
14 |
0 |
if (not $json_ok) |
|
35
|
8 |
18 |
unless ($self->_file) |
|
58
|
27 |
0 |
if ($self->_file) { } |
|
61
|
1 |
26 |
unless open my $fh, '<', $fname |
|
66
|
0 |
26 |
unless close $fh |
|
75
|
0 |
0 |
if ($data->{'class'} eq 'POLL') |
|
82
|
0 |
26 |
unless defined $gps_json_data |
|
86
|
0 |
26 |
unless (defined $gps_perl_data->{'tpv'}[0]) |
|
93
|
1 |
25 |
if defined $args{'return'} and $args{'return'} eq 'json' |
|
102
|
77 |
1 |
if (defined $stat) |
|
103
|
1 |
76 |
unless defined $self->{'tpv'}{$stat} |
|
135
|
66 |
2 |
if (defined $sat_num) |
|
136
|
1 |
65 |
unless defined $self->{'satellites'}{$sat_num} |
|
139
|
65 |
2 |
if (defined $sat_num and defined $stat) |
|
140
|
13 |
52 |
unless defined $self->{'satellites'}{$sat_num}{$stat} |
|
158
|
32 |
0 |
if @_ > 1 |
|
179
|
1 |
27 |
unless (@_) |
|
186
|
23 |
4 |
unless $lat =~ /[NESW]$/ |
|
187
|
0 |
4 |
unless $lon =~ /[NESW]$/ |
|
207
|
1 |
7 |
unless (@_) |
|
213
|
0 |
7 |
if $lat =~ /[NESW]$/ |
|
214
|
0 |
7 |
if $lon =~ /[NESW]$/ |
|
216
|
2 |
5 |
if ($lat =~ /^-/) { } |
|
223
|
5 |
2 |
if ($lon =~ /^-/) { } |
|
240
|
5 |
21 |
if (not $self->_is_metric) |
|
250
|
19 |
122 |
if defined $file |
|
255
|
0 |
24 |
if defined $host |
|
256
|
8 |
16 |
unless defined $self->{'host'} |
|
262
|
9 |
50 |
if defined $metric |
|
263
|
24 |
35 |
unless defined $self->{'metric'} |
|
269
|
4 |
50 |
if defined $signed |
|
270
|
24 |
30 |
unless defined $self->{'signed'} |
|
275
|
0 |
24 |
if defined $port |
|
276
|
8 |
16 |
unless defined $self->{'port'} |
|
296
|
23 |
3 |
$self->_is_signed ? : |
|
305
|
156 |
182 |
$sat->{'used'} ? : |
|
313
|
0 |
26 |
if defined $status |
|
319
|
0 |
8 |
if $self->_file |
|
321
|
8 |
0 |
unless (defined $self->{'socket'}) |
|
330
|
8 |
0 |
unless defined $self->{'socket'} |
|
336
|
0 |
26 |
if $self->_is_socket |