| line |
true |
false |
branch |
|
30
|
1 |
12 |
unless exists $p{'device'} or exists $p{'filehandle'} |
|
45
|
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'}) |