/ 
SPVM-Sys-0.528
River stage two • 10 direct dependents • 15 total dependents
/ Test::SPVM::Sys::Socket::Server

Name

Test::SPVM::Sys::Socket::Server - Servers for tests for SPVM::Sys::Socket

Description

Test::SPVM::Sys::Socket::Server class has methods to start servers for tests for SPVM::Sys::Socket.

Usage

Fields

socket_domain

my $socket_domain = $self->socket_domain;

A socket domain.

socket_type

my $socket_type = $self->socket_type;

A socket type.

socket_protocol

my $socket_protocol = $self->socket_protocol;

A socket protocol.

io_socket

my $io_socket = $self->io_socket;

An IO::Socket object.

listen_backlog

my $listen_backlog = $self->listen_backlog;

The length of listen backlog.

host

my $host = $self->host;

A host name for intenet domain sockets.

port

my $port = $self->port;

A port number for intenet domain sockets.

path

my $path = $self->path;

A path for UNIX domain sockets.

loop_cb

my $loop_cb = $self->loop_cb;

An anon subroutine for server main loop.

server_options

my $server_options = $self->server_options;

Server options. This should be an hash reference.

Class Methods

new

my $server_manager = Test::SPVM::Sys::Socket::Server->new(%options);

Creates a new Test::SPVM::Sys::Socket::Server object and returns it.

Options:

  • socket_domain

    Sets "socket_domain" field to this value.

  • socket_type

    my $socket_type = $self->socket_type;

    Sets "socket_type" field to this value.

  • socket_protocol

    my $socket_protocol = $self->socket_protocol;

    Sets "socket_protocol" field to this value.

  • listen_backlog

    my $listen_backlog = $self->listen_backlog;

    Sets "listen_backlog" field to this value.

  • host

    my $host = $self->host;

    Sets "host" field to this value.

  • port

    my $port = $self->port;

    Sets "port" field to this value.

  • path

    my $path = $self->path;

    Sets "path" field to this value.

  • loop_cb

    my $loop_cb = $self->loop_cb;

    Sets "loop_cb" field to this value.

  • server_options

    my $server_options = $self->server_options;

    Sets "server_options" field to this value. This value must be a hash reference if specified.

    If this option is not defined, the field is set to an emtpy hash reference.

new_echo_server_ipv4_tcp

my $server_manager = Test::SPVM::Sys::Socket::Server->new_echo_server_ipv4_tcp(%options);

Creates a new a new Test::SPVM::Sys::Socket::Server object that has the features for an IPv4-TCP echo server and returns it.

An IO::Socket::IP object is created and "io_socket" field is set to an IO::Socket::IP object.

A client can signal to the echo server that it is done writing with SHUT_WR.

use Sys::Socket;
use Sys::Socket::Constant as SOCKET;

Sys::Socket->shutdown($socket, SOCKET->SHUT_WR);

The options %options are the same as ones of "new" method.

Instance Methods

start

$server_manager->start;

Starts the server.

This method call a subroutine stored in "loop_cb" field given the Test::SPVM::Sys::Socket::Server object at 1th argument.