| line |
true |
false |
branch |
|
61
|
0 |
200 |
if (@_) { } |
|
73
|
0 |
218 |
if (@_) { } |
|
91
|
1 |
0 |
if (@_) { } |
|
96
|
0 |
1 |
if ($_[0] and blessed($_[0]) and $_[0]->isa('Net::LDAP::Entry')) { } |
|
100
|
0 |
0 |
unless ($new_entry->isa('Net::LDAP::RootDSE')) |
|
107
|
1 |
0 |
unless ($new_entry->get_value('objectClass')) |
|
124
|
18 |
2 |
if (@_) |
|
129
|
0 |
20 |
wantarray ? : |
|
134
|
0 |
6 |
unless my $dn = shift() |
|
136
|
2 |
4 |
if (@_) { } |
|
142
|
2 |
2 |
unless my $node = $self->root->get_node($dn) |
|
152
|
29 |
46 |
if (@$attrs) { } |
|
183
|
4 |
26 |
if ($$self{'password_mocked'} and exists $$arg{'password'}) |
|
186
|
1 |
3 |
unless (defined $dn) |
|
190
|
0 |
3 |
unless $dn = ldap_explode_dn($dn, 'casefold', 'lower') |
|
193
|
1 |
2 |
unless my $node = $self->root->get_node($dn) |
|
196
|
1 |
1 |
unless (defined $node->password and defined $$arg{'password'} and $node->password eq $$arg{'password'}) |
|
202
|
9 |
18 |
if (my $code = $$self{'mock_bind_code'}) |
|
205
|
3 |
6 |
if (ref $code eq 'CODE') |
|
211
|
4 |
5 |
if (blessed $code) |
|
216
|
8 |
1 |
if ($code != '0') |
|
221
|
1 |
18 |
if (my $callback = $$arg{'callback'}) |
|
233
|
1 |
1 |
if (my $callback = $$arg{'callback'}) |
|
245
|
1 |
1 |
if (my $callback = $$arg{'callback'}) |
|
263
|
1 |
51 |
unless ($base) |
|
269
|
39 |
12 |
if (defined $filter and not ref $filter and $filter ne '') { } |
|
272
|
1 |
38 |
unless ($f->parse($filter)) |
|
281
|
44 |
6 |
defined $$arg{'scope'} ? : |
|
284
|
2 |
48 |
unless (defined $scope) |
|
292
|
48 |
0 |
$base ? : |
|
294
|
3 |
45 |
unless ($base_node) |
|
298
|
1 |
44 |
if $callback |
|
305
|
75 |
13 |
if ($entry and !$filter || $filter->match($entry, $schema)) |
|
308
|
2 |
73 |
if $callback |
|
320
|
0 |
8 |
ref $$arg{'dn'} ? : |
|
322
|
1 |
7 |
unless ($dn) |
|
328
|
2 |
5 |
unless ($dn_list) |
|
332
|
0 |
0 |
exists $$arg{'attrs'} ? : |
|
|
5 |
0 |
exists $$arg{'attr'} ? : |
|
338
|
0 |
0 |
exists $$arg{'attrs'} ? : |
|
|
5 |
0 |
exists $$arg{'value'} ? : |
|
346
|
0 |
5 |
unless ($node and $node->entry) |
|
359
|
3 |
2 |
$filter->match($entry, $self->schema) ? : |
|
362
|
1 |
4 |
if (my $callback = $$arg{'callback'}) |
|
374
|
0 |
40 |
ref $$arg{'dn'} ? : |
|
376
|
1 |
39 |
unless ($dn) |
|
382
|
2 |
37 |
unless ($dn_list) |
|
388
|
2 |
35 |
if ($node->entry) |
|
394
|
0 |
35 |
if (ref $$arg{'dn'}) { } |
|
397
|
24 |
11 |
unless $$arg{'attrs'} or $$arg{'attr'} |
|
403
|
35 |
0 |
if (my $rdn = $$dn_list[0]) |
|
411
|
1 |
34 |
if (my $callback = $$arg{'callback'}) |
|
425
|
0 |
19 |
ref $$arg{'dn'} ? : |
|
427
|
1 |
18 |
unless ($dn) |
|
433
|
2 |
16 |
unless ($dn_list) |
|
439
|
2 |
14 |
unless ($node and $node->entry) |
|
445
|
2 |
12 |
if (exists $$arg{'changes'}) { } |
|
450
|
1 |
3 |
unless (defined $opcode{$op}) |
|
458
|
37 |
11 |
unless my $chg = $$arg{$op} |
|
462
|
2 |
9 |
if ($opcode == 3) { } |
|
|
5 |
4 |
elsif ($ref_chg eq 'HASH') { } |
|
|
4 |
0 |
elsif ($ref_chg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not $ref_chg) { } |
|
464
|
1 |
1 |
if ($ref_chg eq 'HASH') { } |
|
|
1 |
0 |
elsif ($ref_chg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not $ref_chg) { } |
|
475
|
0 |
2 |
unless defined $incr |
|
489
|
1 |
3 |
if ($opcode == 1) { } |
|
501
|
2 |
11 |
if (my $callback = $$arg{'callback'}) |
|
513
|
0 |
8 |
ref $$arg{'dn'} ? : |
|
515
|
1 |
7 |
unless ($dn) |
|
521
|
2 |
5 |
unless ($dn_list) |
|
527
|
1 |
4 |
unless ($node and $node->entry) |
|
533
|
1 |
3 |
if (my $callback = $$arg{'callback'}) |
|
545
|
0 |
12 |
ref $$arg{'dn'} ? : |
|
547
|
1 |
11 |
unless ($dn) |
|
553
|
2 |
9 |
unless ($dn_list) |
|
560
|
1 |
8 |
unless ($old_node and $old_node->entry) |
|
568
|
7 |
1 |
if (defined(my $new_rdn_value = $$arg{'newrdn'})) { } |
|
571
|
1 |
6 |
unless ($new_rdn_list) |
|
582
|
4 |
3 |
if (defined(my $new_superior = $$arg{'newsuperior'})) { } |
|
585
|
1 |
3 |
unless ($dn_list) |
|
599
|
2 |
4 |
if ($new_node->entry) |
|
609
|
3 |
1 |
if ($rdn_changed) |
|
610
|
2 |
1 |
if ($$arg{'deleteoldrdn'}) |
|
620
|
0 |
4 |
if (my $callback = $$arg{'callback'}) |