diff options
Diffstat (limited to 'lib/TextPrinter')
-rw-r--r-- | lib/TextPrinter/ColourGrid.pm | 27 | ||||
-rw-r--r-- | lib/TextPrinter/StarGrid.pm | 19 |
2 files changed, 46 insertions, 0 deletions
diff --git a/lib/TextPrinter/ColourGrid.pm b/lib/TextPrinter/ColourGrid.pm new file mode 100644 index 0000000..fdb9949 --- /dev/null +++ b/lib/TextPrinter/ColourGrid.pm @@ -0,0 +1,27 @@ +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; diff --git a/lib/TextPrinter/StarGrid.pm b/lib/TextPrinter/StarGrid.pm new file mode 100644 index 0000000..012cf07 --- /dev/null +++ b/lib/TextPrinter/StarGrid.pm @@ -0,0 +1,19 @@ +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; |