line | % | coverage | branch |
54 | 100 | T | F | unless (exists $p{'filehandle'}) |
55 | 100 | T | F | unless exists $p{'device'} |
70 | 50 | T | F | if ($$self{'device'} =~ m([/\\])) { } |
73 | 50 | T | F | if ($$self{'device'} eq 'discover') |
85 | 50 | T | F | if ($dev =~ s/:(\d+)$//) |
88 | 0 | T | F | unless my $fh = 'IO::Socket::INET'->new($dev . ':' . $self->port) |
106 | 0 | T | F | unless sysopen $fh, $$self{'device'}, 2306 |
115 | 100 | T | F | if defined $res |
116 | 50 | T | F | if $$self{'_buf'} ne '' |
121 | 50 | T | F | unless $sel->can_read($timeout) |
124 | 50 | T | F | if defined $timeout |
125 | 50 | T | F | defined $bytes ? : |
| 100 | T | F | unless $bytes |
127 | 50 | T | F | if defined $res |
128 | 50 | T | F | if defined $res |
134 | 100 | T | F | unless $$rbuf |
138 | 100 | T | F | if ($$self{'type'} eq 'eISCP') { } |
140 | 50 | T | F | unless $length >= 16 |
143 | 50 | T | F | unless $magic eq 'ISCP' |
145 | 50 | T | F | unless $length >= $header_size + $data_size |
147 | 50 | T | F | unless $version == 1 |
149 | 50 | T | F | unless $header_size == 16 |
154 | 50 | T | F | unless $sd eq '!1' |
156 | 100 | T | F | unless $no_write |
159 | 50 | T | F | unless $$rbuf =~ s/^(..)(....*?)[\032\r\n]+// |
161 | 50 | T | F | unless $sd eq '!1' |
163 | 50 | T | F | unless $no_write |
188 | 50 | T | F | unless $sel->can_read(10) |
190 | 50 | T | F | unless defined $sender |
207 | 50 | T | F | unless $$self{'_waiting'} |
215 | 50 | T | F | if ($wait_rec) |
216 | 0 | T | F | if $$wait_rec[1] |
218 | 100 | T | F | unless defined $rec |
232 | 50 | T | F | if ($$self{'type'} eq 'eISCP') { } |
365 | 100 | T | F | if (defined $str) { } |
| 100 | T | F | elsif ($canon =~ /^vol(100|[0-9][0-9]?)%?$/) { } |
| 50 | T | F | elsif ($canon =~ /^sleep(90|[0-8][0-9]|[1-9])m\w+?$/) { } |
| 50 | T | F | elsif (not $cmd =~ /^[A-Z][A-Z][A-Z]/) { } |