| line |
true |
false |
branch |
|
35
|
2 |
1 |
if (ref $args eq 'HASH') { } |
|
50
|
2 |
1 |
if ref $args eq 'HASH' |
|
51
|
2 |
1 |
if ref $args eq 'HASH' |
|
52
|
2 |
1 |
if ref $args eq 'HASH' |
|
74
|
1 |
6 |
unless ($cryptPass) |
|
76
|
1 |
5 |
if (index($cryptPass, $MD5Magic) == 0) { } |
|
|
1 |
4 |
elsif (index($cryptPass, $SHA1Magic) == 0) { } |
|
83
|
1 |
0 |
if Crypt::PasswdMD5::apache_md5_crypt($pass, $salt) eq $cryptPass |
|
89
|
1 |
0 |
if '{SHA}' . &MIME::Base64::encode_base64(&Digest::SHA::sha1($pass), '') eq $cryptPass |
|
93
|
3 |
1 |
if crypt($pass, $cryptPass) eq $cryptPass |
|
96
|
1 |
0 |
if $$self{'USEPLAIN'} and $pass eq $cryptPass |
|
100
|
0 |
0 |
if caller eq $self |
|
113
|
1 |
4 |
if ($$self{'READONLY'}) |
|
120
|
1 |
3 |
unless (defined $oldPass) |
|
124
|
1 |
3 |
if (defined $oldPass and ref $oldPass eq 'HASH') |
|
125
|
1 |
0 |
if ($$oldPass{'overwrite'}) |
|
126
|
0 |
1 |
unless $newPass |
|
133
|
1 |
2 |
if ($noOld) { } |
|
142
|
0 |
1 |
if ($self->fetchPass($Id)) { } |
|
169
|
1 |
1 |
if ($exists) { } |
|
203
|
1 |
1 |
if (/^$Id\:/) { } |
|
213
|
1 |
0 |
if ($return) { } |
|
251
|
7 |
16 |
if ($tmp[0] eq $Id) |
|
279
|
2 |
2 |
if ($tmp[0] eq $Id) { } |
|
280
|
1 |
1 |
$tmp[2] ? : |
|
293
|
2 |
0 |
if ($return) { } |
|
331
|
1 |
0 |
if ($tmp[0] eq $Id) |
|
355
|
2 |
0 |
if $tmp[0] |
|
360
|
1 |
1 |
wantarray ? : |
|
382
|
1 |
1 |
if ($tmp[0] eq $Id) { } |
|
383
|
0 |
1 |
if @tmp == 2 |
|
395
|
1 |
0 |
if ($return) { } |
|
427
|
0 |
3 |
$^O =~ /^MSWin/i || $$self{'USEMD5'} ? : |
|
429
|
0 |
3 |
if ($salt and $cryptType =~ /MD5/i and $salt =~ /^\Q$Magic\E/) { } |
|
|
0 |
3 |
elsif ($salt and $cryptType =~ /crypt/i) { } |
|
438
|
0 |
0 |
if ($salt =~ /\$2a\$\d+\$(.{23})/) { } |
|
448
|
0 |
3 |
if ($cryptType =~ /MD5/i) { } |
|
460
|
0 |
3 |
if ($cryptType =~ /MD5/i) { } |
|
479
|
12 |
3 |
if $$self{'LOCK'} == 0 |
|
503
|
13 |
6 |
if ($$self{'OPEN'} > 0) |
|
511
|
4 |
2 |
if ($$self{'READONLY'}) { } |
|
512
|
0 |
4 |
unless (open FH, $passwdFile) |
|
519
|
0 |
2 |
unless (open FH, "+<$passwdFile") |
|
528
|
2 |
4 |
unless $$self{'READONLY'} |
|
535
|
13 |
4 |
unless $$self{'READONLY'} |
|
539
|
12 |
5 |
if ($$self{'OPEN'} > 0) |
|
541
|
0 |
5 |
if (not close FH) |