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"
318 0 0 0 $CGI::AuthRegister::SessionId ne "" and param("keywords") eq "logout"
324 0 0 0 param("keywords") eq "signup" and $CGI::AuthRegister::AllowSignup
334 0 0 0 $Request_type eq "Register" and $CGI::AuthRegister::AllowSignup
390 0 0 0 $CGI::AuthRegister::SessionId ne "" and param("keywords") eq "logout"
461 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'}
464 0 0 0 exists $args{'-back'} and $args{'-back'}
508 0 0 0 $CGI::AuthRegister::SessionId =~ /^[\w.:-]+$/ and $CGI::AuthRegister::Ticket =~ /^\w+$/
522 0 0 0 $CGI::AuthRegister::UserId ne "" and $CGI::AuthRegister::User->{'userid'} ne $CGI::AuthRegister::UserId
589 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
687 0 0 0 $CGI::AuthRegister::LDAPuse and $CGI::AuthRegister::LDAPaddUsers
733 0 0 0 $cnt < 100 and not mkdir("$sDir/${sessionid}_$cnt", 448)
752 0 0 0 defined $u->{'status'} and $u->{'status'} =~ /^\s*disabled\b/
967 0 0 0 exists $r->{$k} and $v eq $r->{$k}
980 0 0 0 exists $r->{$k} and $v eq $r->{$k}
1090 0 0 0 exists $db->[$dbi]{$k} and $db->[$dbi]{$k} eq $v
1157 0 0 0 exists $r->{$kdel} and $r->{$kdel} eq $vdel
1274 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"
418 0 0 0 $username eq "" or $stoken eq ""
515 0 0 0 not ref $se or $CGI::AuthRegister::Ticket ne $se->{'Ticket'}
547 0 0 0 -f $dbf or &check_db_files
582 0 0 0 -f $dbf or &check_db_files
723 0 0 0 $email =~ /@/ or $userid =~ /\w/
726 0 0 0 -d $sDir or &check_db_files
767 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 ""
789 0 0 0 -f $pwfile or &check_db_files
1000 0 0 0 -f $f or &check_db_files
1019 0 0 0 -f $f or &check_db_files
1022 0 0 0 $k eq "" or $v eq ""
1291 0 0 0 -f $lockd or -l $lockd