Scroll to navigation

Tangence::Server(3pm) User Contributed Perl Documentation Tangence::Server(3pm)

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>

2021-04-30 perl v5.32.1