From c0d52b7c34ce2889944cce5a92e949488ff47234 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Tue, 9 Apr 2019 20:27:30 +0200
Subject: Add methods to add query and path parts

---
 lib/URL.pm6 | 32 ++++++++++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

(limited to 'lib/URL.pm6')

diff --git a/lib/URL.pm6 b/lib/URL.pm6
index 57235b4..fa9ebc8 100644
--- a/lib/URL.pm6
+++ b/lib/URL.pm6
@@ -25,7 +25,7 @@ multi method new (
 
 	samewith(
 		|%match,
-		path => %match<path>.list
+		path => %match<path>.list,
 	);
 }
 
@@ -51,6 +51,34 @@ multi method new (
 	);
 }
 
+#| Append one or more parts to the path of the URL.
+method add-path (
+	*@parts,
+
+	--> URL
+) {
+	return self.new(|self.Hash) unless @parts;
+
+	self.new(
+		|self.Hash,
+		path => [|@!path, |@parts],
+	);
+}
+
+#| Append one or more query parameters to the URL.
+method add-query (
+	*%parts,
+
+	--> URL
+) {
+	return self.new(|self.Hash) unless %parts;
+
+	self.new(
+		|self.Hash,
+		query => %(|%!query, |%parts),
+	);
+}
+
 method Hash (
 	--> Hash
 ) {
@@ -111,7 +139,7 @@ multi method Str (
 
 =NAME    URL
 =AUTHOR  Patrick Spek <p.spek@tyil.work>
-=VERSION 0.1.0
+=VERSION 0.2.0
 
 =head1 Synopsis
 
-- 
cgit v1.1