Re^3: HTTP::Tiny losing headers for Stripe


Syntactic Confectionery Delight
	PerlMonks

Re^3: HTTP::Tiny losing headers for Stripe

by tangent (Parson)

on Jun 26, 2022 at 13:16 UTC ( [id://11145078]=note: print w/replies, xml )

Need Help??

in reply to Re^2: HTTP::Tiny losing headers for Stripe
in thread HTTP::Tiny losing headers for Stripe

Nothing in the HTTP::Tiny docs but it is in the code:

# line 239
sub post_form {
    my ($self, $url, $data, $args) = @_;
    # ...
    delete $args->{headers};
[download]

The request() method doesn't seem to do this deletion.

Comment on Re^3: HTTP::Tiny losing headers for Stripe Select or Download Code

Replies are listed 'Best First'.

Re^4: HTTP::Tiny losing headers for Stripe
by Bod (Parson) on Jun 26, 2022 at 14:28 UTC

...but it is in the code

Well spotted tangent
I'm sure there was a reason for this behaviour but it does seem very odd!

All my calls to Stripe are in a dedicated module and this has now been modified to get around this issue. The headers are cloned to create a deep copy immediately before the API calls and therefore the original headers don't get clobbered. I've done this with all calls in case any future script makes multiple calls for any reason.

use HTTP::Tiny;
use Clone qw(clone);

my $http = HTTP::Tiny->new;
my $headers = {
    'headers'       => {
        'Authorization' => 'Bearer ' . $Site::Variables::stripe_secret
+,
    },
    'agent'         => 'Wayfinder/v3.0',
};

# for each API call
my $head = clone($headers);
my $response = $http->post_form($stripe_api_url, $payload, $head);
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://11145078]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (3)

As of 2024-04-20 07:14 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found