Branch Coverage

lib/SMB/Server.pm
Criterion Covered Total %
branch 0 104 0.0


line true false branch
37 0 0 unless $port or $fifo_filename
40 0 0 $fifo_filename ? :
44 0 0 $fifo_filename ? :
45 0 0 unless $main_socket
57 0 0 if (not $share_roots and $FindBin::Bin)
59 0 0 if -d $_ and -x _
0 0 if -d $shares_dir
62 0 0 do { ref $share_roots ne 'HASH' } ? :
0 0 do { $share_roots eq '-' if ref $share_roots eq '' } ? :
0 0 $share_roots ? :
65 0 0 if ref $share_roots eq ''
88 0 0 unless $auth->load_user_passwords($self->passwd_filename)
112 0 0 $tid ? :
113 0 0 if $tree
115 0 0 if ($command->is_smb1)
116 0 0 if ($command->is('Negotiate'))
117 0 0 if ($command->supports_smb_dialect(514)) { }
125 0 0 if ($command->is_smb2)
130 0 0 if ($tid || exists $command->{'fid'} and not $tree) { }
0 0 elsif ($fid) { }
134 0 0 unless $openfile = $connection->{'openfiles'}{@$fid}
139 0 0 if ($error) { }
0 0 elsif ($command->is('Negotiate')) { }
0 0 elsif ($command->is('SessionSetup')) { }
0 0 elsif ($command->is('TreeConnect')) { }
0 0 elsif ($command->is('Create')) { }
0 0 elsif ($command->is('Close')) { }
0 0 elsif ($command->is('SetInfo')) { }
0 0 elsif ($command->is('Read')) { }
0 0 elsif ($command->is('QueryDirectory')) { }
150 0 0 if not $command->security_buffer or defined $auth_completed and not $auth_completed
157 0 0 if ($tree_root or $share eq 'IPC$') { }
173 0 0 if ($file->exists and $disposition == 1)
174 0 0 if ($command->requested_directory and not $file->is_directory) { }
0 0 elsif ($command->requested_non_directory and $file->is_directory) { }
180 0 0 unless ($error)
182 0 0 if ($openfile) { }
187 0 0 if $command->requested_delete_on_close
194 0 0 if ($openfile->delete_on_close)
197 0 0 unless $openfile->file->remove
205 0 0 if ($rename_info)
211 0 0 if $error
214 0 0 if $command->requested_delete_on_close
223 0 0 unless defined $command->{'buffer'}
226 0 0 unless $command->flags & 4
232 0 0 unless defined $command->{'files'}
235 0 0 if $error
251 0 0 if ($socket == $self->main_socket) { }
259 0 0 unless ($connection)
266 0 0 unless my $connection = $self->get_connection($socket)
268 0 0 $socket->eof ? :
271 0 0 unless ($command)