perl and GraphQL example

[Krillian]

Hi,

I am trying to figure out how to post a request from perl to GraphQL API. I couldn't find any tutorials online. As far as I understand I can use this cpan module https://metacpan.org/pod/GraphQL

But I am still confused as to how to do it exactly. If someone could respond with an example, would be very much appreciated.

Here is what I am trying to do: Send a post request to the API with a authentication header and body with query and graphql variables. I should then get a response in JSON, which I will process (this part I understand how to do).

Thank you very much in advance!

[Krillian]

For anyone interested, this is what I ended up doing. Any suggestions are very welcome

This is for the waveapps api

#!/usr/bin/env perl

require LWP::UserAgent;

use JSON;
use Data::Dumper;


my $uri = 'https://gql.waveapps.com/graphql/public';
my $json = <<'EOF';
{"query": "query ($businessId: ID!, $page: Int!, $pageSize: Int!) {
  business(id: $businessId) {
    id
    products(page: $page, pageSize: $pageSize) {
      
      edges {
        node {
          id
          name
          description
          unitPrice
          defaultSalesTaxes {
            id
            name
            abbreviation
            rate
          }

        }
      }
    }
  }
}
", "variables" : { "businessId": "ENTER_BUSINESS_ID_HERE", "page": 1, 
+"pageSize": 500 }
}
EOF

# remove newlines
$json =~ s/(\n|\r)//g;

my $req = HTTP::Request->new( 'POST', $uri );
$req->header( 'Content-Type' => 'application/json', 'Authorization' =>
+ 'Bearer ENTER_BEARER_TOKEN_HERE');
$req->content( $json );

my $lwp = LWP::UserAgent->new;
my $res = $lwp->request( $req );

$data = decode_json($res->content);
print  Dumper($data);

[perlfan]

Here's a list of CPAN modules that use GraphQL. Also looks like GraphQL::Client can offer some insight.

[etj]

The modules-list you link to as "using GraphQL" (which they do) are all server-side (disclosure: I'm the author of all of them). The question is about client-side, which I believe your second link does address (I didn't know about this, a superficial look at the POD tells me it's relevant).