NAME

Net::WebSocket::Handshake::Server

SYNOPSIS

my $hsk = Net::WebSocket::Handshake::Server->new(

    #required, base 64
    key => '..',

    #optional
    subprotocols => [ 'echo', 'haha' ],
);

#Includes only one trailing CRLF, so you can add additional headers
my $txt = $hsk->create_header_text();

my $b64 = $hsk->get_accept();