File Coverage

blib/lib/MCP/Primitive.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	15	16	93.7

package MCP::Primitive;
use Mojo::Base -base, -signatures;

use MCP::Server::Context;

has scopes => sub { [] };

sub context ($self) { $self->{context} || MCP::Server::Context->new }

1;

=encoding utf8

=head1 NAME

MCP::Primitive - Primitive base class

=head1 SYNOPSIS

  package MyMCPPrimitive;
  use Mojo::Base 'MCP::Primitive';

  1;

=head1 DESCRIPTION

L is a base class for MCP (Model Context Protocol) primitives such as L, L,
and L.

=head1 ATTRIBUTES

L implements the following attributes.

=head2 scopes

  my $scopes = $primitive->scopes;
  $primitive = $primitive->scopes(['mcp:read', 'mcp:write']);

OAuth scopes required to list or call this primitive, as an array reference; all of them must be granted. This is a
local authorization policy layered on the HTTP transport's L hook, not wire-level
MCP metadata, and is only enforced for requests that supply scopes (so it has no effect over stdio). Defaults to no
required scopes.

=head1 METHODS

L inherits all methods from L and implements the following new ones.

=head2 context

  my $context = $primitive->context;

Returns the L for the current request. Capture this before an async boundary to keep using
its notification methods from later callbacks.

  # Get controller for requests using the HTTP transport
  my $c = $primitive->context->controller;

=head1 SEE ALSO

L, L, L.

=cut