package TextPrinter::ColourGrid; use Moose; use namespace::autoclean; use Term::ANSIColor; extends 'TextPrinter'; my @colours = ( color('reset'), # filler ( map { color($_,'on_black') } 'dark yellow', 'dark green', 'dark red', 'dark white', ), ( map { color($_,'on_white') } 'blue', 'green', 'red', 'dark magenta', ), ); sub draw_cell { my ($self,$cell) = @_; print $colours[$cell->[0]], $cell->[1]; } 1;