Branch Coverage

blib/lib/Net/FTPServer/Full/Server.pm
Criterion Covered Total %
branch 0 68 0.0


line true false branch
78 0 0 if $user_is_anon
80 0 0 if ($self->config('password file')) { }
0 0 elsif (not $self->config('pam authentication')) { }
82 0 0 if $self->_password_file($user, $pass) < 0
87 0 0 unless my $hashed_pass = (getpwnam $user)[1]
90 0 0 if crypt($pass, $hashed_pass) ne $hashed_pass
94 0 0 if $self->_pam_check_password($user, $pass) < 0
110 0 0 unless open PW_FILE, "<$pw_file"
117 0 0 if /^\s*\#/ or /^\s*$/
127 0 0 if ($user eq $pw_username and $pw_crypted_pw eq crypt($pass, $pw_crypted_pw))
135 0 0 if defined $root_directory
154 0 0 unless (exists $INC{'Authen/PAM.pm'})
180 0 0 if ($msg_type == 'PAM_PROMPT_ECHO_ON') { }
0 0 elsif ($msg_type == 'PAM_PROMPT_ECHO_OFF') { }
0 0 elsif ($msg_type == 'PAM_TEXT_INFO') { }
0 0 elsif ($msg_type == 'PAM_ERROR_MSG') { }
212 0 0 unless ref $pamh
215 0 0 unless $pamh->pam_set_item('PAM_RHOST', $self->{'peeraddrstring'}) == 'PAM_SUCCESS'
218 0 0 unless $pamh->pam_authenticate(0) == 'PAM_SUCCESS'
221 0 0 unless $pamh->pam_acct_mgmt(0) == 'PAM_SUCCESS'
224 0 0 unless $pamh->pam_setcred('PAM_ESTABLISH_CRED') == 'PAM_SUCCESS'
228 0 0 if ($@)
254 0 0 if (not $user_is_anon) { }
257 0 0 if exists $self->{'full_unix_user'}
259 0 0 unless ($login, $pass, $uid, $gid) = getpwnam $user
267 0 0 exists $self->{'full_root_directory'} ? :
269 0 0 if (defined $root_directory)
275 0 0 if ($< == 0) { }
277 0 0 unless chroot $root_directory
282 0 0 unless chroot $root_directory
291 0 0 unless ($login, $pass, $uid, $gid, $quota, $comment, $gecos, $homedir) = getpwnam 'ftp'
295 0 0 if ($< == 0) { }
297 0 0 unless chroot $homedir
301 0 0 unless chroot $homedir