Branch Coverage

File:lib/Device/Onkyo.pm
Coverage:59.2%

line%coveragebranch
54100TFunless (exists $p{'filehandle'})
55100TFunless exists $p{'device'}
7050TFif ($$self{'device'} =~ m([/\\])) { }
7350TFif ($$self{'device'} eq 'discover')
8550TFif ($dev =~ s/:(\d+)$//)
880TFunless my $fh = 'IO::Socket::INET'->new($dev . ':' . $self->port)
1060TFunless sysopen $fh, $$self{'device'}, 2306
115100TFif defined $res
11650TFif $$self{'_buf'} ne ''
12150TFunless $sel->can_read($timeout)
12450TFif defined $timeout
12550TFdefined $bytes ? :
100TFunless $bytes
12750TFif defined $res
12850TFif defined $res
134100TFunless $$rbuf
138100TFif ($$self{'type'} eq 'eISCP') { }
14050TFunless $length >= 16
14350TFunless $magic eq 'ISCP'
14550TFunless $length >= $header_size + $data_size
14750TFunless $version == 1
14950TFunless $header_size == 16
15450TFunless $sd eq '!1'
156100TFunless $no_write
15950TFunless $$rbuf =~ s/^(..)(....*?)[\032\r\n]+//
16150TFunless $sd eq '!1'
16350TFunless $no_write
18850TFunless $sel->can_read(10)
19050TFunless defined $sender
20750TFunless $$self{'_waiting'}
21550TFif ($wait_rec)
2160TFif $$wait_rec[1]
218100TFunless defined $rec
23250TFif ($$self{'type'} eq 'eISCP') { }
365100TFif (defined $str) { }
100TFelsif ($canon =~ /^vol(100|[0-9][0-9]?)%?$/) { }
50TFelsif ($canon =~ /^sleep(90|[0-8][0-9]|[1-9])m\w+?$/) { }
50TFelsif (not $cmd =~ /^[A-Z][A-Z][A-Z]/) { }