Condition Coverage

blib/lib/Mango.pm
Criterion Covered Total %
condition 1 71 1.4


and 3 conditions

line !l l&&!r l&&r condition
58 0 0 0 /^([^,:]+)(?::(\d+))?/ and push @hosts, $2 ? [$1, $2] : [$1]
124 0 0 0 $_->{'last'} and not $_->{'start'}
0 0 0 $_->{'last'} and not $_->{'start'} and unshift @$queue, $_->{'last'}
244 0 0 0 $self->_write($_) and ++$start
254 0 0 0 not $start and @{$self->{'queue'};}
0 0 0 not $start and @{$self->{'queue'};} and @ids < $self->max_connections
303 0 0 0 not $loop->is_running and $stream->is_readable

or 2 conditions

line l !l condition
14 0 9 $ENV{'MANGO_DEBUG'} || 0
58 0 0 $_ // ''
65 0 0 $url->userinfo // ''
122 0 0 delete $self->{'queue'} || []
140 0 0 $hosts ||= [@{$self->hosts;}]
141 0 0 $port //= 27017
211 0 0 $_[0]{'id'} // 0
220 0 0 $doc->{'maxWireVersion'} || 0
230 0 0 $doc->{'primary'} // ''
241 0 0 $self->{'queue'} ||= []
313 0 0 $self->{'queue'}[-1] || {}

or 3 conditions

line l !l&&r !l&&!r condition
40 0 0 0 $name //= $self->default_db
179 0 0 0 $c->{'last'} // shift @{$$self{'queue'};}
191 0 0 0 $err ||= $self->protocol->command_error($doc)
208 0 0 0 $err || $self->protocol->query_failure($reply)
250 0 0 0 $op->{'nb'} or grep {not $connections->{$_}{'nb'};} @ids
282 0 0 0 $self->{'pid'} //= $$
313 0 0 0 $last or ($c->{'nb'} xor not +($self->{'queue'}[-1] || {})->{'nb'})
314 0 0 0 $last ||= $c->{'nb'} ? shift @{$$self{'queue'};} : pop @{$$self{'queue'};}

xor 4 conditions

line l&&r l&&!r !l&&r !l&&!r condition
313 0 0 0 0 $c->{'nb'} xor not +($self->{'queue'}[-1] || {})->{'nb'}