Just for fun (and to stay sharp with Mojo), I went ahead and coded up a little example of calling another HTTP API and getting the response asynchronously:

#!/usr/bin/env perl
use Mojolicious::Lite -signatures;
use Mojo::IOLoop;
use Mojo::DOM;
use Mojo::UserAgent;
use Mojo::Util qw/dumper/;

my $OTHER_API = 'http://localhost:3000/second_api';

post '/toMFF' => sub ($c) {
    state $ua = Mojo::UserAgent->new;
    my $body = $c->req->body;
    my $dom = Mojo::DOM->new->xml(1)->parse($body); # example
    my $quz = $dom->at('bar[quz]')->{quz};
    $c->render_later;
    $ua->post_p( $OTHER_API => form => { quz => $quz } )
        ->then(sub ($tx) {
            my $res = $tx->result;
            my %stash = ( code=>$res->code, msg=>$res->message,
                timestamp => scalar gmtime, debugmessage=>"" );
            if ($res->is_success) {
                my $j = $res->json;
                $stash{debugmessage} = "Server response: ".dumper($j);
                if ( not $j->{response} ) {
                    $stash{code} = 599;
                    $stash{msg} = "Endpoint reported error";
                }
            }
            else { $stash{debugmessage} = "HTTP error" }
            $c->render('response', format=>'xml', %stash);
        })->catch(sub ($err) {
            # this sends a 500 response to the client:
            $c->reply->exception("The endpoint could not be reached: $
+err");
        });
};

# this API would actually be on a different server
post '/second_api' => sub ($c) {
    my $quz = $c->param('quz');
    my $resp = $quz && $quz=~/\S/
        ? { response => "Thanks for $quz!" }
        : { error => "You didn't provide a quz" };
    # pretend this API is a bit slow
    $c->render_later;
    Mojo::IOLoop->timer(1 => sub { $c->render(json=>$resp) });
};

app->start;

__DATA__
@@ response.xml.ep
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE cXML SYSTEM "http://xml.cXML.org/schemas/cXML/1.1.009/cXML.d
+td">
<cXML payloadID="foo@ceprinter.com" xml:lang="en-US" timestamp="<%= $t
+imestamp %>">
    <Response>
    <Status code="<%= $code %>" text="<%= $msg %>" />
    <!-- <%= $debugmessage %> -->
    </Response>
</cXML>
[download]

Test with e.g. curl -X POST http://127.0.0.1:3000/toMFF -H "Content-Type: application/xml" -d '<foo><bar quz="baz"/></foo>'

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.