NAME¶

MCP::Server - MCP server implementation

SYNOPSIS¶

  use MCP::Server;
  my $server = MCP::Server->new(name => 'MyServer');
  $server->tool(
    name         => 'echo',
    description  => 'Echo the input text',
    input_schema => {type => 'object', properties => {msg => {type => 'string'}}, required => ['msg']},
    code         => sub ($tool, $args) {
      return "Echo: $args->{msg}";
    }
  );
  $server->prompt(
    name        => 'echo',
    description => 'A prompt to demonstrate the echo tool',
    code        => sub ($prompt, $args) {
      return 'Use the echo tool with the message "Hello, World!"';
    }
  );
  $server->resource(
    uri         => 'file:///example.txt',
    name        => 'example',
    description => 'A simple text resource',
    mime_type   => 'text/plain',
    code        => sub ($resource) {
      return 'This is an example resource content.';
    }
  );
  $server->to_stdio;

DESCRIPTION¶

MCP::Server is an MCP (Model Context Protocol) server.

EVENTS¶

MCP::Server inherits all events from Mojo::EventEmitter and emits the following new ones.

  $server->on(prompts => sub ($server, $prompts, $context) { ... });

  $server->on(resources => sub ($server, $resources, $context) { ... });

  $server->on(tools => sub ($server, $tools, $context) { ... });

ATTRIBUTES¶

MCP::Server implements the following attributes.

  my $name = $server->name;
  $server  = $server->name('MyServer');

  my $prompts = $server->prompts;
  $server    = $server->prompts([MCP::Prompt->new]);

  my $resources = $server->resources;
  $server      = $server->resources([MCP::Resource->new]);

  my $tools = $server->tools;
  $server   = $server->tools([MCP::Tool->new]);

  my $transport = $server->transport;
  $server       = $server->transport(MCP::Server::Transport::HTTP->new);

  my $version = $server->version;
  $server     = $server->version('1.0.0');

METHODS¶

MCP::Tool inherits all methods from Mojo::EventEmitter and implements the following new ones.

  my $response = $server->handle($request, $context);

  my $prompt = $server->prompt(
    name        => 'my_prompt',
    description => 'A sample prompt',
    arguments   => [{name => 'foo', description => 'Whatever', required => 1}],
    code        => sub ($prompt, $args) { ... }
  );

  my $resource = $server->resource(
    uri         => 'file://my_resource',
    name        => 'sample_resource',
    description => 'A sample resource',
    mime_type   => 'text/plain',
    code        => sub ($resource) { ... }
  );

  my $action = $server->to_action;

  $server->to_stdio;

  my $tool = $server->tool(
    name         => 'my_tool',
    description  => 'A sample tool',
    input_schema => {type => 'object', properties => {foo => {type => 'string'}}},
    code         => sub ($tool, $args) { ... }
  );

SEE ALSO¶

MCP, <https://mojolicious.org>, <https://modelcontextprotocol.io>.