—

              
package Protocol::SocketIO::Handshake;
use strict;
use warnings;
use overload '""' => sub { $_[0]->to_bytes }, fallback => 1;
sub new {
    my $class = shift;
    my $self = bless {@_}, $class;
    return $self;
}
sub to_bytes {
    my $self = shift;
    $self->{transports}
      ||= [qw/websocket flashsocket htmlfile xhr-polling jsonp-polling/];
    my $transports = join ',', @{$self->{transports}};
    for (qw/session_id heartbeat_timeout close_timeout/) {
        die "$_ is required" unless defined $self->{$_};
    }
    return join ':', $self->{session_id}, $self->{heartbeat_timeout},
      $self->{close_timeout}, $transports;
}
1;
__END__
HideShow 22 lines of Pod
=head1 NAME
Protocol::SocketIO::Handshake - Socket.IO handshake construction
=head1 SYNOPSIS
    my $handshake = Protocol::SocketIO::Handshake->new(
        session_id        => 1234567890,
        heartbeat_timeout => 10,
        close_timeout     => 15,
        transports        => [qw/websocket xhr-polling/]
    );
    $handshake->to_bytes; # '1234567890:10:15:websocket,xhr-polling';
=head1 METHODS
=head2 C<new>
=head2 C<to_bytes>
=cut