Branch Coverage

blib/lib/Device/Yeelight/Light.pm
Criterion Covered Total %
branch 0 20 0.0


line true false branch
52 0 0 if defined $self->{'_socket'}
65 0 0 unless (grep {$method =~ /::$_$/u;} @{$$self{'support'};})
76 0 0 unless $self->is_supported($AUTOLOAD)
95 0 0 if defined $self->{'_socket'} and $self->{'_socket'}->connected
97 0 0 unless $self->{'_socket'} = 'IO::Socket::INET'->new('PeerAddr', $addr, 'PeerPort', $port, 'ReuseAddr', 1, 'Proto', 'tcp')
125 0 0 unless $self->connection->send("$json\r\n")
132 0 0 unless defined $response->{'id'}
134 0 0 if $response->{'id'} != $id
135 0 0 if (defined $response->{'error'})
160 0 0 unless $self->is_supported((caller 0)[3])