From 724c262bf30745cf57bdd0aa1c7e16401d7c566c Mon Sep 17 00:00:00 2001
From: Tom Molesworth <tom@deriv.com>
Date: Wed, 17 Jul 2024 14:07:46 +0800
Subject: [PATCH 1/2] Remove module_true since we still support perl v5.36.0

---
 lib/Myriad/Class.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/Myriad/Class.pm b/lib/Myriad/Class.pm
index d38cffe5..5315527d 100644
--- a/lib/Myriad/Class.pm
+++ b/lib/Myriad/Class.pm
@@ -245,7 +245,6 @@ sub import {
         current_sub
         evalbytes
         fc
-        module_true
         postderef_qq
         state
         unicode_eval

From af322c448b078764bd9ef60dfe5837b501c9614e Mon Sep 17 00:00:00 2001
From: Tom Molesworth <tom@deriv.com>
Date: Wed, 17 Jul 2024 14:07:53 +0800
Subject: [PATCH 2/2] Perl 5.36.0 does not yet support undef-or, but we don't
 need it here anyway

---
 lib/Myriad/Storage/Implementation/Memory.pm | 2 +-
 lib/Myriad/Storage/Implementation/Redis.pm  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Myriad/Storage/Implementation/Memory.pm b/lib/Myriad/Storage/Implementation/Memory.pm
index 9437377c..bff2f668 100644
--- a/lib/Myriad/Storage/Implementation/Memory.pm
+++ b/lib/Myriad/Storage/Implementation/Memory.pm
@@ -273,7 +273,7 @@ Returns a L<Future> which will resolve to .
 
 =cut
 
-async method hash_set : Defer ($k, $hash_key, $v //= undef) {
+async method hash_set : Defer ($k, $hash_key, $v = undef) {
     if(ref $hash_key eq 'HASH') {
         @{$data{$k}}{keys $hash_key->%*} = values $hash_key->%*;
         return 0 + keys $hash_key->%*;
diff --git a/lib/Myriad/Storage/Implementation/Redis.pm b/lib/Myriad/Storage/Implementation/Redis.pm
index bb57e4d1..ab1daeb5 100644
--- a/lib/Myriad/Storage/Implementation/Redis.pm
+++ b/lib/Myriad/Storage/Implementation/Redis.pm
@@ -313,7 +313,7 @@ Returns a L<Future> which will resolve to .
 
 =cut
 
-async method hash_set ($k, $hash_key, $v //= undef) {
+async method hash_set ($k, $hash_key, $v = undef) {
     if(ref $hash_key eq 'HASH') {
         await $redis->hmset($self->apply_prefix($k), $hash_key->%*);
     } else {