From 61e09ca077e5a6bb8bcd646b97d56ef99c34261d Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Mon, 18 Mar 2024 12:12:07 +0000
Subject: [PATCH] Allow headers to be deleted

---
 lib/REST/Client.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lib/REST/Client.pm b/lib/REST/Client.pm
index b16f818..258797e 100644
--- a/lib/REST/Client.pm
+++ b/lib/REST/Client.pm
@@ -194,6 +194,23 @@ sub addHeader {
     return;
 }
 
+=head3  deleteHeader ( $header_name )
+
+Remove a custom header from requests made by this client.
+
+=cut
+
+sub deleteHeader {
+    my $self = shift;
+    my $header = shift;
+
+    my $headers = $self->{'_headers'} || {};
+    delete $headers->{$header} if(exists($headers->{$header}));
+    $self->{'_headers'} = $headers;
+    return;
+}
+
+
 =head3 buildQuery ( [...] )
 
 A convienience wrapper around URI::query_form for building query strings from a