Branch Coverage

blib/lib/Games/Go/AGA/TDListDB.pm
Criterion Covered Total %
branch 17 114 14.9


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 0 if (@_ > 1)
240 1 0 if (@_ > 1)
250 1 1 if (@_ > 1)
260 1 0 if (@_ > 1)
276 1 0 if (@_ > 1)
286 0 0 if (@_ > 1)
296 1 0 if (@_ > 1)
306 1 0 if (@_ > 1)
307 0 1 if (ref $new[0] ne 'CODE')
318 1 0 if (@_ > 1)
319 1 0 if (ref $new[0] eq 'ARRAY') { }
326 0 1 wantarray ? :
332 1 0 if (@_ > 1)
333 1 0 unless ($new)
334 1 0 if (my $fname = $self->dbdname) { }
360 0 0 unless $name
361 0 0 if (@_ > 2)
366 0 0 unless $sth
408 0 0 if (@_ > 1)
424 0 0 if is_Rating($$player[RANK()])
426 0 0 wantarray ? :
433 0 0 unless $new[ID()]
437 0 0 wantarray ? :
451 0 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
494 0 0 if defined $pid
500 0 0 unless (ref $fh)
503 0 0 unless (open $fh, '<', $fname)
510 0 0 if $verbose
515 0 0 if ++$ii % 1000 == 0
516 0 0 if $ii % 40000 == 0
521 0 0 if ($$update[LAST_NAME()] or $$update[FIRST_NAME()])
523 0 0 if ($$update[ID()]) { }
524 0 0 if ($$update[ID()] =~ /tmp/i)
532 0 0 if ($$player[ID()] =~ /tmp/i)
536 0 0 unless ($$update[ID()])
540 0 0 if ($self->select_id($$update[ID()])) { }
555 0 0 if $verbose
557 0 0 if (@errors >= $self->max_update_errors)
564 0 0 if (@errors > 1)
567 0 0 if @errors
574 0 0 if @_ < 2
587 0 0 if @_ < 2
602 0 0 if @_ < 2
617 0 0 if @_ < 2