Condition Coverage

blib/lib/CGI/AuthRegister.pm
Criterion Covered Total %
condition 0 123 0.0


and 3 conditions

line !l l&&!r l&&r condition
110 0 0 0 $querystring eq '' and param('querystring')
115 0 0 0 param('rt') ne '' and param('rt') eq 'verify'
119 0 0 0 $r ne '' and $r->{'stoken'} eq $stoken
0 0 0 $r ne '' and $r->{'stoken'} eq $stoken and $r->{'userid'} eq $username
187 0 0 0 $redirect_uri ne '' and not $redirect_uri =~ m[^https://(\w|[-.~/])+]i
0 0 0 $redirect_uri ne '' and not $redirect_uri =~ m[^https://(\w|[-.~/])+]i and not $redirect_uri =~ m[^http://(\w|[-.~/:])+]i
236 0 0 0 $CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout'
317 0 0 0 $CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout'
323 0 0 0 param('keywords') eq 'signup' and $CGI::AuthRegister::AllowSignup
333 0 0 0 $Request_type eq 'Register' and $CGI::AuthRegister::AllowSignup
389 0 0 0 $CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout'
448 0 0 0 exists $args{'-redirect'} and $args{'-redirect'} ne ''
0 0 0 exists $args{'-redirect'} and $args{'-redirect'} ne '' and $args{'-redirect'} ne $ENV{'SCRIPT_NAME'}
451 0 0 0 exists $args{'-back'} and $args{'-back'}
495 0 0 0 $CGI::AuthRegister::SessionId =~ /^[\w.:-]+$/ and $CGI::AuthRegister::Ticket =~ /^\w+$/
509 0 0 0 $CGI::AuthRegister::UserId ne '' and $CGI::AuthRegister::User->{'userid'} ne $CGI::AuthRegister::UserId
576 0 0 0 defined $u->{'status'} and $u->{'status'} =~ /^disabled, waiting for confirmation code (\S+)/
0 0 0 defined $u->{'status'} and $u->{'status'} =~ /^disabled, waiting for confirmation code (\S+)/ and $1 eq $confirmation_code
674 0 0 0 $CGI::AuthRegister::LDAPuse and $CGI::AuthRegister::LDAPaddUsers
720 0 0 0 $cnt < 100 and not mkdir("$sDir/${sessionid}_$cnt", 448)
739 0 0 0 defined $u->{'status'} and $u->{'status'} =~ /^\s*disabled\b/
954 0 0 0 exists $r->{$k} and $v eq $r->{$k}
967 0 0 0 exists $r->{$k} and $v eq $r->{$k}
1077 0 0 0 exists $db->[$dbi]{$k} and $db->[$dbi]{$k} eq $v
1144 0 0 0 exists $r->{$kdel} and $r->{$kdel} eq $vdel
1261 0 0 0 not -e $lockd and $locked = mkdir($lockd, 448)

or 3 conditions

line l !l&&r !l&&!r condition
165 0 0 0 -f $f or &check_db_files
207 0 0 0 $querystring eq 'forgotpwd' or param('rt') eq 'forgotpwd'
405 0 0 0 $username eq '' or $stoken eq ''
502 0 0 0 not ref $se or $CGI::AuthRegister::Ticket ne $se->{'Ticket'}
534 0 0 0 -f $dbf or &check_db_files
569 0 0 0 -f $dbf or &check_db_files
710 0 0 0 $email =~ /@/ or $userid =~ /\w/
713 0 0 0 -d $sDir or &check_db_files
754 0 0 0 $username eq '' or $CGI::AuthRegister::LDAPserver eq ''
0 0 0 $username eq '' or $CGI::AuthRegister::LDAPserver eq '' or $CGI::AuthRegister::LDAPdn eq ''
776 0 0 0 -f $pwfile or &check_db_files
987 0 0 0 -f $f or &check_db_files
1006 0 0 0 -f $f or &check_db_files
1009 0 0 0 $k eq '' or $v eq ''
1278 0 0 0 -f $lockd or -l $lockd