open_api_client.pl

#!/usr/bin/perl

use strict;
use warnings;

use Mojo::Loader qw(data_section);
use OpenAPI::Client;

my $spec   = data_section 'main', 'swagger.json';
my $client = OpenAPI::Client->new( $spec );

my $tx = $client->post_end({}, body => { ""  => {string1 => "hello"}});

warn $tx->req->to_string;
warn $tx->res->to_string;

__DATA__
@@ swagger.json

{
  "swagger": "2.0",
  "info": {
    "description": "",
    "version": "1.0.0",
    "title" : "test case"
  },
  "host": "localhost:5000",
  "basePath": "/api/v1", 
  "schemes": [
    "http"
  ],
  "paths": {
    "/endpoint" : {
      "post": {
        "summary": "", 
        "description": "Some endpoint that requires a POST request",
        "operationId": "post_end",
        "consumes": [
          "application/json"
        ],
        "parameters": [
          {
            "in": "body",
            "name": "",
            "schema": {
              "type" : "object",
              "required" : [
                "string1"
              ],
              "properties": {
                "string1" : {
                  "type": "string"
                }
              }
            },
            "description": ""
          }
        ],
        "responses": {
          "201": {
            "description": ""
          }
        }
      }
    }
  }
}

@@ output.txt
reneeb@laptop$ perl open_api_client.pl
GET /api/v1/endpoint HTTP/1.1
Host: localhost:5000
Content-Length: 0

HTTP/1.1 400 Bad Request
Date: Tue, 30 Jun 2020 09:15:01 GMT
Content-Length: 65
Content-Type: application/json

{"errors":[{"message":"Missing property.","path":"\/\/string1"}]} at open_api_client.pl line 15.