Branch Coverage

blib/lib/Games/Go/AGA/TDListDB.pm
Criterion Covered Total %
branch 71 134 52.9


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