Branch Coverage

blib/lib/Net/LDAP/Class.pm
Criterion Covered Total %
branch 43 98 43.8


line true false branch
104 0 472 unless ($meta and $meta->is_initialized)
111 0 472 unless ($self->ldap->isa('Net::LDAP'))
137 1119 157 if (ref $self)
159 0 0 unless ($self->ldap_uri)
163 0 0 unless my $ldap = 'Net::LDAP'->new($self->ldap_uri)
165 0 0 unless my $msg = $ldap->bind
166 0 0 if ($msg->code)
179 649 0 unless $ENV{'PERL_DEBUG'}
197 0 0 unless my $msg = shift()
222 0 0 if defined $val
259 0 86 unless ($ldap)
265 0 86 unless ($base)
277 0 86 if ($msg->code)
293 36 50 unless @results
294 5 45 wantarray ? :
305 0 59 unless ($self->check_unique_attributes_set)
309 0 59 unless my(@action) = $self->action_for_create(@_)
311 0 59 unless $self->read
331 183 0 if (not $opts{'filter'} || $opts{'value'}) { }
333 0 183 unless ($self->check_unique_attributes_set)
342 183 14 if (defined $self->$key)
355 0 183 unless (defined $filter)
358 0 183 unless (defined $value)
364 0 183 if $self->debug
373 183 0 if ($msg->count > 0) { }
374 0 183 if $self->debug
383 21 183 if ($new ne $old) { }
418 0 8 unless ($self->ldap_entry)
421 0 8 unless my(@action) = $self->action_for_update(@_)
442 0 0 unless ($self->ldap_entry)
445 0 0 unless my(@action) = $self->action_for_delete
458 0 0 unless ($self->read(@_))
474 0 0 if ($self->ldap_entry) { }
499 0 105 if ($self->debug)
518 0 67 unless (@actions)
526 0 67 if ($self->debug)
531 0 67 unless $batch->do
561 0 0 if ($self->prev_batch) { }
562 0 0 unless $self->prev_batch->rollback
612 0 250 if (!ref($uk) eq 'ARRAY')
616 250 14 if (defined $self->$key)
641 0 0 if ($attribute eq 'DESTROY')
728 0 1 unless my $coderef = shift()
732 0 1 if (ref $coderef ne 'CODE')
755 0 2 if $ldap_search->code
767 0 7 if $self->debug
773 0 2 unless my($resp) = $ldap_search->control('1.2.840.113556.1.4.319')
775 1 1 unless ($cookie)
783 0 1 if ($cookie)