package TextPrinter::StarGrid; use Moose; use namespace::autoclean; use Term::ANSIColor; extends 'TextPrinter'; my %colours = ( '*' => color('white','on_black'), ' ' => color('black','on_white'), ); sub draw_cell { my ($self,$cell) = @_; print $colours{$cell},' '; } 1;