Condition Coverage

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


and 3 conditions

line !l l&&!r l&&r condition
109 0 0 0 $querystring eq '' and param('querystring')
114 0 0 0 param('rt') ne '' and param('rt') eq 'verify'
118 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
186 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
235 0 0 0 $CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout'
307 0 0 0 $CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout'
366 0 0 0 $CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout'
423 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'}
426 0 0 0 exists $args{'-back'} and $args{'-back'}
470 0 0 0 $CGI::AuthRegister::SessionId =~ /^[\w.:-]+$/ and $CGI::AuthRegister::Ticket =~ /^\w+$/
484 0 0 0 $CGI::AuthRegister::UserId ne '' and $CGI::AuthRegister::User->{'userid'} ne $CGI::AuthRegister::UserId
556 0 0 0 $CGI::AuthRegister::LDAPuse and $CGI::AuthRegister::LDAPaddUsers
602 0 0 0 $cnt < 100 and not mkdir("$sDir/${sessionid}_$cnt", 448)
834 0 0 0 exists $r->{$k} and $v eq $r->{$k}
847 0 0 0 exists $r->{$k} and $v eq $r->{$k}
953 0 0 0 exists $r->{$kdel} and $r->{$kdel} eq $vdel
1054 0 0 0 not -e $lockd and $locked = mkdir($lockd, 448)

or 3 conditions

line l !l&&r !l&&!r condition
164 0 0 0 -f $f or &check_db_files
206 0 0 0 $querystring eq 'forgotpwd' or param('rt') eq 'forgotpwd'
382 0 0 0 $username eq '' or $stoken eq ''
477 0 0 0 not ref $se or $CGI::AuthRegister::Ticket ne $se->{'Ticket'}
592 0 0 0 $email =~ /@/ or $userid =~ /\w/
595 0 0 0 -d $sDir or &check_db_files
634 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 ''
656 0 0 0 -f $pwfile or &check_db_files
867 0 0 0 -f $f or &check_db_files
886 0 0 0 -f $f or &check_db_files
889 0 0 0 $k eq '' or $v eq ''
1071 0 0 0 -f $lockd or -l $lockd