| line |
true |
false |
branch |
|
106
|
0 |
0 |
if ($params->{'conn'}) { } |
|
113
|
0 |
0 |
unless ($code and $code == 1000) |
|
123
|
0 |
0 |
if ($self->can($action)) { } |
|
134
|
0 |
0 |
if $self->{'critical_error'} |
|
138
|
0 |
0 |
unless $answ and ref $answ |
|
143
|
0 |
0 |
wantarray ? : |
|
164
|
0 |
0 |
if ($out_data) |
|
203
|
0 |
0 |
if ($res->is_success) { } |
|
206
|
0 |
0 |
unless $in_data |
|
210
|
0 |
0 |
if $data_size > $THRESHOLD |
|
218
|
0 |
0 |
unless (eval {
do {
local $SIG{'ALRM'} = sub {
die "connection timeout\n";
}
;
alarm 120;
my $req = POST($self->{'url'}, ['login', $self->{'user'}, 'psw', $self->{'pass'}, 'xml', $out_data]);
my $res = $ua->request($req);
alarm 0;
if ($res->is_success) {
$in_data = $res->content;
die "data length is zero\n" unless $in_data;
my $data_size = length $in_data;
die "data length is $data_size which exceeds $THRESHOLD\n" if $data_size > $THRESHOLD;
}
else {
die 'fail answer: ' . $res->as_string . "\n";
} ;
1
}
}) |
|
273
|
0 |
0 |
wantarray ? : |
|
302
|
0 |
0 |
if $params->{'company'} |
|
328
|
0 |
0 |
if ($params->{'server_loc'}) |
|
362
|
0 |
0 |
if ($params->{'server_loc'}) |
|
404
|
0 |
0 |
if ($self->{'log_fh'}) |