| line |
true |
false |
branch |
|
120
|
0 |
27 |
unless my $uid = delete $opts{'uidNumber'} || $self->uidNumber |
|
122
|
0 |
27 |
unless my $username = delete $opts{'uid'} || $self->uid |
|
153
|
0 |
87 |
if (not exists $attr{$name}) { } |
|
169
|
21 |
6 |
if (exists $self->{'groups'}) |
|
172
|
0 |
21 |
unless ($group->read) |
|
176
|
0 |
21 |
if ($self->debug) |
|
180
|
19 |
2 |
if ($group->memberUid) { } |
|
220
|
0 |
30 |
unless ($self->gidNumber or $self->group) |
|
233
|
0 |
30 |
unless (defined $group) |
|
239
|
30 |
0 |
if (ref $group and $group->isa('Net::LDAP::Class::Group::POSIX')) |
|
246
|
0 |
0 |
unless ($self->gecos or $self->sn or $self->givenName) |
|
253
|
27 |
3 |
unless defined $givenName |
|
255
|
27 |
3 |
unless defined $sn |
|
257
|
0 |
30 |
unless defined $gecos |
|
260
|
27 |
3 |
unless defined $email |
|
282
|
0 |
3 |
unless ($username and $uid) |
|
312
|
0 |
1 |
if (defined $old and not defined $new) { } |
|
|
0 |
1 |
elsif (not defined $old and defined $new) { } |
|
|
0 |
1 |
elsif (not defined $old || defined $new) { } |
|
|
1 |
0 |
elsif ($old ne $new) { } |
|
328
|
1 |
2 |
if (%replace) |
|
347
|
2 |
1 |
if (not exists $replace{'gidNumber'} and $self->group->gidNumber != $self->gidNumber) |
|
389
|
2 |
1 |
if (exists $self->{'groups'}) |
|
401
|
1 |
1 |
unless (exists $existing{$gid}) |
|
421
|
2 |
1 |
unless (exists $new{$gid}) |
|
439
|
0 |
2 |
if $self->debug |
|
440
|
0 |
2 |
if $self->debug |
|
446
|
0 |
3 |
unless (@actions) |
|
451
|
0 |
3 |
if $self->debug |
|
469
|
0 |
0 |
unless ($username) |
|
498
|
0 |
12 |
unless my $class = $self->group_class |
|
500
|
0 |
12 |
unless ($self->gidNumber) |
|
522
|
0 |
4 |
unless my $class = $self->group_class |
|
528
|
0 |
4 |
wantarray ? : |
|
543
|
0 |
1 |
unless my $group_class = $self->group_class |
|
580
|
0 |
1 |
if (not defined $self->ldap_entry and grep {$_ eq $attribute;} @{$self->attributes;}) |
|
584
|
0 |
0 |
if (scalar @_) |
|
589
|
0 |
0 |
exists $self->{'_not_yet_set'}{$attribute} ? : |
|
594
|
0 |
1 |
if (@_) |
|
602
|
0 |
0 |
unless (exists $self->{'_was_set'}{$attribute}{'old'}) |
|
604
|
0 |
0 |
@old > 1 ? : |
|
637
|
0 |
27 |
unless my $string = shift() |
|
638
|
0 |
27 |
if $string =~ /^\{SSHA\}/ |