| line |
true |
false |
branch |
|
87
|
0 |
3 |
unless my $ftp = shift() |
|
89
|
0 |
3 |
unless my $filename = shift() |
|
96
|
2 |
1 |
unless $$self{'size'} = $$self{'ftp'}->size($$self{'filename'}) |
|
98
|
1 |
0 |
unless $$self{'AlreadyBinary'} |
|
122
|
0 |
12 |
if $ENV{'DEBUG'} |
|
127
|
1 |
11 |
if ($newpos == $curpos) { } |
|
|
0 |
11 |
elsif (defined $$self{'_buf'} and $newpos > $curpos and $newpos < $curpos + length($$self{'_buf'})) { } |
|
149
|
14 |
14 |
if ($whence == 0) { } |
|
|
0 |
14 |
elsif ($whence == 1) { } |
|
|
14 |
0 |
elsif ($whence == 2) { } |
|
172
|
0 |
16 |
if $ENV{'DEBUG'} |
|
183
|
34 |
0 |
defined $$self{'_buf'} ? : |
|
191
|
0 |
0 |
if defined $$self{'curmode'} and $$self{'curmode'} eq $mode |
|
192
|
0 |
0 |
if (defined $mode and $mode eq ':crlf') { } |
|
195
|
0 |
0 |
unless $$self{'ftp'}->ascii |
|
201
|
0 |
0 |
unless $$self{'ftp'}->binary |
|
209
|
90 |
3 |
$_[0] < $_[1] ? : |
|
214
|
0 |
12 |
$_[0] > $_[1] ? : |
|
224
|
0 |
95 |
if $ENV{'DEBUG'} |
|
227
|
12 |
83 |
if (not defined $$self{'_buf'} or length $$self{'_buf'} <= 0) { } |
|
|
0 |
83 |
elsif (length $$self{'_buf'} < $len) { } |
|
229
|
2 |
10 |
unless $self->sysread($$self{'_buf'}, _max($len, $$self{'BlockSize'})) |
|
237
|
23 |
70 |
unless (defined $_[0]) |
|
247
|
0 |
20 |
if ($$self{'eof'}) |
|
255
|
0 |
20 |
if $ENV{'DEBUG'} |
|
257
|
3 |
17 |
if ($$self{'nextpos'} >= $$self{'size'}) |
|
264
|
16 |
1 |
if ($$self{'pos'} != $$self{'nextpos'}) |
|
267
|
16 |
0 |
if ($$self{'ftp_running'}) |
|
269
|
0 |
16 |
if $ENV{'DEBUG'} |
|
271
|
5 |
11 |
if ($$self{'nextpos'} > $$self{'pos'} and $$self{'nextpos'} - $$self{'pos'} < $$self{'MaxSkipSize'}) { } |
|
274
|
0 |
5 |
if $ENV{'DEBUG'} |
|
279
|
0 |
9 |
if $ENV{'DEBUG'} |
|
282
|
0 |
9 |
if ($b == 0) { } |
|
|
0 |
9 |
elsif (not defined $b or $b < 0) { } |
|
300
|
0 |
11 |
if $ENV{'DEBUG'} |
|
307
|
12 |
5 |
unless ($$self{'ftp_running'}) |
|
310
|
0 |
12 |
unless $$self{'ftp_data'} = $$self{'ftp'}->retr($$self{'filename'}) |
|
318
|
0 |
17 |
if ($rb == 0) { } |
|
|
0 |
17 |
elsif (not defined $rb or $rb < 0) { } |
|
328
|
1 |
16 |
unless (defined $_[0]) |
|
349
|
0 |
12 |
if $ENV{'DEBUG'} |
|
351
|
0 |
12 |
unless $$self{'ftp_running'} |
|
353
|
12 |
0 |
if ($$self{'size'} - $$self{'pos'} < $$self{'MaxSkipSize'}) |
|
355
|
0 |
12 |
if $ENV{'DEBUG'} |
|
363
|
0 |
12 |
unless defined $br |
|
366
|
0 |
12 |
if $ENV{'DEBUG'} |
|
375
|
0 |
12 |
if ($@ and $@ =~ /^Timeout /) |
|
377
|
0 |
0 |
if $ENV{'DEBUG'} |
|
385
|
12 |
0 |
$closeret ? : |
|
396
|
1 |
0 |
$$self{'ftp_data'} ? : |
|
403
|
1 |
0 |
if ($$self{'eof'}) |
|
409
|
0 |
0 |
unless (defined $c) |
|
422
|
1 |
20 |
if ($rb < 1) |
|
441
|
0 |
231 |
if (not defined $/) { } |
|
|
0 |
462 |
elsif (ref $/ and ${$/;}->looks_like_number) { } |
|
453
|
0 |
0 |
unless $self->read($buf, ${$/;}) |
|
459
|
0 |
231 |
if ($/ eq '') { } |
|
468
|
1 |
230 |
unless (defined $$self{'_buf'}) |
|
471
|
1 |
3 |
if ($$self{'eof'}) { } |
|
474
|
1 |
0 |
if (length $$self{'_buf'} == 0) { } |
|
543
|
0 |
1 |
if (UNIVERSAL::isa($self, 'GLOB')) |
|
545
|
0 |
0 |
unless $self = tied *$self |
|
548
|
0 |
1 |
if ($$self{'ftp_data'}) |
|
552
|
0 |
1 |
if $ENV{'DEBUG'} |
|
586
|
0 |
0 |
wantarray ? : |