view release on metacpan or  search on metacpan

lib/Chess4p/Pgn/Reader.pm  view on Meta::CPAN

my $NAG_SPECULATIVE_MOVE = 5;
my $NAG_DUBIOUS_MOVE = 6;

my $move_text_rx = qr'
                       [NBKRQ]?[a-h]?[1-8]?[\-x]?[a-h][1-8](?:=?[nbrqkNBRQK])?
                     | -- | Z0 | 0000 | @@@@
                     | O-O(?:-O)?
                     | 0-0(?:-0)?    
                     | [?!]{1,2}
                     | \* | 1-0 | 0-1 | 1/2-1/2
                     | \$[0-9]+    # NAG
                     | \{.*        # Game comment    
                     | ;.*         # PGN file comment    
                     | \(          # Variation start
                     | \)          # Variation end
                     'xo;

my $tag_rx = qr'^\[([A-Za-z0-9][A-Za-z0-9_+#=:-]*)\s+\"([^\r]*)\"\]\s*$'o;

my $skip_move_text_rx = qr';|\{|\}'o;