From 27e7a467e0c901ca0ff578b8f99e9fc093487c24 Mon Sep 17 00:00:00 2001
From: Daniel Mita <mienaikage@gmail.com>
Date: Sat, 25 May 2019 11:35:43 +0100
Subject: Add new error message to week 9 challenge #2 for Perl 6

---
 challenge-009/daniel-mita/perl6/ch-2.p6 | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/challenge-009/daniel-mita/perl6/ch-2.p6 b/challenge-009/daniel-mita/perl6/ch-2.p6
index b4db7d8758..bd17512c7d 100644
--- a/challenge-009/daniel-mita/perl6/ch-2.p6
+++ b/challenge-009/daniel-mita/perl6/ch-2.p6
@@ -33,6 +33,14 @@ multi MAIN (
   };
 }
 
+multi GENERATE-USAGE (
+  &main,
+  *@ where { .[1,3…*].all !~~ Numeric },
+  |,
+) {
+  "Error:\n  Non-numeric score given.\n\n" ~ GENERATE-USAGE(&main);
+}
+
 multi GENERATE-USAGE (
   &main,
   *@ where * !%% 2,
-- 
cgit