File Coverage

blib/lib/Protocol/SocketIO/Handshake.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	5	6	83.3
pod	2	2	100.0
total	29	32	90.6

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__