Branch Coverage

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


line true false branch
32 3 11 if ($import[$i] eq 'socket_path') { }
2 9 elsif ($import[$i] eq 'socket_perm') { }
1 8 elsif ($import[$i] eq 'listen_queue') { }
46 4 3 if ($ENV{'FCGI_SOCKET_PATH'} or $socket) { }
51 2 2 if (not $path =~ /^:/ and defined $perm)
52 0 2 unless chmod $perm, $path
78 1 0 if (ref $handles eq "HASH")
100 16 3 if (not $args[0] or ref $args[0] and UNIVERSAL::isa($args[0], "CODE") and not $args[3])
110 4 12 unless defined $accept and $accept >= 0
113 12 4 if @CGI::SAVED_SYMBOLS