Branch Coverage

blib/lib/CGI/Builder/Auth/RealmManager.pm
Criterion Covered Total %
branch 76 178 42.7


line true false branch
18 0 2 unless -r $config
20 0 2 unless $realms
22 0 2 unless $r
29 0 3 unless $realm and ref $realm
37 0 3 unless $self->open_passwd
38 0 3 unless $self->open_group
51 2 2 $$self{'writable'} ? :
54 0 4 if ($realm->crypt =~ /MD5/)
61 4 0 if ($userType =~ /text|file/i)
62 0 0 if ($userType =~ /^(NDBM|GDBM|DB|DBM|SDBM|ODBM)$/)
64 0 0 if $params{'DBMF'} eq 'DBM'
66 0 0 if ($userType =~ /sql/i)
69 0 0 $$p{'host'} eq 'localhost' ? :
89 0 4 unless $return
100 0 4 unless $realm->groupdb
105 2 2 $$self{'writable'} ? :
111 4 0 if ($groupType =~ /text|file/i)
112 0 0 if ($groupType =~ /^(NDBM|GDBM|DB|DBM|SDBM|ODBM)$/)
115 0 0 if $params{'DBMF'} eq 'DBM'
117 0 0 if ($groupType =~ /sql/i)
120 0 0 $$p{'host'} eq 'localhost' ? :
140 0 4 unless $return
154 0 1 unless $user
155 0 1 unless $group
156 0 1 unless $$self{'groupDB'}
167 5 1 if $$self{'writable'}
169 1 0 if ($$self{'userDB'})
172 0 1 unless ($self->open_passwd)
177 1 0 if ($$self{'groupDB'})
180 0 1 unless ($self->open_group)
191 0 3 unless $user
192 0 3 unless $passwd or $otherfields
193 0 3 unless $$self{'userDB'}
196 0 3 unless $self->open_writable
199 0 3 if $passwd and $$self{'digest'}
203 3 0 if (defined $otherfields)
204 0 3 ref $otherfields eq 'ARRAY' ? :
207 0 3 if ($$self{'userDB'}->exists($user)) { }
212 0 0 unless ($passwd)
217 0 0 unless @other
219 0 0 if $crypt
220 0 0 unless $result
225 0 3 unless $result
237 0 0 unless $user
238 0 0 unless $fields
250 0 2 unless $user
251 0 2 unless $passwd
252 0 2 unless $$self{'userDB'}->exists($user)
253 0 2 if $$self{'digest'}
255 2 0 if ($$self{'userDB'}{'ENCRYPT'} eq 'crypt') { }
268 0 1 unless $user
269 0 1 if ($passwd)
270 0 1 unless $$self{'userDB'}->exists($user)
272 0 1 if $$self{'digest'}
281 0 0 unless $user
282 0 0 unless $self->open_writable
284 0 0 if $$self{'userDB'}
285 0 0 unless $$self{'groupDB'}
293 0 0 unless $result
303 0 5 unless $user
304 1 4 if ($group)
305 0 4 unless my $db = $$self{'groupDB'}
308 0 4 if (ref($db) =~ /DBM::apache/)
310 0 0 $$self{'groupDB'}{'DB'} eq $$self{'userDB'}{'DB'} ? :
319 3 6 if $user{$user}
326 0 3 unless $$self{'groupDB'}
333 0 10 unless $group
334 0 10 unless $$self{'groupDB'}
341 0 3 unless $user
345 0 3 unless $self->open_writable
347 0 3 unless $db = $$self{'groupDB'}
348 3 0 ref $groups ? :
351 0 3 if (ref($db) =~ /DBM::apache/)
380 0 0 unless $group
381 0 0 unless $$self{'groupDB'}
382 0 0 unless $self->open_writable
394 0 9 unless $grp
395 0 9 unless $self->members('-group', $grp)
407 0 1 unless $fields = $realm->fields
425 0 1 unless $user
429 0 1 if (defined $fields) { }
443 1 0 if ($$self{'userDB'})
444 1 0 if ($$self{'groupDB'})
456 2 43 unless @param
458 11 32 unless defined $param[0] and substr($param[0], 0, 1) eq '-'
467 0 32 if @param and $#param % 2 == 0
476 45 18 if (ref $key eq 'ARRAY') { }
478 33 66 if defined $value
488 2 30 if %param