/ 
MCP-Server-Run-0.001
/ MCP::Server::Run

NAME

MCP::Server::Run - MCP server with a command execution tool

VERSION

version 0.001

SYNOPSIS

package My::MCPServer;
use Mojo::Base 'MCP::Server::Run::Bash', -signatures;

my $server = My::MCPServer->new(
    allowed_commands  => ['ls', 'cat', 'grep'],
    working_directory => '/var/data',
    timeout           => 60,
);
$server->run;

DESCRIPTION

Base class for MCP servers that expose a command execution tool. Subclass MCP::Server and registers a run tool via the MCP protocol when instantiated. Subclasses must implement "execute" to provide the actual execution mechanism.

The registered tool accepts a command string, an optional working_directory, and an optional timeout. The tool returns a text result containing the exit code, stdout, and stderr of the executed command.

See MCP::Server::Run::Bash for a concrete implementation using bash -c.

allowed_commands

ArrayRef of command names (first words) that are permitted to run. When set, any command whose first word is not in this list is rejected with an error result. Defaults to undef, which allows all commands.

my $server = My::MCPServer->new(
    allowed_commands => ['ls', 'cat', 'grep'],
);

working_directory

Default working directory for command execution. Can be overridden per invocation via the working_directory argument passed to the MCP tool. Defaults to undef, which leaves the working directory unchanged.

timeout

Default timeout in seconds for command execution. Can be overridden per invocation via the timeout argument passed to the MCP tool. Defaults to 30.

tool_name

Name of the MCP tool registered by this server. Defaults to run.

tool_description

Description of the MCP tool registered by this server. Defaults to Execute a command and return stdout, stderr, and exit code.

execute

my $result = $self->execute($command, $working_directory, $timeout);

Abstract method that subclasses must implement. Executes $command in $working_directory (may be undef) with the given $timeout in seconds.

Must return a hashref with the following keys:

  • exit_code - Integer exit code of the process.

  • stdout - Captured standard output as a string.

  • stderr - Captured standard error as a string.

  • error - Optional. A string describing an execution-level error (e.g. timeout or spawn failure).

See MCP::Server::Run::Bash for the reference implementation.

format_result

my $mcp_result = $self->format_result($tool, $result);

Formats the hashref returned by "execute" into an MCP tool result. Produces a text block showing the exit code, stdout, and stderr (each section only included when non-empty). Sets the MCP error flag when the exit code is non-zero.

Override this method in a subclass to change the output format.

SEE ALSO

SUPPORT

Issues

Please report bugs and feature requests on GitHub at https://github.com/Getty/p5-mcp-server-run/issues.

CONTRIBUTING

Contributions are welcome! Please fork the repository and submit a pull request.

AUTHOR

Torsten Raudssus <torsten@raudssus.de>

COPYRIGHT AND LICENSE

This software is copyright (c) 2026 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.