Branch Coverage

blib/lib/Games/Go/AGA/TDListDB.pm
Criterion Covered Total %
branch 57 116 49.1


line true false branch
84 4 4 if exists $args{$key}
191 0 0 unless ($self->can($_))
209 0 0 if ($ARGV[0])
210 0 0 if ($ARGV[0] eq 'AGA')
216 0 0 if -f $ARGV[0]
230 1 4 if (@_ > 1)
240 1 0 if (@_ > 1)
250 1 1 if (@_ > 1)
260 1 11 if (@_ > 1)
276 1 0 if (@_ > 1)
286 1 1 if (@_ > 1)
296 1 18 if (@_ > 1)
306 1 13 if (@_ > 1)
307 0 1 if (ref $new[0] ne 'CODE')
318 1 4 if (@_ > 1)
319 1 0 if (ref $new[0] eq 'ARRAY') { }
326 4 1 wantarray ? :
332 1 12 if (@_ > 1)
333 1 0 unless ($new)
334 1 0 if (my $fname = $self->dbdname) { }
360 0 104 unless $name
361 8 96 if (@_ > 2)
366 0 104 unless $sth
408 4 2 if (@_ > 1)
424 0 19 if is_Rating($$player[RANK()])
426 0 19 wantarray ? :
433 0 6 unless $new[ID()]
437 0 6 wantarray ? :
451 5 0 if ($used)
463 0 0 if $kid > 0
472 0 0 if ($self->background)
474 0 0 unless defined $pid
476 0 0 if ($pid)
481 0 0 unless ($$self{'ua'})
486 0 0 if $self->verbose
488 0 0 if $self->verbose
490 0 0 unless open $fh, '<', $fname
495 0 0 if defined $pid
501 0 4 unless (ref $fh)
504 0 0 unless (open $fh, '<', $fname)
511 0 4 if $verbose
516 0 18 if ($verbose)
517 0 0 if ++$ii % 1000 == 0
518 0 0 if $ii % 40000 == 0
524 13 5 if ($$update[LAST_NAME()] or $$update[FIRST_NAME()])
526 8 5 if ($$update[ID()]) { }
527 0 8 if ($$update[ID()] =~ /tmp/i)
535 2 0 if ($$player[ID()] =~ /tmp/i)
539 3 2 unless ($$update[ID()])
543 7 6 if ($self->select_id($$update[ID()])) { }
558 0 0 if $verbose
560 0 18 if (@errors >= $self->max_update_errors)
567 0 4 if (@errors > 1)
570 0 4 if @errors
577 1 0 unless defined $joiner
590 1 0 unless defined $joiner
605 1 0 unless defined $joiner
620 1 0 unless defined $joiner