| line |
true |
false |
branch |
|
31
|
1 |
9 |
unless exists $p{'device'} or exists $p{'filehandle'} |
|
46
|
3 |
3 |
$self->type == 1 ? : |
|
|
0 |
6 |
defined $self->{'baud'} ? : |
|
60
|
3 |
9 |
unless ($fh) |
|
64
|
1 |
2 |
unless my $s = tie(*$fh, "Device::SerialPort", $dev) |
|
75
|
0 |
2 |
unless sysopen $fh, $dev, 2306 |
|
87
|
4 |
17 |
if defined $res |
|
93
|
1 |
17 |
unless $sel->can_read($timeout) |
|
96
|
4 |
13 |
if defined $timeout |
|
97
|
3 |
14 |
unless ($bytes) |
|
98
|
3 |
0 |
defined $bytes ? : |
|
102
|
13 |
1 |
if defined $res |
|
109
|
11 |
24 |
unless $$rbuf |
|
111
|
17 |
7 |
if ($$rbuf =~ s[^.*?(.*?)[\r\n ]*][]s) { } |
|
114
|
11 |
6 |
if ($msg->has_history) |
|
123
|
24 |
10 |
if (exists $our->{$sensor}{$interval}{'pending'}{'1'} or $interval eq "hours" and exists $our->{$sensor}{$interval}{'pending'}{'4'} || exists $our->{$sensor}{$interval}{'pending'}{'2'}) |
|
128
|
14 |
10 |
if ($entries == {"years", 4, "months", 21, "days", 90, "hours", 372}->{$interval} or $entries == {"years", 4, "months", 12, "days", 31, "hours", 13}->{$interval}) |
|
152
|
2 |
1 |
unless exists $self->{'history'}{$sensor}{$interval}{'current'} |
|
161
|
1 |
16 |
if ($self->{'buf'} ne "" and $self->{'_last_read'} < $self->_time_now - $self->{'discard_timeout'}) |