| line |
true |
false |
branch |
|
85
|
0 |
0 |
unless defined $remote_host |
|
98
|
0 |
0 |
unless my $connector = $connect_sub_for{$$self{'network_layer'}} |
|
108
|
0 |
0 |
unless socket $$self{'socket'}, 2, 2, 0 |
|
109
|
0 |
0 |
$$self{'local_address'} ? : |
|
|
0 |
0 |
unless my $local_address = $$self{'local_address'} ? inet_aton($$self{'local_address'}) : "\000\000\000\000" |
|
110
|
0 |
0 |
unless bind $$self{'socket'}, sockaddr_in($$self{'local_port'}, $local_address) |
|
111
|
0 |
0 |
unless my $packed_ip = inet_aton($$self{'remote_host'}) |
|
112
|
0 |
0 |
unless connect $$self{'socket'}, sockaddr_in($$self{'remote_port'}, $packed_ip) |
|
121
|
0 |
0 |
unless socket $$self{'socket'}, $family, 2, 0 |
|
122
|
0 |
0 |
$$self{'local_address'} ? : |
|
123
|
0 |
0 |
unless bind $$self{'socket'}, Socket6::pack_sockaddr_in6($$self{'local_port'}, $local_ip) |
|
124
|
0 |
0 |
unless my $packed_ip = Socket6::gethostbyname2($$self{'remote_host'}, $family) |
|
125
|
0 |
0 |
unless connect $$self{'socket'}, Socket6::pack_sockaddr_in6($$self{'remote_port'}, $packed_ip) |
|
132
|
0 |
0 |
unless my $flags = fcntl($$self{'socket'}, 3, 0) |
|
133
|
0 |
0 |
unless fcntl $$self{'socket'}, 4, $flags | 2048 |
|
156
|
0 |
0 |
unless $is_nonfatal{$! + 0} |
|
162
|
0 |
0 |
unless return defined recv($$self{'socket'}, ${$response;}, $$self{'max_payload_size'} + $HEADER_SIZE, 0) |
|
167
|
0 |
0 |
unless send $$self{'socket'}, $request, 0 |
|
189
|
0 |
0 |
if return $$value_for{'checksum'} == _checksum($response, 0) and length $$value_for{'fulldata'} >= $$value_for{'length'} and $$value_for{'command'} == $code_for{$send_command} || $$value_for{'command'} == $code_for{'err'} |
|
198
|
0 |
0 |
unless defined $send_extra |
|
203
|
0 |
0 |
unless ($self->_replies_pending) |
|
205
|
0 |
0 |
unless $self->_replies_pending($delay) |
|
207
|
0 |
0 |
unless $self->_receive(\my($response)) |
|
208
|
0 |
0 |
if length $response < $HEADER_SIZE |
|
210
|
0 |
0 |
unless $self->_response_is_correct(\%response, $response, $send_command, $send_pos) |
|
212
|
0 |
0 |
if $response{'message_id'} != $$self{'message_id'} |
|
214
|
0 |
0 |
if $response{'command'} == $code_for{'err'} |
|
215
|
0 |
0 |
wantarray ? : |
|
224
|
0 |
0 |
$name =~ m[ \A / ]msx ? : |
|
227
|
0 |
0 |
if ($step eq '..') { } |
|
228
|
0 |
0 |
if @current == 0 |
|
240
|
0 |
0 |
defined $escaped ? : |
|
241
|
0 |
0 |
defined $$self{'password'} ? : |
|
251
|
0 |
0 |
if $self->_connected |
|
252
|
0 |
0 |
unless close $$self{'socket'} |
|
302
|
0 |
0 |
$$self{'read_size'} != $DEFAULT_MAX_SIZE ? : |
|
317
|
0 |
0 |
if length $block == 0 |
|
325
|
0 |
0 |
if (ref $other eq '') { } |
|
|
0 |
0 |
elsif (ref $other eq 'GLOB') { } |
|
326
|
0 |
0 |
unless open my $fh, '>:raw', $other |
|
328
|
0 |
0 |
unless close $fh |
|
331
|
0 |
0 |
unless print {$other;} @_ |
|
341
|
0 |
0 |
if (ref $other eq '') { } |
|
|
0 |
0 |
elsif (ref $other eq 'GLOB') { } |
|
342
|
0 |
0 |
unless open my $fh, '>:raw', $other |
|
344
|
0 |
0 |
unless close $fh |
|
347
|
0 |
0 |
unless print {$other;} @_ |
|
361
|
0 |
0 |
$$self{'listing_size'} != $DEFAULT_MAX_SIZE ? : |
|
366
|
0 |
0 |
if (length $data < $LISTING_HEADER_SIZE) |
|
373
|
0 |
0 |
if ($type eq 'end') { } |
|
|
0 |
0 |
elsif ($type eq 'file' or $type eq 'dir') { } |
|
|
0 |
0 |
elsif ($type eq 'skip') { } |
|
377
|
0 |
0 |
unless my($filename) = $data =~ / \A ( [^\0]+ ) /msx |
|
380
|
0 |
0 |
if $filename eq '.' or $filename eq '..' |
|
382
|
0 |
0 |
length $link ? : |
|
402
|
0 |
0 |
if $type eq 'end' |
|
403
|
0 |
0 |
if (wantarray) { } |
|
414
|
0 |
0 |
if $$self{'writing'} |
|
418
|
0 |
0 |
if (defined $part) { } |
|
424
|
0 |
0 |
defined $timestamp ? : |
|
436
|
0 |
0 |
unless defined $part |
|
443
|
0 |
0 |
if (ref $other eq '') { } |
|
|
0 |
0 |
elsif (ref $other eq 'GLOB') { } |
|
444
|
0 |
0 |
unless open my $fh, '<:raw', $other |
|
446
|
0 |
0 |
unless close $fh |
|
452
|
0 |
0 |
unless defined read($other, my $return_value, $_[0]) |
|
453
|
0 |
0 |
length $return_value ? : |
|
518
|
0 |
0 |
unless tie *{$ret;}, 'Net::FSP::Handle', $self, $filename, $mode |