MCP协议服务器

use Acme::MCP;

my $mcp = Acme::MCP->new(
    name    => 'MathServer',
    version => '1.0.0'
);

# Define a tool for AI agents
$mcp->add_tool(
    name        => 'add',
    description => 'Adds two numbers',
    schema      => {
        type       => 'object',
        properties => {
            a => { type => 'number' },
            b => { type => 'number' }
        },
        required => ['a', 'b']
    },
    code => sub ($args) {
        return $args->{a} + $args->{b};
    }
);

# Start the server (STDIO transport)
$mcp->run();