view release on metacpan or  search on metacpan

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

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

  
sub read_game {
    my ($fh, $visitor) = @_;

    my @errors;

    my $line = <$fh>;

    # Remove BOM if needed
    $line =~ s/^\x{FEFF}// if defined $line;

    say "10---------> $line" if $_debug;

    # Ignore leading empty lines and comments.
    while (defined $line && $line =~/^[;%]?\s*$/) {
        $line = <$fh>; #  Use of uninitialized value $line in pattern match (m//) at lib/Chess4p/Pgn/Reader.pm line 53,
    }

    return undef unless $line;