Branch Coverage

lib/SMB/Client.pm
Criterion Covered Total %
branch 0 162 0.0


line true false branch
47 0 0 if $share_uri
58 0 0 $share_uri =~ m([/\\]) ? :
61 0 0 unless $addr
63 0 0 unless $addr =~ /:/
65 0 0 unless my $socket = 'IO::Socket::INET'->new('PeerAddr', $addr, 'Proto', 'tcp')
68 0 0 if ($options{'just_socket'}) { }
96 0 0 unless (%$connections)
102 0 0 unless ($connection)
115 0 0 if $_->tree == $tree
134 0 0 $connection->tree ? :
147 0 0 $response ? :
0 0 if not $no_warn and !$response || $response->is_error
157 0 0 if $connection->dialect
160 0 0 if ($response and $response->is_success)
161 0 0 unless ($connection->auth->process_spnego($response->security_buffer))
175 0 0 if $connection->session_id
182 0 0 unless $response and $response->is_success || $more_processing and $connection->auth->process_spnego($response->security_buffer)
186 0 0 if $response->is_success
187 0 0 unless $more_processing
195 0 0 if ($response and $response->is_success and $connection->auth->process_spnego($response->security_buffer))
196 0 0 unless $connection->session_id == $response->header->uid
220 0 0 unless $connection->{$_} or $options{$_}
223 0 0 unless $self->check_session($connection)
227 0 0 if ($response and $response->is_success)
246 0 0 if $path =~ m[^[^/]]
255 0 0 if ($to_dos)
267 0 0 $is_dos ? :
269 0 0 $path =~ /.*\Q$delim\E(.*)/ ? :
281 0 0 unless $response and $response->is_success
290 0 0 $remaining >= 65536 ? :
298 0 0 unless $response and $response->is_success
300 0 0 if $read != $length
309 0 0 unless open DST, '>', $dst_filename
311 0 0 unless print DST $content
313 0 0 unless close DST
327 0 0 unless open SRC, '<', $filename
331 0 0 unless close SRC
340 0 0 unless $response and $response->is_success
345 0 0 $remaining >= 65536 ? :
353 0 0 unless $response and $response->is_success
355 0 0 if $written != $length
374 0 0 $file->is_directory ? :
377 0 0 unless $remove_using_setinfo
384 0 0 unless $response and $response->is_success
387 0 0 if ($remove_using_setinfo)
394 0 0 unless $response and $response->is_success
397 0 0 if ($recursive and $file->is_directory)
404 0 0 if $response and $response->status == 2147483654
405 0 0 unless $response and $response->is_success
412 0 0 if $dirname
413 0 0 if $file->name =~ /(^|\\)\.\.?$/
414 0 0 unless $self->remove_file($connection, $file, 1)
422 0 0 unless $response and $response->is_success
439 0 0 unless $response and $response->is_success
442 0 0 $force ? :
456 0 0 unless $response and $response->is_success
461 0 0 unless $response and $response->is_success
472 0 0 @_ && ref $_[0] eq 'HASH' ? :
474 0 0 if ($command eq 'chdir') { }
0 0 elsif ($command eq 'find') { }
0 0 elsif ($command eq 'dnload') { }
0 0 elsif ($command eq 'upload') { }
0 0 elsif ($command eq 'remove') { }
0 0 elsif ($command eq 'rename') { }
0 0 elsif ($command eq 'copy') { }
480 0 0 $pattern =~ /^(.*)\\(.*)/ ? :
481 0 0 if $2
487 0 0 unless $response and $response->is_success
493 0 0 $response && $response->is_success ? :
498 0 0 unless $files
499 0 0 wantarray ? :
502 0 0 if $filename eq ''
509 0 0 if $filename eq ''
516 0 0 if $filename eq ''
526 0 0 if $filename1 eq ''
529 0 0 if $filename2 eq ''
536 0 0 if $filename1 eq ''
539 0 0 if $filename2 eq ''
568 0 0 unless $request
571 0 0 unless ($response)
576 0 0 unless ($response->is_response_to($request))