package
Pegex::Chess::Data;
use
Pegex::Base;
sub
got_row {
my
(
$self
,
$got
) =
@_
;
[
map
{ s/ /_/;
$_
}
@$got
];
}
1;
package
Pegex::Chess::Data;
use
Pegex::Base;
sub
got_row {
my
(
$self
,
$got
) =
@_
;
[
map
{ s/ /_/;
$_
}
@$got
];
}
1;