RSION = '0.006';
use 5.16.0;
use strict;
use warnings;
use Email::MIME::ContentType;
use URI;
use JSON;
use Carp qw[confess];
use Hash::Merge::Simple 'merge';
use namespace::autoclean;
sub progenitor
pplication') {
my $decoded = $body;
$decoded = from_json($body)
if ($subtype eq 'json');
$decoded = $response->responseXpath
if ($subt