File Coverage

blib/lib/Chess/Pgn.pm

Criterion	Covered	Total	%
statement	0	108	0.0
branch	0	42	0.0
condition	0	6	0.0
subroutine	0	18	0.0
pod	3	17	17.6
total	3	191	1.5

package Chess::Pgn;

require 5.004;
#use warnings;

require Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '0.03';


           my $LINE ="";
           my $FLAG=1;
           my $GAME=0;


	 sub _init {
		 my $self=shift;
           $self->{Event}="";
           $self->{Site}="";
           $self->{Date}="";
           $self->{Round}="";
           $self->{White}="";
           $self->{Black}="";
           $self->{Result}="";
           $self->{ECO}="";
           $self->{WhiteElo}="";
           $self->{BlackElo}="";
           $self->{PlyCount}="";
           $self->{Game}="";
           $FLAG=1;
           $GAME=0;
		 }

           sub new {
           my $this= shift ;
           my $class= ref($this) || $this ;
           my $file=shift;
           my $self=bless {},$class;
           $self->_init();
           if (defined $file)
            {
             $self->{file} = $file;
             $self->open($file, -umod => $args{-umod}) or return undef;
             }
           return ($self);
           }

		 sub game
           {
              my $self=shift;
              if (@_) {$self{Game}=shift; }
              return $self->{Game}
           }

           sub blackelo
           {
            my $self=shift;
              if (@_) {$self{BlackElo}=shift; }
              return $self->{BlackElo}
           }

	      sub plycount
           {
            my $self=shift;
              if (@_) {$self{PlyCount}=shift; }
              return $self->{PlyCount}
           }


           sub whiteelo
           {
            my $self=shift;
              if (@_) {$self{WhiteElo}=shift; }
              return $self->{WhiteElo}
           }

		 sub eco
           {
              my $self=shift;
              if (@_) {$self{ECO}=shift; }
              return $self->{ECO}
           }


		 sub result
           {
              my $self=shift;
              if (@_) {$self{Result}=shift; }
              return $self->{Result}
           }

		 sub black
           {
              my $self=shift;
              if (@_) {$self{Black}=shift; }
              return $self->{Black}
           }

		 sub white
           {
              my $self=shift;
              if (@_) {$self{White}=shift; }
              return $self->{White}
           }


		 sub round
           {
              my $self=shift;
              if (@_) {$self{Round}=shift; }
              return $self->{Round}
           }

		 sub date
           {
              my $self=shift;
              if (@_) {$self{Date}=shift; }
              return $self->{Date}
           }


		 sub site
           {
              my $self=shift;
              if (@_) {$self{Site}=shift; }
              return $self->{Site}
           }

           sub event
           {
              my $self=shift;
              if (@_) {$self{Event}=shift; }
              return $self->{Event}
           }

           sub open
           {
      	 my ($self, $file, %args) = @_;
            if (defined $file)  { $self->{file} = $file;}
            else { $file = $self->{file};  }

            open FICPGN, "<$file" or return 0;
            $LINE=;
            $LINE=~s/\r//;
		  return 1 ;
           }

		 sub quit
		 {
		  close (FICPGN);
		 }

		 sub PrintAll
		 {
		  my $self=shift;
		  my $return ;
		  my @Keys=(Event,Site,Date,Round,White,Black,Result,ECO,WhiteElo,BlackElo,PlyCount);
 		 foreach my $i ( @Keys )
 		   {
 		   	$return.="[$i \"".$self->{$i}."\"]\n";
 		   }
 		 $return .="\n";
 		 $return.=$self->{Game};
            $return .="\n";
		 }

		 sub ReadGame
		 {
		  my $self=shift;
		  my $continue=1;
		  $self->_init();
		  do
		   {
		    if ( $continue == 2 ) { $continue = 0 }
		    if ( $LINE =~/\[(.*)\]/ )
		     {
		      my $line=$1;
		      my ($key,$val,$junk)=split(/"/,$line);
		      $key=~s/ $//g,
		      $self->{$key}=$val;
		      $GAME=0;
		     }
		    elsif ( $LINE !~/^$/)
		     {
		        $self->{Game}.=$LINE;
		        $GAME=1;
		     }
		    elsif ( $GAME == 1 )
		     {
		        $FLAG=0;
		     }
		    $LINE=;
		    if ( eof(FICPGN) && $continue == 1  ) { $continue = 2  }
              $LINE=~s/\r//;
		   }
		  while ( $FLAG==1 );
		  return ( $continue ) ;
		 }





1;
__END__