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