post JSON using HTTP::Tiny - cannot parse URL

GertMT has asked for the wisdom of the Perl Monks concerning the following question:

hello all,

trying to post some JSON while using HTTP::Tiny. To my idea I have an okay structure of the data to post and I'm also authorised to post however I get the message 'content' => 'Cannot parse URL: \'HASH(0x7fc154e1fb50)\'.

The full code and result I see from data::Dumper is pasted below. Maybe someone can tell me what I'm doing wrong?

Best,
Gert

sub create_external_inv {
    my $headers = {
        Accept         => "application/json",
        'Content-Type' => "application/json",
        Authorization => "Bearer 123"
    };

    my $url = "https://moneybird.com/api/v2/123/external_sales_invoice
+s";

    my $data = (
        {
            external_sales_invoices => {
                "reference"          => "M-8426",
                "date"               => "2020-03-14",
                "contact_id"         => 456,
                "details_attributes" => [
                    {
                        "description" => "coffee",
                        "price"       => 2.25,
                        "tax_rate_id" => 891
                    }
                ]
            }
        }
    );

    my $agent = HTTP::Tiny->new;
    my $res =
      $agent->post( { url => $url, content => $data, headers => $heade
+rs } );

    print Dumper $res;
    if ( $res->{success} ) {
        print "Okay!\n";
    }
    else {
        print "\n\Nope...\n\n";
    }
}
[download]

The result I see in the log from my Dancer2 app

'content' => 'Cannot parse URL: \'HASH(0x7fc154e1fb50)\'
',
'url' => {
  'content' => {
    'external_sales_invoices' => {
       'reference' => 'M-8426',
       'details_attributes' => [{'tax_rate_id' => '891,
                                 'description' => 'coffee',
                                 'price' => '2.25}],
                 'date' => '2020-03-14',
                 'contact_id' => '456
                           }
                        },
           'headers' => {
                          'Content-Type' => 'application/json',
                          'Accept' => 'application/json',
                          'Authorization' => 'Bearer 123'
                        },
           'url' => 'https://moneybird.com/api/v2/123/external_sales_i
+nvoices'
         },
          'reason' => 'Internal Exception',
          'success' => '',
          'status' => 599,
          'headers' => {
                         'content-type' => 'text/plain',
                         'content-length' => 41
                       }
        };
[download]

Comment on post JSON using HTTP::Tiny - cannot parse URL Select or Download Code

Replies are listed 'Best First'.
Re: post JSON using HTTP::Tiny - cannot parse URL by 1nickt (Canon) on Apr 23, 2020 at 20:23 UTC
Hi, The URL is not a named argument for HTTP::Tiny request methods. It's the first positional argument. Passing a Perl data structure as the content of the POST request won't work. You need to serialize it. Try this with your real auth token: $ perl -Mstrict -MJSON -MData::Dumper -MHTTP::Tiny -E'my $resp = HTTP: +:Tiny->new->post("https://moneybird.com/api/v2/123/external_sales_inv +oices", { headers => {Accept => "application/json", "Content-Type" => + "application/json", Authorization => "Bearer 123"}, content => to_js +on({ external_sales_invoices => { "reference" => "M-8426", "date" => +"2020-03-14", "contact_id" => 456, "details_attributes" => [ { "descr +iption" => "coffee", "price" => 2.25, "tax_rate_id" => 891 } ] } })}) +; say Dumper $resp->{content}' [download] (I get the following:) `$VAR1 = '{"error":"access token invalid","symbolic":{"request":"invali +d_grant"}}';` [download] Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l] [select]
Re: post JSON using HTTP::Tiny - cannot parse URL by choroba (Cardinal) on Apr 23, 2020 at 16:01 UTC
Are you sure about the arguments of post? `$agent->post( { url => $url, content => $data, headers => $headers } ) +;` [download] The tests show something different. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]
Re^2: post JSON using HTTP::Tiny - cannot parse URL by GertMT (Hermit) on Apr 23, 2020 at 16:32 UTC
Thank you for the reference and I promise to look at the tests more often. Very helpful. I didn't get it to work yet and will post later when I've solved it.	[reply]
Re^3: post JSON using HTTP::Tiny - cannot parse URL by GertMT (Hermit) on Apr 23, 2020 at 20:16 UTC
alright with the following code I got it to work. Thanks! sub create_external_inv { my $agent = HTTP::Tiny->new; my $headers = { Accept => "application/json", 'Content-Type' => "application/json", Authorization => "Bearer 123" }; my $url = "https://moneybird.com/api/v2/123/external_sales_invoices"; my $data = { external_sales_invoice => { "reference" => "M-8426", "date" => "2020-03-14", "contact_id" => 456, "details_attributes" => [ { "description" => "coffee", "price" => 2.25, "tax_rate_id" => 891, } ] } }; my $res = $agent->post( $url => { content => to_json($data), headers => $headers } ); print Dumper $res; if ( $res->{success} ) { print "Okay!\n"; } else { print "\n\nNope...\n\n"; } } [download] The results print okay!.	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks