| line |
true |
false |
branch |
|
153
|
0 |
155 |
if (scalar @_ == 0) { } |
|
|
51 |
104 |
elsif (scalar @_ == 1) { } |
|
|
0 |
104 |
elsif (@_ % 2) { } |
|
156
|
0 |
51 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
50 |
elsif (ref $_[0] eq '') { } |
|
158
|
0 |
0 |
if (my $fh = $args->{'fh'}) |
|
181
|
102 |
2 |
if (my $fh = $args->{'fh'}) |
|
196
|
0 |
155 |
if defined $args->{'fh'} and not ref $args->{'fh'} eq 'GLOB' && &Scalar::Util::openhandle($args->{'fh'}) || &blessed($args->{'fh'}) && $args->{'fh'}->isa('IO::Handle') |
|
198
|
3 |
152 |
if exists $args->{'server'} and !defined($args->{'server'}) || ref $args->{'server'} |
|
199
|
0 |
152 |
unless &looks_like_number(scalar $self->port) and int $self->port == $self->port |
|
207
|
0 |
152 |
unless my $fh = shift() |
|
208
|
0 |
152 |
if (ref $fh eq 'GLOB') { } |
|
|
152 |
0 |
elsif (&blessed($fh) and $fh->isa('IO::Socket')) { } |
|
209
|
0 |
0 |
unless my($port, $host) = unpack_sockaddr_in(getpeername $fh) |
|
237
|
0 |
99 |
unless $state |
|
238
|
0 |
99 |
unless $state->eof |
|
263
|
0 |
50 |
unless $state |
|
264
|
0 |
50 |
unless $state->eof |
|
274
|
0 |
0 |
if ($local) |
|
275
|
0 |
0 |
unless open my $local_file, '>:raw', $local |
|
325
|
0 |
152 |
if $self->_autoflush |
|
333
|
152 |
0 |
if ($status & 65536) { } |
|
|
0 |
0 |
elsif ($status & 131072) { } |
|
334
|
3 |
149 |
unless ($status == 65537) |
|
355
|
298 |
0 |
if $length == $offset |
|
357
|
0 |
301 |
unless defined $rc |
|
370
|
0 |
155 |
if $self->_autoclose |