| line |
true |
false |
branch |
|
26
|
2 |
0 |
unless ref $self |
|
41
|
2 |
0 |
unless ($self->ping) |
|
42
|
2 |
0 |
if ($args) |
|
43
|
1 |
1 |
if $$args{'Host'} |
|
44
|
0 |
2 |
if $$args{'Port'} |
|
45
|
0 |
2 |
if $$args{'Timeout'} |
|
60
|
0 |
2 |
if ($@) |
|
63
|
2 |
0 |
unless ($$self{'socket'}) |
|
70
|
0 |
0 |
unless ($proto =~ /^REDIRXD V\d+.\d+$/) |
|
81
|
0 |
2 |
if ($self->_connected) |
|
97
|
0 |
0 |
unless my $url = shift() |
|
110
|
0 |
0 |
if ($status eq 'ERROR') { } |
|
|
0 |
0 |
elsif ($status ne 'OK') { } |
|
128
|
0 |
2 |
unless my $str = shift() |
|
131
|
0 |
2 |
if $$self{'debug'} |
|
137
|
0 |
0 |
unless $$self{'socket'} |
|
147
|
0 |
0 |
unless my $line = shift() |
|
150
|
0 |
0 |
unless $$self{'socket'} |