Get the Last JSON-RPC Response from an MCP Server

See more MCP Client Examples

Demonstrates Mcp.GetLastJsonData, which returns the complete JSON-RPC response envelope (the jsonrpc, id, and result members) from the most recent request into a JsonObject.

Tip: Code to parse the returned JSON can be generated with Chilkat's online tool at https://tools.chilkat.io/jsonParse.

use strict;
use warnings;
use Chilkat2;

my $mcp = Chilkat2::Mcp->new;

# Connect to a public MCP (Model Context Protocol) server over its Streamable HTTP endpoint.  The
# Microsoft Learn MCP server is public and requires no authentication.
my $success = $mcp->Connect('https://learn.microsoft.com/api/mcp');
if (!$success) {
    print $mcp->LastErrorText, "\n";
    exit;
}

# Perform an MCP request.
my $toolsResult = Chilkat2::JsonObject->new;
$success = $mcp->ListTools($toolsResult);
if (!$success) {
    print $mcp->LastErrorText, "\n";
    exit;
}

# Get the complete JSON-RPC response envelope (the jsonrpc, id, and result members) from the most
# recent request.
my $json = Chilkat2::JsonObject->new;
$mcp->GetLastJsonData($json);

$json->EmitCompact(0);
print $json->Emit(), "\n";
# JSON parsing code for this result can be generated at Chilkat's online tool:
# https://tools.chilkat.io/jsonParse