| line |
true |
false |
branch |
|
14
|
0 |
1 |
if not $tested{$Net::FTP::VERSION} |
|
32
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
35
|
0 |
0 |
unless ($port) |
|
43
|
0 |
0 |
$listen->sockdomain == 2 ? : |
|
47
|
0 |
0 |
if $ok |
|
57
|
0 |
0 |
if @_ |
|
61
|
0 |
0 |
$ftp->_EPSV && $ftp->message =~ /\(([\x33-\x7e])\1\1(\d+)\1\)/ ? : |
|
69
|
0 |
0 |
if $_[0]->sockdomain == 2 or @_ < 1 or @_ > 2 |
|
75
|
0 |
0 |
if $_[0]->sockdomain == 2 or @_ < 1 or @_ > 2 |
|
83
|
0 |
0 |
if $_[0]->sockdomain == 2 |
|
92
|
0 |
0 |
if (my $port = ${*$ftp;}{'net_ftp_pasv'}) { } |
|
|
0 |
0 |
elsif (my $listen = delete ${*$ftp;}{'net_ftp_listen'}) { } |
|
103
|
0 |
0 |
unless $data |