Condition Coverage

blib/lib/Perlbal.pm
Criterion Covered Total %
condition 16 81 19.7


and 2 conditions

line l !l condition
306 16 397 $main::Perlbal::{"MANAGE_$basecmd"} and $handler = *{"MANAGE_$basecmd";}{'CODE'}

and 3 conditions

line !l l&&!r l&&r condition
348 0 0 0 $has_gladiator and $has_devel_peek
451 0 0 0 $ref =~ /^Perlbal::Client/ and $ref ne 'Perlbal::ClientManage'
452 0 0 0 $sock->isa('Perlbal::BackendHTTP') and $$sock{'state'} ne 'bored'
476 0 0 0 $arg1 and $arg2
933 0 0 0 defined $rv and $rv
954 10 0 4 $val eq 'ioaio' and not $Perlbal::OPTMOD_IO_AIO
1174 0 0 0 $@ and exists $INC{$file}
1413 0 0 0 print $fh "$$\n" and close $fh

or 2 conditions

line l !l condition
47 0 22 $ENV{'PERLBAL_DEBUG'} || 0
48 0 22 $ENV{'PERLBAL_DEBUG_OBJ'} || 0
49 0 22 $ENV{'PERLBAL_TRACK_STATES'} || 0
284 413 0 $out ||= sub { }
357 0 0 $last_gladiator{$k} || 0
373 0 0 $name ||= ''
585 0 6 $mc->arg(2) || 80
677 0 0 $mc->arg(1) || 'all'
710 0 0 $age ||= 0
905 4 0 $$svc{'listen'} || 'not_listening'
1074 14 0 $port ||= 80

or 3 conditions

line l !l&&r !l&&!r condition
236 6 0 0 $PluginCase{$pname} || $pname
243 0 18 0 $ctx ||= 'Perlbal::CommandContext'->new
285 413 0 0 $ctx ||= 'Perlbal::CommandContext'->new
470 0 0 0 not $cmd or $cmd eq 'list'
551 0 0 0 $res or $! != 9
790 0 0 0 $sock->isa('Perlbal::ClientProxy') or $sock->isa('Perlbal::BackendHTTP')
0 0 0 $sock->isa('Perlbal::ClientProxy') or $sock->isa('Perlbal::BackendHTTP') or $sock->isa('Perlbal::ClientHTTP')
967 0 0 0 $val eq '1' or $val eq '0'
981 0 0 0 $val eq '1' or $val eq '0'
1065 0 0 0 $pool{$name} or $service{$name}
1101 180 46 0 $name ||= $$mc{'ctx'}{'last_created'}