Branch Coverage

blib/lib/CGI/Fast.pm
Criterion Covered Total %
branch 18 20 90.0


line true false branch
36 3 11 if ($import[$i] eq 'socket_path') { }
2 9 elsif ($import[$i] eq 'socket_perm') { }
1 8 elsif ($import[$i] eq 'listen_queue') { }
50 4 3 if ($ENV{'FCGI_SOCKET_PATH'} or $CGI::Fast::socket) { }
55 2 2 if (not $path =~ /^:/ and defined $perm)
56 0 2 unless chmod $perm, $path
82 1 0 if (ref $handles eq 'HASH')
104 16 3 if (not $args[0] or ref $args[0] and UNIVERSAL::isa($args[0], 'CODE') and not $args[3])
114 4 12 unless defined $accept and $accept >= 0
117 12 4 if @CGI::SAVED_SYMBOLS