The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Net-WebSocket-0.03_2
River stage zero No dependents
3 ++
/ Net::WebSocket::Handshake::Server

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();