From bb450bd96b02b48ed8b277fa0a6ca5c97037a680 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Sat, 4 Jul 2020 13:46:25 +0200
Subject: Overhaul Config to 3.0.0

---
 lib/Config/Parser.pm6      | 29 ++++++++---------------------
 lib/Config/Parser/NULL.pm6 | 45 +++++++++++++++++----------------------------
 2 files changed, 25 insertions(+), 49 deletions(-)

(limited to 'lib/Config')

diff --git a/lib/Config/Parser.pm6 b/lib/Config/Parser.pm6
index d067513..5d0343b 100644
--- a/lib/Config/Parser.pm6
+++ b/lib/Config/Parser.pm6
@@ -1,26 +1,13 @@
 #! /usr/bin/env false
 
-use v6.c;
+use v6.d;
 
-use Config::Exception::UnimplementedMethodException;
+unit class Config::Parser;
 
-class Config::Parser
-{
-    #| Attempt to read the file at a given $path, and returns its
-    #| parsed contents as a Hash.
-    method read(Str $path --> Hash)
-    {
-        Config::Exception::UnimplementedMethodException.new(
-            method => "read"
-        ).throw();
-    }
+#| Attempt to read the file at a given $path, and returns its
+#| parsed contents as a Hash.
+method read(IO() $path --> Hash) { … }
 
-    #| Attempt to write the $config Hash at a given $path. Returns
-    #| True on success, False on failure.
-    method write(Str $path, Hash $config --> Bool)
-    {
-        Config::Exception::UnimplementedMethodException.new(
-            method => "write"
-        ).throw();
-    }
-}
+#| Attempt to write the $config Hash at a given $path. Returns
+#| True on success, False on failure.
+method write(IO() $path, Hash $config --> Bool) { … }
diff --git a/lib/Config/Parser/NULL.pm6 b/lib/Config/Parser/NULL.pm6
index 2352cfc..2845e3c 100644
--- a/lib/Config/Parser/NULL.pm6
+++ b/lib/Config/Parser/NULL.pm6
@@ -1,41 +1,30 @@
 #! /usr/bin/env false
 
-use v6.c;
+use v6.d;
 
 use Config::Parser;
 
 #| The Config::Parser::NULL is a parser to mock with for testing purposes.
 #| It exposes an additional method, set-config, so you can set a config
 #| Hash to return when calling `read`.
-class Config::Parser::NULL is Config::Parser
-{
-    my %mock-config = ();
-
-    #| Return the mock config, skipping the file entirely.
-    multi method read(Str $path --> Hash)
-    {
-        %mock-config;
-    }
+unit class Config::Parser::NULL is Config::Parser;
 
-    multi method read(IO::Path $path --> Hash)
-    {
-       %mock-config;
-    }
+my %mock-config;
 
-    #| Set the mock config to return on read.
-    method set-config(Hash $config)
-    {
-        %mock-config = $config;
-    }
+#| Return the mock config, skipping the file entirely.
+multi method read(IO() $path --> Hash)
+{
+	%mock-config;
+}
 
-    #| Return True, as if writing succeeded.
-    multi method write(Str $path, Hash $config --> Bool)
-    {
-        True;
-    }
+#| Set the mock config to return on read.
+method set-config(Hash $config)
+{
+	%mock-config = $config;
+}
 
-    multi method write(IO::Path $path, Hash $config --> Bool)
-    {
-        True;
-    }
+#| Return True, as if writing succeeded.
+multi method write(IO() $path, Hash $config --> Bool)
+{
+	True;
 }
-- 
cgit v1.1