From c43764afbb48661f06374330262421774d835bf2 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Mon, 17 Jul 2023 21:00:33 +0200
Subject: [PATCH] Deal with @_ in signatured sub being experimental in Perl
 5.36

---
 lib/RevBank/Cart/Entry.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/RevBank/Cart/Entry.pm b/lib/RevBank/Cart/Entry.pm
index 5233339..84b48ce 100644
--- a/lib/RevBank/Cart/Entry.pm
+++ b/lib/RevBank/Cart/Entry.pm
@@ -8,6 +8,14 @@ no warnings qw(experimental::signatures);
 use Carp qw(carp croak);
 use RevBank::Users;
 use List::Util ();
+use Scalar::Util ();
+
+# Workaround for @_ in signatured subs being experimental and controversial
+my $NONE = \do { my $dummy };
+sub _arg_provided($a) {
+    return 1 if not ref $a;
+    return Scalar::Util::refaddr($a) != Scalar::Util::refaddr($NONE) 
+}
 
 sub new($class, $amount, $description, $attributes = {}) {
     $amount = RevBank::Amount->parse_string($amount) if not ref $amount;
@@ -56,9 +64,9 @@ sub has_attribute($self, $key) {
     );
 }
 
-sub attribute($self, $key, $new = undef) {
+sub attribute($self, $key, $new = $NONE) {
     my $ref = \$self->{attributes}->{$key};
-    $$ref = $new if @_ > 2;
+    $$ref = $new if _arg_provided($new);
     return $$ref;
 }