Gecko [ contributie.vriendennsm.nl ]

Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
Cookie	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
Handshake	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
Client.pm	3.52 KB	-rw-r--r--	2026-07-17 21:17
Cookie.pm	1.64 KB	-rw-r--r--	2026-07-17 21:17
Frame.pm	10.81 KB	-rw-r--r--	2026-07-17 21:17
Handshake.pm	1.09 KB	-rw-r--r--	2026-07-17 21:17
Message.pm	4.65 KB	-rw-r--r--	2026-07-17 21:17
Request.pm	12.95 KB	-rw-r--r--	2026-07-17 21:17
Response.pm	8.24 KB	-rw-r--r--	2026-07-17 21:17
Stateful.pm	795 B	-rw-r--r--	2026-07-17 21:17
URL.pm	2.1 KB	-rw-r--r--	2026-07-17 21:17

package Protocol::WebSocket::Handshake;

use strict;
use warnings;

use Protocol::WebSocket::Request;
use Protocol::WebSocket::Response;

sub new {
    my $class = shift;
    $class = ref $class if ref $class;

my $self = {@_};
    bless $self, $class;

return $self;
}

sub error { @_ > 1 ? $_[0]->{error} = $_[1] : $_[0]->{error} }

sub version { $_[0]->req->version }

sub req { shift->{req} ||= Protocol::WebSocket::Request->new }
sub res { shift->{res} ||= Protocol::WebSocket::Response->new }

1;
__END__

=head1 NAME

Protocol::WebSocket::Handshake - Base WebSocket Handshake class

=head1 DESCRIPTION

This is a base class for L<Protocol::WebSocket::Handshake::Client> and
L<Protocol::WebSocket::Handshake::Server>.

=head1 ATTRIBUTES

=head2 C<error>

$handshake->error;

Set or get handshake error.

=head2 C<version>

$handshake->version;

Set or get handshake version.

=head1 METHODS

=head2 C<new>

Create a new L<Protocol::WebSocket::Handshake> instance.

=head2 C<req>

$handshake->req;

WebSocket request object.

=head2 C<res>

$handshake->res;

WebSocket response object.

=cut