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; __END__ =head1 AUTHOR Gianni Ceccarelli =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2012 by Gianni Ceccarelli. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Affero General Public License as published by the Free Software Foundation, version 3. =cut