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