line |
true |
false |
branch |
58
|
52 |
0 |
if (@_ >= 2) |
63
|
0 |
0 |
wantarray ? : |
98
|
4 |
4 |
if exists $args{$key} |
205
|
0 |
0 |
unless ($self->can($_)) |
244
|
0 |
0 |
unless GetOptions('tdlist_file=s', \$pre_defaults{'raw_filename'}, 'sqlite_file=s', \$pre_defaults{'dbdname'}, 'url=s', \$url, 'verbose', \$verbose, 'help', sub {
print $usage;
exit 0;
}
) |
251
|
0 |
0 |
if ($url) |
252
|
0 |
0 |
if (uc $url ne 'AGA') |
272
|
1 |
4 |
if (@_ > 1) |
282
|
1 |
0 |
if (@_ > 1) |
292
|
1 |
1 |
if (@_ > 1) |
302
|
1 |
11 |
if (@_ > 1) |
318
|
1 |
0 |
if (@_ > 1) |
328
|
1 |
1 |
if (@_ > 1) |
338
|
1 |
13 |
if (@_ > 1) |
348
|
1 |
13 |
if (@_ > 1) |
349
|
0 |
1 |
if (ref $new[0] ne 'CODE') |
361
|
1 |
4 |
if (@_ > 1) |
362
|
1 |
0 |
if (ref $new[0] eq 'ARRAY') { } |
369
|
4 |
1 |
wantarray ? : |
375
|
1 |
12 |
if (@_ > 1) |
376
|
1 |
0 |
unless ($new) |
377
|
1 |
0 |
if (my $fname = $self->dbdname) { } |
404
|
0 |
104 |
unless ($name) |
408
|
8 |
96 |
if (@_ > 2) |
413
|
0 |
104 |
unless ($sth) |
458
|
4 |
2 |
if (@_ > 1) |
474
|
0 |
19 |
if is_Rating($$player[$self->column_idx('rank')]) |
476
|
0 |
19 |
wantarray ? : |
483
|
0 |
6 |
unless $new[$self->column_idx('id')] |
487
|
0 |
6 |
wantarray ? : |
501
|
5 |
0 |
if ($used) |
513
|
0 |
0 |
if $kid > 0 |
522
|
0 |
0 |
if ($self->background) |
524
|
0 |
0 |
unless defined $pid |
526
|
0 |
0 |
if ($pid) |
531
|
0 |
0 |
unless ($self->{'ua'}) |
537
|
0 |
0 |
if $self->verbose |
539
|
0 |
0 |
if $self->verbose |
542
|
0 |
0 |
if defined $pid |
548
|
0 |
4 |
unless (ref $fh) |
551
|
0 |
0 |
unless (open $fh, '<', $fname) |
560
|
0 |
4 |
if $verbose |
568
|
4 |
18 |
unless defined $line |
569
|
5 |
13 |
unless $line |
571
|
0 |
13 |
if ($verbose) |
572
|
0 |
0 |
if $ii % 1000 == 0 |
573
|
0 |
0 |
if $ii % 40000 == 0 |
579
|
13 |
0 |
if ($$update[$self->column_idx('last_name')] or $$update[$self->column_idx('first_name')]) { } |
581
|
8 |
5 |
if ($update->[$ID]) { } |
582
|
0 |
8 |
if ($update->[$ID] =~ /tmp/i) |
590
|
2 |
0 |
if ($player->[$ID] =~ /tmp/i) |
594
|
3 |
2 |
unless ($update->[$ID]) |
598
|
7 |
6 |
if ($self->select_id($update->[$ID])) { } |
619
|
0 |
13 |
if ($error_count >= $self->max_update_errors) |
633
|
13 |
9 |
if ($self->{'buf_end'} - $offset <= 160) |
637
|
4 |
18 |
if $offset >= $self->{'buf_end'} |
639
|
16 |
2 |
if ($self->{'has_lines'}) { } |
641
|
0 |
16 |
if ($eol_idx < 0) |
649
|
2 |
0 |
if $eol_idx > $self->{'buf_end'} |
661
|
4 |
17 |
if (@_ > 1) |
664
|
4 |
0 |
if ($new and ref $new) |
683
|
0 |
17 |
unless (defined $new) |
694
|
1 |
0 |
unless defined $joiner |
707
|
1 |
0 |
unless defined $joiner |
722
|
1 |
0 |
unless defined $joiner |
737
|
1 |
0 |
unless defined $joiner |
756
|
0 |
0 |
if @_ > 1 |