Branch Coverage

blib/lib/ZConf/backends/ldap.pm
Criterion Covered Total %
branch 0 358 0.0


line true false branch
64 0 0 if (defined $_[1])
90 0 0 unless (defined $args{'self'})
96 0 0 if (ref $args{'self'} ne 'ZConf')
103 0 0 unless (defined $args{'zconf'})
109 0 0 if (ref $args{'zconf'} ne 'HASH')
119 0 0 if (defined $$self{'zconf'}{'defaultChooser'}) { }
122 0 0 if ($success) { }
125 0 0 if ($$self{'self'}->setNameLegit($choosen)) { }
134 0 0 if (defined $$self{'zconf'}{'default'}) { }
142 0 0 if (defined $$self{'zconf'}{'LDAPprofileChooser'}) { }
146 0 0 if (not $success) { }
153 0 0 if (defined $$self{'zconf'}{'LDAPprofile'}) { }
165 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/host'}) { }
169 0 0 if (defined $$autoserver{'server'}) { }
177 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/capath'}) { }
181 0 0 if (defined $$autoserver{'CApath'}) { }
189 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/cafile'}) { }
193 0 0 if (defined $$autoserver{'CAfile'}) { }
201 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/checkcrl'}) { }
205 0 0 if (defined $$autoserver{'checkCRL'}) { }
213 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/clientcert'}) { }
217 0 0 if (defined $$autoserver{'clientCert'}) { }
225 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/clientkey'}) { }
229 0 0 if (defined $$autoserver{'clientKey'}) { }
237 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/starttls'}) { }
241 0 0 if (defined $$autoserver{'startTLS'}) { }
249 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/TLSverify'}) { }
257 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/SSLversion'}) { }
265 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/SSLciphers'}) { }
273 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/password'}) { }
277 0 0 if (defined $$autoserver{'pass'}) { }
285 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/passwordfile'})
287 0 0 if (open PASSWORDFILE, $$self{'args'}{'ldap/passwordfile'}) { }
297 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/homeDN'}) { }
300 0 0 if (defined $$autoDNs{'home'}) { }
315 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/base'}) { }
322 0 0 if (defined $$self{'zconf'}{'ldap/' . $$self{'args'}{'LDAPprofile'} . '/bind'}) { }
325 0 0 if (defined $$autoserver{'bind'}) { }
340 0 0 if ($self->error)
350 0 0 unless (defined $hashedmesg{'ou=.config,' . $$self{'args'}{'ldap/homeDN'}})
355 0 0 if ($ldap->error)
366 0 0 unless (defined $hashedmesg{$$self{'args'}{'ldap/base'}})
371 0 0 if ($ldap->error)
405 0 0 if ($config eq '')
410 0 0 if (defined $error)
425 0 0 if (defined $dn) { }
464 0 0 if (defined $$self{'error'})
473 0 0 unless (defined $hashedmesg{$dn})
507 0 0 if ($self->error)
515 0 0 if (defined $self->error)
521 0 0 if (not defined $hashedmesg{$dn}) { }
526 0 0 unless ($returned)
563 0 0 if (defined $subs[0])
573 0 0 if (defined $$self{'error'})
587 0 0 unless (defined $entry)
599 0 0 if ($results->is_error)
634 0 0 unless (defined $config)
646 0 0 if (defined $$self{'error'})
654 0 0 if ($self->error)
659 0 0 if (not defined $entry->dn) { }
665 0 0 if ($entry->dn ne $dn)
676 0 0 if (defined $attributes[0])
681 0 0 if ($attributes[$attributesInt] eq $set)
692 0 0 if (defined $attributes[0]) { }
697 0 0 if ($attributes[$attributesInt] =~ /^$set\n/)
704 0 0 unless ($setFound)
746 0 0 if ($self->error)
752 0 0 unless (defined $hashedmesg{$dn})
794 0 0 unless (defined $config)
802 0 0 unless ($self->configExists($config))
812 0 0 if ($self->error)
819 0 0 unless (defined $revs[0])
849 0 0 if ($config eq '') { }
859 0 0 if (defined $$self{'error'})
874 0 0 if ($keys[$keysInt] =~ /^cn=/)
914 0 0 unless (defined $config)
923 0 0 if ($$self{'error'})
927 0 0 unless ($exists)
936 0 0 if ($self->error)
943 0 0 if (defined $locks[0])
975 0 0 unless ($ldap)
984 0 0 if ($$self{'args'}{'ldap/starttls'})
996 0 0 if (!$$mesg{'errorMessage'} eq '')
1009 0 0 if (!$$mesg{'errorMessage'} eq '')
1043 0 0 unless (defined $ldap)
1047 0 0 if (defined $$self{'error'})
1084 0 0 unless (defined $ldap)
1088 0 0 if ($self->error)
1130 0 0 unless (defined $ldap)
1134 0 0 if (defined $$self{'error'})
1185 0 0 unless (defined $args{'config'})
1193 0 0 unless (defined $args{'set'})
1201 0 0 unless (defined $args{'override'})
1211 0 0 if ($self->error)
1216 0 0 if (not defined $entry->dn) { }
1222 0 0 if ($entry->dn ne $dn)
1232 0 0 if (defined $attributes[0]) { }
1237 0 0 if ($attributes[$attributesInt] =~ /^$args{'set'}\n/)
1252 0 0 unless (defined $data)
1265 0 0 if ($$zml{'error'})
1281 0 0 if (not defined $revs[0]) { }
1288 0 0 if ($self->error)
1300 0 0 if ($locked)
1305 0 0 if ($args{'override'})
1307 0 0 unless ($locked)
1334 0 0 unless (defined $config)
1343 0 0 if ($error)
1351 0 0 unless ($self->configExists($config))
1364 0 0 if ($self->error)
1369 0 0 unless (defined $hashedmesg{$dn})
1376 0 0 if (defined $hashedmesg{$dn}{'ldap'}{'zconfChooser'}[0]) { }
1409 0 0 unless (defined $set)
1411 0 0 if ($self->error)
1421 0 0 if ($self->error)
1431 0 0 if ($sets[$setsInt] eq $set)
1478 0 0 unless (defined $config)
1487 0 0 if ($self->error)
1491 0 0 unless ($exists)
1500 0 0 if ($self->error)
1506 0 0 if ($lock)
1511 0 0 unless ($lock)
1517 0 0 if ($$self{'error'})
1545 0 0 unless (defined $config)
1553 0 0 unless (defined $chooserstring)
1562 0 0 if ($error)
1570 0 0 unless ($self->configExists($config))
1579 0 0 if ($self->error)
1583 0 0 if ($locked)
1595 0 0 if ($self->error)
1603 0 0 if ($self->error)
1607 0 0 if (not defined $entry->dn) { }
1613 0 0 if ($entry->dn ne $dn)
1676 0 0 unless (defined $args{'config'})
1685 0 0 if ($error)
1693 0 0 if (not defined $args{'set'}) { }
1696 0 0 if ($$self{'self'}->setNameLegit($args{'set'})) { }
1707 0 0 unless ($self->configExists($args{'config'}))
1716 0 0 if ($self->error)
1720 0 0 if ($locked)
1728 0 0 unless (defined $args{'set'})
1733 0 0 unless (defined $args{'autoCreateConfig'})
1738 0 0 unless (defined $args{'revision'})
1749 0 0 if ($hashkeys[$hashkeysInt] =~ /^\#/) { }
1751 0 0 if ($hashkeys[$hashkeysInt] =~ /^\#\!/)
1758 0 0 if ($zml->error)
1767 0 0 if ($hashkeys[$hashkeysInt] =~ /^\#\#/)
1774 0 0 if ($zml->error)
1786 0 0 if ($zml->error)
1797 0 0 unless (defined $args{'revision'})
1804 0 0 if ($self->error)
1856 0 0 unless (defined $args{'config'})
1863 0 0 unless ($$self{'self'}->isConfigLoaded($args{'config'}))
1872 0 0 if ($self->error)
1876 0 0 if ($locked)
1884 0 0 if (not defined $args{'set'}) { }
1887 0 0 if ($$self{'self'}->setNameLegit($args{'set'})) { }
1898 0 0 unless (defined $args{'revision'})
1904 0 0 if ($$self{'self'}->error)
1914 0 0 if ($self->error)
1969 0 0 unless (defined $args{'config'})
1977 0 0 unless (defined $args{'zml'})
1983 0 0 if (ref $args{'zml'} ne 'ZML')
1992 0 0 if ($self->error)
1996 0 0 if ($locked)
2004 0 0 if (not defined $args{'set'}) { }
2007 0 0 if ($$self{'self'}->setNameLegit($args{'set'})) { }
2029 0 0 if ($self->error)
2037 0 0 if ($self->error)
2042 0 0 if (not defined $entry->dn) { }
2048 0 0 if ($entry->dn ne $dn)
2059 0 0 if (defined $attributes[0]) { }
2064 0 0 if ($attributes[$attributesInt] eq $args{'set'})
2070 0 0 unless ($setFound)
2080 0 0 if (defined $attributes[0]) { }
2085 0 0 if ($attributes[$attributesInt] =~ /^$args{'set'}\n/)
2089 0 0 if (not $setFound) { }
2093 0 0 if ($setstring ne $attributes[$attributesInt])
2102 0 0 unless ($setFound)
2110 0 0 unless (defined $args{'revision'})