| line |
true |
false |
branch |
|
14
|
0 |
1 |
if my $err = shift()
|
|
97
|
0 |
0 |
unless &GetOptions("help|h|?", sub {
|
|
110
|
0 |
0 |
if $opt_CNL
|
|
111
|
0 |
0 |
if $opt_C or $opt_P
|
|
124
|
2 |
0 |
$ENV{'NO_COLOR'} ? :
|
|
134
|
1 |
0 |
unless &first(sub {
|
|
148
|
0 |
0 |
$dp ? :
|
|
170
|
0 |
0 |
unless my $client = $config->{'client'}
|
|
171
|
0 |
0 |
unless my $times = $config->{'times'}
|
|
172
|
0 |
0 |
unless my $downld = $config->{'download'}
|
|
173
|
0 |
0 |
unless my $upld = $config->{'upload'}
|
|
174
|
0 |
0 |
if $opt_v > 3
|
|
181
|
0 |
0 |
if ($url or $mini)
|
|
188
|
0 |
0 |
if ($mini) { }
|
|
192
|
0 |
0 |
unless $rsp->is_success
|
|
194
|
0 |
0 |
unless $tree->parse_content($rsp->content)
|
|
197
|
0 |
0 |
unless my $c = ($_->content)[0]
|
|
198
|
0 |
0 |
unless ref $c eq "ARRAY" and $c->[0] and $c->[0] =~ /\b (?: upload_? | config ) Extension
|
|
204
|
0 |
0 |
unless $ext
|
|
212
|
0 |
0 |
unless $url =~ m[/\w+\.\w+$]
|
|
216
|
0 |
0 |
unless $rsp->is_success
|
|
235
|
0 |
0 |
if (@server) { }
|
|
238
|
0 |
0 |
unless ($server[0] =~ /^[0-9]+$/)
|
|
239
|
0 |
0 |
unless open my $fh, "<", $server[0]
|
|
242
|
0 |
0 |
unless $data =~ /^\s*\{\s*(['"]?)cc\1\s*=>\s*(["'])[A-Z]{1,3}\2\s*,/ and $data =~ /\s(["']?)id\1\s*=>\s*[0-9]+\s*,/
|
|
252
|
0 |
0 |
if ($opt_c) { }
|
|
|
0 |
0 |
elsif ($opt_g) { }
|
|
256
|
0 |
0 |
if $opt_v > 5
|
|
259
|
0 |
0 |
if ($rsp->is_success)
|
|
261
|
0 |
0 |
if ($tree->parse_content($rsp->content))
|
|
263
|
0 |
0 |
if $opt_v > 2
|
|
264
|
0 |
0 |
unless $e->as_text =~ /Country code(?:\s*:)?\s*([A-Za-z]+)/i
|
|
270
|
0 |
0 |
unless ($opt_c)
|
|
271
|
0 |
0 |
if $opt_v
|
|
277
|
0 |
0 |
if $list{$id}{'dist'} < $nearest->{'dist'}
|
|
279
|
0 |
0 |
if $opt_v > 3
|
|
287
|
0 |
0 |
if ($opt_cc)
|
|
302
|
0 |
0 |
if ($list)
|
|
306
|
0 |
0 |
if (defined $url)
|
|
316
|
0 |
0 |
if ($opt_ping)
|
|
319
|
0 |
0 |
if (defined $url)
|
|
328
|
0 |
0 |
if $opt_v
|
|
329
|
0 |
0 |
if $opt_P
|
|
333
|
0 |
0 |
$url ? :
|
|
335
|
0 |
0 |
if @server
|
|
336
|
0 |
0 |
if @hosts > $opt_T
|
|
340
|
0 |
0 |
if ($opt_P) { }
|
|
|
0 |
0 |
elsif ($opt_v) { }
|
|
352
|
0 |
0 |
if ($ip)
|
|
357
|
0 |
0 |
if @hosts > 1
|
|
361
|
0 |
0 |
if $opt_v > 3
|
|
365
|
0 |
0 |
if ($opt_d)
|
|
366
|
0 |
0 |
if $opt_v
|
|
372
|
0 |
0 |
if $opt_q
|
|
378
|
0 |
0 |
unless ($rsp->is_success)
|
|
385
|
0 |
0 |
if $opt_v
|
|
386
|
0 |
0 |
if $opt_v > 2
|
|
392
|
0 |
0 |
if ($opt_u)
|
|
393
|
0 |
0 |
if $opt_v
|
|
403
|
0 |
0 |
if $opt_q
|
|
410
|
0 |
0 |
unless ($rsp->is_success)
|
|
416
|
0 |
0 |
if $opt_v
|
|
417
|
0 |
0 |
if $opt_v > 2
|
|
422
|
0 |
0 |
$dl eq '-' ? :
|
|
423
|
0 |
0 |
$ul eq '-' ? :
|
|
426
|
0 |
0 |
if $opt_1
|
|
428
|
0 |
0 |
if $opt_P
|
|
430
|
0 |
0 |
if ($opt_T and @try > 1)
|
|
447
|
0 |
0 |
if $opt_U and @speed == 0
|
|
453
|
0 |
0 |
if ($opt_C) { }
|
|
|
0 |
0 |
elsif ($opt_P) { }
|
|
459
|
0 |
0 |
$opt_CNL ? :
|
|
472
|
0 |
0 |
$opt_v > 2 ? :
|
|
|
0 |
0 |
if $opt_q and $opt_v
|
|
473
|
0 |
0 |
if $opt_v or not $opt_1
|
|
474
|
0 |
0 |
if $opt_v > 1
|
|
485
|
0 |
0 |
unless $rsp->is_success
|
|
492
|
0 |
0 |
if $opt_v > 5
|
|
503
|
0 |
0 |
if $opt_v > 2
|
|
505
|
0 |
0 |
if $opt_v > 2
|
|
506
|
0 |
0 |
if $rsp->is_success and $servlist = $rsp->content
|
|
508
|
0 |
0 |
unless $servlist
|
|
548
|
0 |
0 |
if (my $iid = $config->{'server-config'}{'ignoreids'})
|
|
549
|
0 |
0 |
if $opt_v > 3
|
|
552
|
0 |
0 |
unless $opt_a
|
|
553
|
0 |
0 |
unless %list
|
|
558
|
0 |
0 |
if $opt_v > 7
|
|
566
|
0 |
0 |
if $opt_v > 1
|
|
576
|
0 |
0 |
if (@list > $opt_ping)
|
|
578
|
0 |
0 |
unless @server
|
|
582
|
0 |
0 |
if (@server and not &first(sub {
|
|
587
|
0 |
0 |
if $opt_v > 5
|
|
593
|
0 |
0 |
if $opt_v > 8
|
|
594
|
0 |
0 |
if ($elapsed >= 15)
|
|
598
|
0 |
0 |
$rsp->is_success ? :
|
|
603
|
0 |
0 |
unless $main::a->{'ping'} <=> $main::b->{'ping'}
|