| line |
true |
false |
branch |
|
50
|
8 |
0 |
if (-x '/bin/uname') { } |
|
55
|
0 |
0 |
if ($OS_STRING eq 'MSWin32') |
|
58
|
0 |
0 |
unless ($@) |
|
62
|
0 |
0 |
if $s |
|
111
|
0 |
0 |
unless $ENCODED |
|
118
|
0 |
0 |
if ($d and not $DEBUG) |
|
126
|
0 |
0 |
$THREADED ? : |
|
139
|
0 |
6 |
if $DEBUG > 1 |
|
169
|
0 |
0 |
unless my $self = shift() |
|
170
|
0 |
0 |
unless my $src = shift() |
|
172
|
0 |
0 |
if $DEBUG > 1 |
|
191
|
0 |
0 |
unless my $self = shift() |
|
192
|
0 |
0 |
unless my $username = shift() |
|
193
|
0 |
0 |
unless my $password = shift() |
|
195
|
0 |
0 |
if $DEBUG > 1 |
|
211
|
0 |
0 |
if ($xml =~ /(.*?)
|
|
227
|
0 |
0 |
if $DEBUG > 1 |
|
229
|
0 |
0 |
unless $self->logged_in |
|
240
|
0 |
0 |
if ($xml =~ /(.*?)
|
|
252
|
0 |
0 |
unless my $self = shift() |
|
254
|
0 |
0 |
if $DEBUG > 1 |
|
264
|
0 |
0 |
unless my $self = shift() |
|
266
|
0 |
0 |
unless my(%pairs) = @_ |
|
269
|
0 |
0 |
if $DEBUG > 1 |
|
273
|
0 |
0 |
if (${$$self{'threads'};}) |
|
278
|
0 |
0 |
$self->parse_links ? : |
|
290
|
0 |
0 |
$self->parse_links ? : |
|
296
|
0 |
0 |
if $c |
|
302
|
0 |
0 |
unless my $self = shift() |
|
307
|
0 |
0 |
unless my $self = shift() |
|
312
|
0 |
0 |
unless my $self = shift() |
|
318
|
0 |
0 |
unless my $self = shift() |
|
320
|
0 |
0 |
if $_[0] |
|
326
|
0 |
0 |
unless my $self = shift() |
|
328
|
0 |
0 |
if (@_) |
|
331
|
0 |
0 |
if ($_[0] =~ /(.*?)%257C/) |
|
340
|
0 |
0 |
unless my $self = shift() |
|
342
|
0 |
0 |
if @_ |
|
348
|
0 |
0 |
unless my $self = shift() |
|
350
|
0 |
0 |
if @_ |
|
356
|
0 |
0 |
unless my $self = shift() |
|
362
|
0 |
6 |
if (@_ != 3) |
|
367
|
0 |
0 |
if $DEBUG > 1 |
|
378
|
0 |
0 |
if ($ENCODED) |
|
383
|
0 |
0 |
if (not $twig->safe_parse($xml, 'ProtocolEncoding', 'UTF-8')) |
|
441
|
0 |
0 |
unless my $self = shift() |
|
444
|
0 |
0 |
if $DEBUG > 1 |
|
446
|
0 |
0 |
unless ($THREADED) |
|
447
|
0 |
0 |
if $DEBUG |
|
451
|
0 |
0 |
if ($count < 1) |
|
452
|
0 |
0 |
if $DEBUG |
|
456
|
0 |
0 |
if (${$$self{'threads'};}) |
|
457
|
0 |
0 |
if $DEBUG |
|
461
|
0 |
0 |
$count > 1 ? : |
|
|
0 |
0 |
if $DEBUG |
|
477
|
0 |
0 |
unless ($t{'thread'}) |
|
493
|
0 |
0 |
if Deparse error: Can't locate object method "ARRAY" via package "B::NULL" at /usr/local/lib/perl5/5.20.0/B/Deparse.pm line 1503. |
|
500
|
0 |
0 |
if $DEBUG > 1 |
|
503
|
0 |
0 |
if ($@) { } |
|
526
|
0 |
0 |
if $i[0] ne '-1' |
|
551
|
0 |
0 |
if $i[0] ne '-1' |
|
571
|
0 |
0 |
if $DEBUG > 1 |
|
574
|
0 |
0 |
if $post and $DEBUG > 2 |
|
580
|
0 |
0 |
if (ref $cmd) { } |
|
587
|
0 |
0 |
if (not $response[0] or $response[0] ne '-1') |
|
589
|
0 |
0 |
if $final |
|
590
|
0 |
0 |
@r > 1 ? : |
|
596
|
0 |
0 |
if $DEBUG > 2 |
|
599
|
0 |
0 |
if $final |
|
610
|
0 |
0 |
if $DEBUG > 1 |
|
611
|
0 |
0 |
if $DEBUG > 2 |
|
618
|
0 |
0 |
if (not defined $job) { } |
|
|
0 |
0 |
elsif ($${$$self{'finished'};}{$job}) { } |
|
623
|
0 |
0 |
if ($k) { } |
|
624
|
0 |
0 |
if $DEBUG > 2 |
|
639
|
0 |
0 |
if ($id) |
|
646
|
0 |
0 |
unless ($response) |
|
652
|
0 |
0 |
unless ($pending) |
|
664
|
0 |
0 |
if $DEBUG > 2 |
|
674
|
0 |
0 |
if $DEBUG and not $thr |
|
676
|
0 |
0 |
unless $thr |
|
684
|
0 |
0 |
if $DEBUG > 2 |
|
688
|
0 |
0 |
if ($id == $job) { } |
|
701
|
0 |
0 |
unless ($response) |
|
702
|
0 |
0 |
if $DEBUG > 2 |
|
713
|
0 |
0 |
if ($$response{'exception'}) |
|
728
|
0 |
0 |
if $$response{'cookie'} |
|
740
|
0 |
0 |
if $DEBUG > 2 |
|
759
|
0 |
0 |
if $exc |
|
767
|
0 |
0 |
if $DEBUG > 1 |
|
776
|
0 |
0 |
if (not $$_{'to_q'}->pending) { } |
|
|
0 |
0 |
elsif ($$_{'to_q'}->pending < $min) { } |
|
790
|
0 |
0 |
if $DEBUG > 2 |
|
813
|
0 |
0 |
if $DEBUG > 1 |
|
822
|
0 |
0 |
if $s |
|
824
|
0 |
0 |
if $1 and $DEBUG > 2 |
|
835
|
0 |
0 |
unless my $resp = shift() |
|
839
|
0 |
0 |
if $DEBUG > 1 |
|
1017
|
0 |
0 |
if (@_ < 3) |
|
1033
|
0 |
0 |
if $DEBUG > 1 |
|
1039
|
0 |
0 |
if $agentstr |
|
1050
|
0 |
0 |
if ($cookie) |
|
1071
|
0 |
0 |
if ($req eq 'POST') { } |
|
1083
|
0 |
0 |
unless ($prepend) |
|
1090
|
0 |
0 |
unless ($response->is_success) |