| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless $args{'Port'} |
|
27
|
0 |
0 |
unless my $port = 'Device::SerialPort'->new($args{'Port'}) |
|
44
|
0 |
0 |
if (defined $self->{'savefragment'}) |
|
48
|
0 |
0 |
if ($count > 0) { } |
|
50
|
0 |
0 |
if $buffer =~ /\S\n/ |
|
57
|
0 |
0 |
if ($buffer =~ /\n/) { } |
|
61
|
0 |
0 |
if $trailing =~ /\S+/ |
|
62
|
0 |
0 |
if ($buffer =~ /(.+):(.*)/) { } |
|
63
|
0 |
0 |
if ($2) { } |
|
|
0 |
0 |
elsif ($check) { } |
|
64
|
0 |
0 |
unless ($check) |
|
65
|
0 |
0 |
if ($ack) |
|
70
|
0 |
0 |
if (_cksum($msg) eq $cksum) { } |
|
82
|
0 |
0 |
if $buffer eq 'OK:' |
|
96
|
0 |
0 |
if $buffer =~ /\S+/ |
|
97
|
0 |
0 |
$ack ? : |
|
108
|
0 |
0 |
$cksum ? : |
|
113
|
0 |
0 |
$cksum ? : |
|
134
|
0 |
0 |
if $auto eq 'DESTROY' |
|
135
|
0 |
0 |
if ($auto =~ /^(port)$/x) { } |