Branch Coverage

blib/lib/Net/Lite/FTP.pm
Criterion Covered Total %
branch 0 228 0.0


line true false branch
115 0 0 if defined $size
124 0 0 unless defined $pathname
147 0 0 if (sysread $sock, $data, 4096)
150 0 0 if (sysread $sock, $data, 4096)
173 0 0 unless setsockopt $sock, 1, 21, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
174 0 0 unless setsockopt $sock, 1, 20, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
175 0 0 unless setsockopt $sock, 1, 9, 1
180 0 0 unless setsockopt $sock, 0, 1, "\cP\000\000\000"
191 0 0 if ($self->{'FTPS'})
199 0 0 if ($data = readln($sock))
200 0 0 if $self->{'Debug'}
202 0 0 if $self->{'Debug'}
205 0 0 if ($self->{'Encrypt'} and not $self->{'FTPS'})
208 0 0 if ($data = readln($sock))
209 0 0 if $self->{'Debug'}
213 0 0 if ($self->{'Integrity'})
217 0 0 if ($self->{'Compress'})
222 0 0 if ($self->{'Compress'})
227 0 0 if ($self->{'Encrypt'} and not $self->{'FTPS'})
254 0 0 if ($self->command("RNFR $from")) { }
265 0 0 if $self->{'Debug'}
287 0 0 unless (defined $read)
315 0 0 if $self->{'Debug'}
316 0 0 if ($read =~ /^(\d\d\d)\s(.*)/)
319 0 0 if ($read =~ /^(\d\d\d)-(.*)/)
321 0 0 if $self->{'Debug'}
323 0 0 if ($read =~ /^(\d\d\d)\s(.*)/m)
324 0 0 if ($cont)
328 0 0 if ($read =~ /^(\d\d\d)-(.*)/)
329 0 0 if ($read =~ /^(\d\d\d)\s(.*)/)
330 0 0 if $self->{'Debug'}
338 0 0 if ($code > 399)
346 0 0 if $self->{'Debug'}
357 0 0 if (defined $socket)
359 0 0 if (defined $mask) { }
368 0 0 if ($response and $self->{'FTPCODE'} < 200)
370 0 0 if ($self->{'EncryptData'} == 1)
372 0 0 if $self->{'Debug'}
375 0 0 if ($self->{'Compress'}) { }
376 0 0 unless my $x = 'Compress::Raw::Zlib::Inflate'->new
386 0 0 if $self->{'Debug'}
390 0 0 if $status != Z_OK()
392 0 0 unless $status == Z_STREAM_END()
408 0 0 if ($response)
0 0 if ($response and $self->{'FTPCODE'} < 200)
409 0 0 if $self->{'Debug'}
410 0 0 if $response
419 0 0 unless defined $local
420 0 0 unless $self->{'DontDoType'}
422 0 0 unless defined $socket
423 0 0 if ($self->{'EncryptData'} != 0)
425 0 0 unless ($r)
426 0 0 if $self->{'Debug'}
430 0 0 if ($self->{'EncryptData'} == 1)
432 0 0 if $self->{'Debug'}
435 0 0 if $self->{'Debug'}
438 0 0 if ($putorblat =~ /put/) { }
442 0 0 unless CORE::open L, "$local"
446 0 0 if ($self->{'Compress'}) { }
448 0 0 unless my $x = 'Compress::Raw::Zlib::Deflate'->new(-'Bufsize', $self->{'CompressionBufsize'}, -'Level', $self->{'CompressionLevel'}, -'Strategy', $self->{'CompressionStrategy'}, -'WindowBits', $self->{'CompressionWindowBits'})
459 0 0 unless $status == Z_OK()
474 0 0 if (defined $self->{'PutUpdateCallback'})
477 0 0 if $self->{'Debug'}
479 0 0 unless $status == Z_OK()
483 0 0 if $self->{'Debug'}
489 0 0 if (defined $self->{'PutUpdateCallback'})
494 0 0 if ($self->{'Compress'}) { }
495 0 0 unless my $x = 'Compress::Raw::Zlib::Deflate'->new(-'Bufsize', 8192)
499 0 0 unless $status == Z_OK()
504 0 0 unless $status == Z_OK()
512 0 0 if (defined $self->{'PutUpdateCallback'})
519 0 0 if $self->{'Debug'}
520 0 0 if (defined $self->{'PutDoneCallBack'})
547 0 0 unless defined $local
552 0 0 unless setsockopt $socket, 1, 21, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
553 0 0 unless setsockopt $socket, 1, 20, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
554 0 0 unless setsockopt $socket, 1, 9, 1
555 0 0 unless setsockopt $socket, 0, 1, "\cH\000\000\000"
558 0 0 if ($self->{'EncryptData'} != 0)
560 0 0 unless ($r)
561 0 0 if $self->{'Debug'}
565 0 0 if ($self->{'EncryptData'} == 1)
567 0 0 if $self->{'Debug'}
570 0 0 if ($getorslurp =~ /get/) { }
571 0 0 if $self->{'Debug'}
572 0 0 unless CORE::open L, ">$local"
577 0 0 if ($self->{'Compress'}) { }
584 0 0 unless my $x = 'Compress::Raw::Zlib::Inflate'->new
595 0 0 if $self->{'Debug'}
596 0 0 if (defined $self->{'GetUpdateCallback'})
597 0 0 if $status != Z_OK()
599 0 0 unless $status == Z_STREAM_END()
610 0 0 if $self->{'Debug'}
611 0 0 if (defined $self->{'GetUpdateCallback'})
622 0 0 if $self->{'Debug'}
625 0 0 if ($self->{'Compress'}) { }
626 0 0 unless my $x = 'Compress::Raw::Zlib::Inflate'->new
637 0 0 if $self->{'Debug'}
638 0 0 if (defined $self->{'GetUpdateCallback'})
639 0 0 if $status != Z_OK()
641 0 0 unless $status == Z_STREAM_END()
647 0 0 if $self->{'Debug'}
648 0 0 if (defined $self->{'GetUpdateCallback'})
654 0 0 if $self->{'Debug'}
655 0 0 if (defined $self->{'GetDoneCallBack'})
662 0 0 if ($tmp = $self->command('PASV')) { }
663 0 0 if ($self->msgcode == 227 and $tmp =~ /[^\d]*(\d+),(\d+),(\d+),(\d+),(\d+),(\d+)/) { }
666 0 0 if $self->{'Debug'}
667 0 0 if $self->{'Debug'}
0 0 if (defined $self->{'ForcePASVIP'})
670 0 0 if (defined $socket) { }
671 0 0 if $self->{'Debug'}
716 0 0 if ($self->{'Encrypt'}) { }
718 0 0 if ($self->{'EncryptData'} != 0)