File Coverage

blib/lib/Games/SGF/Tournament.pm

Criterion	Covered	Total	%
statement	36	55	65.4
branch	5	8	62.5
condition	2	4	50.0
subroutine	6	8	75.0
pod	3	3	100.0
total	52	78	66.6

package Games::SGF::Tournament;

use version; $VERSION = qv(1.0);

use warnings;
use strict;
use Carp;
use CGI qw/ :html /;

sub new {
   my $class = shift;
   my %params = @_;
   $params{sgf_dir} ||= '.';
   $params{base_url} ||= '';
   my %scores;
   my @games;
   undef $/;

   unless (opendir(SGF, $params{sgf_dir})) {
      carp "While opening directory \"$params{sgf_dir}\": $!";
      return undef;
   }
   foreach (grep { /.*\.sgf$/ } readdir SGF) {
      open IN, "$params{sgf_dir}/$_" or next;
      my $sgf_content = ;
      close IN;
      my %game_info = ( file => "$params{base_url}$_" );
      foreach (qw/ RU SZ HA KM PW PB DT TM RE /) {
         if ($sgf_content =~ /$_\[(.*?)\]/) {
            $game_info{$_} = $1;
         } else {
            $game_info{$_} = '?';
         }
      }
      push @games, \%game_info;

      $game_info{RE} =~ /^([BW])\+/o;
      foreach (qw/ B W /) {
         $scores{$game_info{"P$_"}} += $1 eq $_ ? 1:0;
      }
   }
   bless { games => \@games, scores => \%scores }, $class;
}

sub games {
   my $self = shift;
   my @rows = TR(
         th('Game#'),
         th('Black'),
         th('White'),
         th('Setup'),
         th('Date'),
         th('Result')
   );
   my $i;

   foreach (sort { $a->{DT} cmp $b->{DT} } @{ $self->{games} }) {
      push @rows, TR(
         td(a({ -href => $_->{file} }, ++$i)),
         td($_->{PB}),
         td($_->{PW}),
         td("$_->{RU}/$_->{SZ}/$_->{HA}/$_->{KM}/$_->{TM}"),
         td($_->{DT}),
         td($_->{RE})
      );
   }

   return table({ -border => 1 },
      caption('Table of played games'),
      @rows
   );
}

sub scores {
   my $self = shift;
   my @rows = TR(
      th('Pos#'),
      th('Name'),
      th('Score')
   );
   my $i;

   foreach (sort { $self->{scores}->{$b} <=> $self->{scores}->{$a} }
      (keys %{ $self->{scores} })
   ) {
      push @rows, TR(
         td(++$i),
         td($_),
         td($self->{scores}->{$_})
      );
   }

   return table({ -border => 1 },
      caption('Scoreboard'),
      @rows
   );
}

1;
__END__