the filler works, and we have two printers

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;