Condition Coverage

blib/lib/Tvh/Htsp/Client.pm
Criterion Covered Total %
condition 6 37 16.2


and 3 conditions

line !l l&&!r l&&r condition
67 0 0 0 LooksLike::integer($channel) and $channel > 100000000
72 0 0 0 $reply->{'channelName'} and $reply->{'channelId'} eq "$channel"
156 0 0 0 $length == 0 and $buffer
161 0 0 0 $length == 0 and not $buffer
0 0 0 $length == 0 and not $buffer and $self->{'msg'}{'method'} ne "enableAsyncMetadata"
163 0 0 0 $length > 10000000 and $self->{'debug_info'}
193 7 0 0 $self->{'debug_info'} and not $sub_message

or 2 conditions

line l !l condition
19 0 1 $args->{'host'} // "localhost"
0 1 $args->{'port'} // 9982
1 0 $args->{'debug_info'} // 0
1 0 $args->{'no_client'} // 0
0 1 $args->{'epgdb_v3'} // 0
31 0 0 'IO::Socket'->new('Domain', 2, 'Type', 1, 'proto', 'tcp', 'PeerHost', "$self->{'host'}", 'PeerPort', $self->{'port'}) || die('Error ' . (caller 0)[3] . ": can't open socket: $IO::Socket::errstr")
152 0 0 $self->{'client'}->recv($buffer, 4096) // die('Error ' . (caller 0)[3] . ": from socket: $IO::Socket::errstr")
171 0 0 $self->{'client'}->recv(my $buffer0, &min($length - length($buffer), 4096)) // die('Error ' . (caller 0)[3] . ": from socket: $IO::Socket::errstr")