Condition Coverage

blib/lib/CGI/Bus.pm
Criterion Covered Total %
condition 0 400 0.0


and 3 conditions

line !l l&&!r l&&r condition
55 0 0 0 ref $_[0] and eval { do { $_[0]->isa('CGI::Bus') } }
142 0 0 0 ($ENV{'CONTENT_TYPE'} || '') =~ m[^multipart/form-data] and not $ENV{'MOD_PERL'}
151 0 0 0 $ENV{'MOD_PERL'} and not $ENV{'PERL_SEND_HEADER'}
225 0 0 0 $opt{-'tpath'} and -d $opt{-'tpath'} || $s->fut->mkdir($opt{-'tpath'})
250 0 0 0 ref $o and $o->isa('HASH')
253 0 0 0 not scalar @_ and $ENV{'MOD_PERL'}
278 0 0 0 not scalar @_ and ref $$s{$k}
382 0 0 0 UNIVERSAL::isa($v, 'HASH') and not UNIVERSAL::isa($v, 'CGI::Bus')
439 0 0 0 defined $$r{$_[2]} && defined $$r{$_[2]}[$_[1]]
480 0 0 0 $_[0] and $_[0]{-'cache'}
0 0 0 $_[0] and $_[0]{-'cache'} and $_[0]{-'cache'}{-'httpheader'}
493 0 0 0 $m =~ /\n/ and $_[0]{-'cgi'}
498 0 0 0 $_[0] and $_[0]{-'cache'}
0 0 0 $_[0] and $_[0]{-'cache'} and $_[0]{-'cache'}{-'httpheader'}
529 0 0 0 not $_[0]{-'dbi'} and $_[0]{-'classes'}{-'dbi'}
565 0 0 0 $#_ == 2 and not $_[2]
582 0 0 0 not $_[0]{-'cache'}{-'url'} =~ m[\w/\w] and $ENV{'SCRIPT_NAME'}
852 0 0 0 $m eq 'm' and $th{$m}
895 0 0 0 not $e and $i < 10
1047 0 0 0 $_[1] and lc($_[0]->useron || '') ne lc $_[1]
0 0 0 $_[1] and lc($_[0]->useron || '') ne lc $_[1] and lc($_[0]->user || '') ne lc $_[1]
1061 0 0 0 defined $_ and $_ ne ''
1103 0 0 0 defined $_[0] && substr($_[0], 0, 1) eq '-'
1110 0 0 0 ref $r eq 'HASH' and ref $ugadd eq 'HASH'
1139 0 0 0 defined $_ and $_ ne ''
1148 0 0 0 defined $_ and $_ ne ''
1193 0 0 0 $s->uguest and defined $$s{-'cgi'}->param('_auth') || defined $$s{-'cgi'}->param('_login')
0 0 0 ($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ and $s->url =~ m[/_*(login|auth|a|ntlm|search|guest)/]i
1203 0 0 0 not $$s{-'cache'}{-'RevertToSelf'} and !defined($$s{-'w32IISdpsn'}) ? ($$s{-'login'} || '') =~ m[/$]i : $$s{-'w32IISdpsn'} > 1
0 0 0 not $url =~ m[/_*(search|guest)/]i and (not $$s{-'cache'}{-'RevertToSelf'} and !defined($$s{-'w32IISdpsn'}) ? ($$s{-'login'} || '') =~ m[/$]i : $$s{-'w32IISdpsn'} > 1)
0 0 0 not $url =~ m[/_*(search|guest)/]i and (not $$s{-'cache'}{-'RevertToSelf'} and !defined($$s{-'w32IISdpsn'}) ? ($$s{-'login'} || '') =~ m[/$]i : $$s{-'w32IISdpsn'} > 1) and not $s->uauth->signget
1207 0 0 0 ($s->qparam('_run') || '') ne 'SEARCH' and not $$s{-'cache'}{-'RevertToSelf'}
0 0 0 ($s->qparam('_run') || '') ne 'SEARCH' and not $$s{-'cache'}{-'RevertToSelf'} and !defined($$s{-'w32IISdpsn'}) || $$s{-'w32IISdpsn'} > 1
1228 0 0 0 defined $_[0]{-'w32IISdpsn'} and not $_[0]{-'w32IISdpsn'}
1236 0 0 0 $o and $o->Call
0 0 0 $o and $o->Call and $l ne (eval { do { Win32::LoginName() } } || '')
1238 0 0 0 $_[1] and $_[0]{-'debug'}
1261 0 0 0 open WTRFH, '|' . join(' ', @_) and defined *WTRFH
1269 0 0 0 not $opt =~ /h/ and $_[0] =~ /cacls/
1295 0 0 0 $o and not $opt =~ /h/
1296 0 0 0 $r and not $opt =~ /i/
1307 0 0 0 @_ == 1 && ref $_[0]
1319 0 0 0 @_ == 1 && ref $_[0]
1336 0 0 0 $$s{-'debug'} && $$s{-'debug'} > 2
1344 0 0 0 $_[0]{-'debug'} and $_[0]{-'debug'} > 3
1417 0 0 0 $rsp ne '' and substr($rsp, length($rsp) - 1, 0) eq '/'

or 2 conditions

line l !l condition
46 0 0 $$s{-'fcgicount'} || 0
47 0 0 $$s{-'fcgimax'} || 0
142 0 0 $ENV{'CONTENT_TYPE'} || ''
151 0 0 $ENV{'SERVER_SOFTWARE'} || ''
349 0 0 $$s{-'debug'} || 0
363 0 0 eval { do { $^O eq 'MSWin32' ? Win32::LoginName() : getlogin } } || ''
374 0 0 $ENV{$_} || ''
375 0 0 eval { do { $^O eq 'MSWin32' ? Win32::LoginName() : getlogin } } || ''
412 0 0 $_[0]{-'cgi'}->http('Accept_language') || ''
581 0 0 $ENV{'GATEWAY_INTERFACE'} || ''
718 0 0 $_[0]{-'tpath'} || ''
726 0 0 $ENV{'DOCUMENT_ROOT'} || $ENV{'PATH_TRANSLATED'} || '.'
784 0 0 $$s{-'cgi'}->user_agent || ''
804 0 0 $_[1] || 0
0 0 $_[2] || 0
809 0 0 $_[1] || 0
0 0 $_[2] || 0
857 0 0 $th{'s'} || 0
0 0 $th{'M'} || 0
0 0 $th{'h'} || 0
0 0 $th{'d'} || 0
0 0 $th{'m'} || 1
0 0 $th{'y'} || 0
865 0 0 $a || 0
901 0 0 $_[1] || ''
936 0 0 $s->udata->paramj('uauth_managed') || []
939 0 0 $s->udata->paramj('uauth_managed') || []
958 0 0 $_[1] || $_[0]->user || ''
1047 0 0 $_[0]->useron || ''
0 0 $_[0]->user || ''
1176 0 0 $ENV{'SERVER_SOFTWARE'} || ''
0 0 $$s{-'login'} || ''
1193 0 0 $ENV{'SERVER_SOFTWARE'} || ''
1203 0 0 $$s{-'login'} || ''
1207 0 0 $s->qparam('_run') || ''
1228 0 0 $ENV{'SERVER_SOFTWARE'} || ''
1235 0 0 eval { do { Win32::LoginName() } } || ''
1236 0 0 eval { do { Win32::LoginName() } } || ''
1237 0 0 Win32::LoginName() || '?'
1350 0 0 $_[0]{-'htpgtop'} || ''
1357 0 0 $_[0]{-'htpgbot'} || ''
1372 0 0 $ENV{'HTTP_USER_AGENT'} || ''
1525 0 0 $_[0][0]{-'htpgtop'} || ''
1539 0 0 $ENV{'HTTP_USER_AGENT'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
147 0 0 0 (!$$s{-'fcgimax'} ? eval 'CGI->new' : eval 'CGI::Fast->new') || CGI::Carp::croak("'CGI->new' failure: $@\n")
151 0 0 0 ($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ or $ENV{'MOD_PERL'} and not $ENV{'PERL_SEND_HEADER'}
225 0 0 0 -d $opt{-'tpath'} || $s->fut->mkdir($opt{-'tpath'})
247 0 0 0 not $t or $t eq 'HASH'
0 0 0 not $t or $t eq 'HASH' or $t eq 'ARRAY'
407 0 0 0 not $_[0]{-'lngname'} or $_[1]
467 0 0 0 $_[1] || $@ || $!
473 0 0 0 $_[1] || $@ || $!
490 0 0 0 $_[1] || $@ || $!
531 0 0 0 eval 'use DBI; DBI->connect(@_)' || $s->die("Cannot connect to database\n")
548 0 0 0 $_[0]{-'dbi'} || $_[0]{-'classes'}{-'dbi'}
564 0 0 0 $_[0]{-'cgi'} || $_[0]->cgi
565 0 0 0 $ENV{'PERLXS'} || ($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/
0 0 0 $#_ > 2 or $#_ == 2 and not $_[2]
581 0 0 0 $ENV{'PERLXS'} or ($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/
582 0 0 0 $_[0]{-'cache'}{-'url'} =~ m[/$] || $ENV{'SCRIPT_NAME'} =~ m[^/]
599 0 0 0 $ENV{'SCRIPT_FILENAME'} || $ENV{'PATH_TRANSLATED'}
606 0 0 0 !defined($_[1]) || $_[1] eq ''
644 0 0 0 ref $_[0] ne 'ARRAY' or defined $_[1]
652 0 0 0 $_[1] || $_[0]{-'cgi'}->param('_run') || $_[0]{-'cgi'}->url_param('') || $_[0]{-'cgi'}->url_param('run')
0 0 0 not $_[0]{-'cache'}{-'qrun'} or $_[1]
667 0 0 0 $ENV{'SCRIPT_FILENAME'} || $ENV{'PATH_TRANSLATED'}
0 0 0 $ENV{'SCRIPT_NAME'} or $ENV{'PATH_INFO'}
676 0 0 0 $_[0]{-'surl'} || ($_[0]{-'surl'} = $_[0]->url =~ m[^([^/]+://[^/]+)] ? $1 : $_[0]->url)
0 0 0 !defined($_[1]) || $_[1] eq ''
686 0 0 0 $ENV{'SCRIPT_FILENAME'} || $ENV{'PATH_TRANSLATED'} || $0
694 0 0 0 $ENV{'SCRIPT_NAME'} || $ENV{'PATH_INFO'} || $0
697 0 0 0 !defined($_[1]) || $_[1] eq ''
712 0 0 0 $TempFile::TMPDIRECTORY || $ENV{'TMP'} || $ENV{'TEMP'} || $_[0]->orarg('-d', $^O eq 'MSWin32' ? ('c:/tmp', 'c:/temp') : ('/tmp', '/temp'))
736 0 0 0 !defined($_[1]) || $_[1] eq ''
749 0 0 0 !defined($_[1]) || $_[1] eq ''
756 0 0 0 !defined($_[1]) || $_[1] eq ''
769 0 0 0 !defined($_[1]) || $_[1] eq ''
776 0 0 0 !defined($_[1]) || $_[1] eq ''
826 0 0 0 @_ == 0 || $_[0] =~ /^\d+$/i
843 0 0 0 @_ < 2 || !$_[1]
850 0 0 0 $m eq 'yyyy' or $m eq '%Y'
911 0 0 0 not $_[0]{-'cache'}{-'user'} or $_[1]
964 0 0 0 not defined $v or $v eq ''
974 0 0 0 not defined $v or $v eq ''
984 0 0 0 not defined $v or $v eq ''
992 0 0 0 not defined $u or $u eq ''
1025 0 0 0 not $_[0]{-'cache'}{-'usdomain'} or $_[1]
1028 0 0 0 $_[1] || (ref $_[0]{-'usdomain'} eq 'CODE' ? &{$_[0]{-'usdomain'};}(@_) : $_[0]->uauth->usdomain(@_[1 .. $#_]))
1036 0 0 0 not $_[0]{-'cache'}{-'userver'} or $_[1]
1039 0 0 0 $_[1] || (ref $_[0]{-'userver'} eq 'CODE' ? &{$_[0]{-'userver'};}(@_) : $_[0]->uauth->userver(@_[1 .. $#_]))
1047 0 0 0 not defined $_[0]{-'cache'}{-'ugroups'} or $_[1] and lc($_[0]->useron || '') ne lc $_[1] and lc($_[0]->user || '') ne lc $_[1]
1052 0 0 0 defined $s->user or $_[1]
1079 0 0 0 not $_[1] or lc $_[0]->useron eq lc $_[1]
0 0 0 not $_[1] or lc $_[0]->useron eq lc $_[1] or lc $_[0]->user eq lc $_[1]
1148 0 0 0 not defined $_ or $_ eq ''
0 0 0 not defined $_ or $_ eq '' or $_ ne $k
1193 0 0 0 defined $$s{-'cgi'}->param('_auth') || defined $$s{-'cgi'}->param('_login')
1207 0 0 0 !defined($$s{-'w32IISdpsn'}) || $$s{-'w32IISdpsn'} > 1
1228 0 0 0 defined $_[0]{-'w32IISdpsn'} and not $_[0]{-'w32IISdpsn'} or $_[0]{-'cache'}{-'RevertToSelf'}
0 0 0 defined $_[0]{-'w32IISdpsn'} and not $_[0]{-'w32IISdpsn'} or $_[0]{-'cache'}{-'RevertToSelf'} or $^O ne 'MSWin32'
0 0 0 defined $_[0]{-'w32IISdpsn'} and not $_[0]{-'w32IISdpsn'} or $_[0]{-'cache'}{-'RevertToSelf'} or $^O ne 'MSWin32' or not +($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/
0 0 0 defined $_[0]{-'w32IISdpsn'} and not $_[0]{-'w32IISdpsn'} or $_[0]{-'cache'}{-'RevertToSelf'} or $^O ne 'MSWin32' or not +($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ or $ENV{'FCGI_SERVER_VERSION'}