Branch Coverage

blib/lib/DBD/LDAP.pm
Criterion Covered Total %
branch 0 152 0.0


line true false branch
353 0 0 if $DBD::LDAP::drh
393 0 0 unless (open DBFILE, "<$ENV{'LDAP_HOME'}/$dbname.ldb")
395 0 0 unless (open DBFILE, "<$dbname.ldb")
397 0 0 unless (open DBFILE, "<$ENV{'HOME'}/$dbname.ldb")
401 0 0 if $attr->{'PrintError'}
426 0 0 if /^\#/o
428 0 0 if ($ldap_root and not $basedn =~ /\i/o)
430 0 0 unless not $basedn =~ /\S/o or $basedn =~ /\,\s*$/o
433 0 0 if $tablename
440 0 0 if ($dbuser and $ldap_loginrule =~ /\*/o)
461 0 0 unless ($this)
465 0 0 if $attr->{'PrintError'}
472 0 0 if $ldap_hostname =~ s/\;(.*)$//o
475 0 0 unless $ldap_hostname =~ /\:\d+$/o
476 0 0 if ($ldap_hostname =~ /^ldaps/o)
478 0 0 unless (defined $attr->{'ldaps_capath'} and -d $attr->{'ldaps_capath'})
482 0 0 if $attr->{'PrintError'}
489 0 0 unless ($ldap)
493 0 0 if $attr->{'PrintError'}
499 0 0 if ($dbpswd) { }
0 0 elsif ($dbuser) { }
511 0 0 unless ($mesg)
515 0 0 if $attr->{'PrintError'}
519 0 0 if ($mesg->code)
523 0 0 if $attr->{'PrintError'}
555 0 0 if (defined $ENV{'LDAP_HOME'})
580 0 0 unless (@dsources)
582 0 0 if (defined $ENV{'HOME'})
615 0 0 $command eq 'createdb' || $command eq 'dropdb' ? :
662 0 0 if $resptr->{'ldap_attrhref'}{'ldap_inseparator'}
664 0 0 if $resptr->{'ldap_attrhref'}{'ldap_outseparator'}
666 0 0 $resptr->{'ldap_attrhref'}{'ldap_appendbase2ins'} ? :
683 0 0 if $i =~ /^ldap_/o
688 0 0 if defined $attribs->{$i}
693 0 0 unless (defined $tablehash->{$tablename})
716 0 0 if ($dB->FETCH('AutoCommit')) { }
718 0 0 if ($dB->FETCH('Warn'))
733 0 0 if ($res->is_error)
740 0 0 if ($commitqueue->[0] =~ /^dn\=(.+)/o)
745 0 0 if ($res->is_error)
762 0 0 if ($dB->FETCH('AutoCommit')) { }
764 0 0 if ($dB->FETCH('AutoCommit') and $dB->FETCH('Warn'))
781 0 0 if ($attr eq 'AutoCommit')
786 0 0 if $val == 1 and not $dbh->FETCH('AutoCommit')
790 0 0 if ($attr =~ /^ldap/o)
806 0 0 if ($attr eq 'AutoCommit')
807 0 0 if ($attr =~ /^ldap_/o)
825 0 0 if $ldap
833 0 0 unless my($csr) = $dB->prepare($sqlstr, $attr)
843 0 0 unless my $sth = $dbh->prepare('select tables')
845 0 0 unless $sth->execute
852 0 0 unless my $sth = $dbh->prepare("PRIMARY_KEY_INFO $tablename")
854 0 0 unless $sth->execute
895 0 0 unless $#tables >= 0
908 0 0 if ($drh->FETCH('AutoCommit') != 1)
942 0 0 ref $attr ? :
944 0 0 if ($type)
962 0 0 @bind_values ? :
972 0 0 if ($params and scalar @$params != $numParam)
1009 0 0 if ($#resv < 0) { }
0 0 elsif ($resv[0]) { }
1022 0 0 if ($dB->FETCH('AutoCommit') == 1 and not $sth->FETCH('Statement') =~ /^\s*(?:select|primary_key_info)/io)
1033 0 0 if ($ldapref->{'lasterror'})
1057 0 0 unless ($ldapref->{'TYPE'})
1088 0 0 if $retval
1089 0 0 if defined $retval
1099 0 0 unless $row
1101 0 0 if ($longreadlen > 0) { }
1103 0 0 if ($sth->FETCH('ChopBlanks'))
1107 0 0 if (do { $$sth{'TYPE'} }->[$i] < 0)
1110 0 0 unless $row->[$i] eq $t or $sth->{'Database'}->FETCH('LongTruncOk')
1119 0 0 if ($sth->FETCH('ChopBlanks'))
1141 0 0 if ($attr eq 'AutoCommit')
1150 0 0 if ($attr =~ /^ldap/o)
1166 0 0 if ($attr eq 'AutoCommit')
1167 0 0 if ($attr =~ /^ldap_/o)