| line |
true |
false |
branch |
|
26
|
1 |
14 |
if @_ |
|
27
|
1 |
14 |
if @_ |
|
65
|
0 |
0 |
ref $_[0] ? : |
|
|
0 |
0 |
unless my $result = ref $_[0] ? shift() : $Net::LDAP::Entry::LDAPEntry->decode(shift()) |
|
71
|
0 |
0 |
if ($arg{'raw'}) |
|
73
|
0 |
0 |
unless 'dn' =~ /$arg{'raw'}/ |
|
77
|
0 |
0 |
unless $elem->{'type'} =~ /$arg{'raw'}/ |
|
93
|
15 |
28 |
@_ ? : |
|
98
|
0 |
0 |
if $^W |
|
104
|
0 |
0 |
if $^W |
|
122
|
1 |
371 |
if ($opt{'alloptions'}) |
|
124
|
2 |
13 |
$_->{'type'} =~ /^\Q$type\E((?:;.*)?)$/i ? : |
|
126
|
1 |
0 |
%ret ? : |
|
130
|
122 |
249 |
unless my $attr = $attrs->{$type} |
|
135
|
99 |
0 |
wantarray ? : |
|
|
150 |
99 |
$opt{'asref'} ? : |
|
143
|
9 |
7 |
unless @_ |
|
153
|
4 |
71 |
$self->{'changetype'} eq 'modify' ? : |
|
160
|
97 |
0 |
unless exists $attrs->{$lc_type} |
|
162
|
88 |
9 |
ref $val ? : |
|
164
|
3 |
2 |
ref $val ? : |
|
|
5 |
92 |
if $cmd |
|
169
|
4 |
71 |
if $cmd |
|
177
|
1 |
0 |
$self->{'changetype'} eq 'modify' ? : |
|
183
|
1 |
0 |
if (defined $val and !ref($val) || @$val) { } |
|
186
|
0 |
1 |
unless exists $attrs->{$lc_type} |
|
188
|
1 |
0 |
ref $val ? : |
|
190
|
1 |
0 |
ref $val ? : |
|
|
1 |
0 |
if $cmd |
|
200
|
0 |
0 |
if $cmd |
|
206
|
1 |
0 |
if $cmd |
|
215
|
0 |
2 |
unless (@_) |
|
220
|
2 |
0 |
$self->{'changetype'} eq 'modify' ? : |
|
226
|
1 |
1 |
if (defined $val and !ref($val) || @$val) { } |
|
228
|
1 |
0 |
ref $val ? : |
|
230
|
0 |
1 |
unless (@{$$attrs{$lc_type};} = grep({not exists $values{$_};} @{$$attrs{$lc_type};})) |
|
238
|
1 |
0 |
ref $val ? : |
|
|
1 |
0 |
if $cmd |
|
247
|
1 |
0 |
if $cmd |
|
251
|
2 |
0 |
if $cmd |
|
263
|
0 |
0 |
unless $_[0]->code |
|
264
|
0 |
0 |
if $user_cb |
|
266
|
0 |
0 |
if (eval {
do {
$target->isa('Net::LDAP')
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
$target->isa('Net::LDAP::LDIF')
}
}) { } |
|
267
|
0 |
0 |
if ($self->{'changetype'} eq 'add') { } |
|
|
0 |
0 |
elsif ($self->{'changetype'} eq 'delete') { } |
|
|
0 |
0 |
elsif ($self->{'changetype'} =~ /modr?dn/o) { } |
|
|
0 |
0 |
elsif (@{$self->{'changes'};}) { } |
|
277
|
0 |
0 |
if $newsuperior |
|
293
|
0 |
0 |
if $target->error |
|
310
|
1 |
1 |
$self->changes ? : |
|
|
2 |
2 |
exists $opt{'change'} ? : |
|
321
|
0 |
0 |
@_ ? : |
|
325
|
0 |
0 |
if $asn->{'objectName'} |
|
330
|
0 |
0 |
if length $_ > $l |
|
340
|
0 |
0 |
if $i++ |
|
351
|
1 |
23 |
if ($opt{'nooptions'}) { } |
|
355
|
1 |
14 |
$done{lc $1}++ ? : |
|
369
|
11 |
0 |
$ref ? : |