The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Tangence::Server - mixin class for building a Tangence server

SYNOPSIS

This class is a mixin, it cannot be directly constructed

package Example::Server;
use base qw( Base::Server Tangence::Server );

sub new
{
   my $class = shift;
   my %args = @_;

   my $registry = delete $args{registry};

   my $self = $class->SUPER::new( %args );

   $self->registry( $registry );

   return $self;
}

sub tangence_write
{
   my $self = shift;
   $self->write( $_[0] );
}

sub on_read
{
   my $self = shift;
   $self->tangence_readfrom( $_[0] );
}

DESCRIPTION

This module provides mixin to implement a Tangence server connection. It should be mixed in to an object used to represent a single connection from a client. It provides a location for the objects in server to store information about the client connection, and coordinates passing messages between the client and the objects in the server.

This is a subclass of Tangence::Stream which provides implementations of the required handle_request_ methods. A class mixing in Tangence::Server must still provide the write method required for sending data to the client.

For an example of a class that uses this mixin, see Net::Async::Tangence::ServerProtocol.

PROVIDED METHODS

The following methods are provided by this mixin.

registry

$server->registry( $registry )

$registry = $server->registry

Accessor to set or obtain the Tangence::Registry object for the server.

OVERRIDEABLE METHODS

The following methods are provided but intended to be overridden if the implementing class wishes to provide different behaviour from the default.

rootobj

$rootobj = $server->rootobj( $identity )

Invoked when a GETROOT message is received from the client, this method should return a Tangence::Object as root object for the connection.

The default implementation will return the object with ID 1; i.e. the first object created in the registry.

permit_registry

$allow = $server->permit_registry

Invoked when a GETREGISTRY message is received from the client, this method should return a boolean to indicate whether the client is allowed to access the object registry.

The default implementation always permits this, but an overridden method may decide to disallow it in some situations. When disabled, a client will not be able to gain access to any serverside objects other than the root object, and (recursively) any other objects returned by methods, events or properties on objects already known. This can be used as a security mechanism.

AUTHOR

Paul Evans <leonerd@leonerd.org.uk>