File Coverage

blib/lib/SockJS/Transport/XHRPolling.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	5	6	83.3
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	2	0.0
total	48	53	90.5

package SockJS::Transport::XHRPolling;

use strict;
use warnings;

use base 'SockJS::Transport::Base';

sub new {
    my $self = shift->SUPER::new(@_);

    push @{$self->{allowed_methods}}, 'POST';

    return $self;
}

sub dispatch_POST {
    my $self = shift;
    my ($env, $conn) = @_;

    return sub {
        my $respond = shift;

        if ($conn->is_connected && !$conn->is_reconnecting) {
            $self->_write($env, $respond,
                'c[2010,"Another connection still open"]');
            return;
        }

        $conn->write_cb(
            sub {
                my $conn = shift;
                my ($message) = @_;

                $self->_write($env, $respond, $message);
                $conn->reconnecting;
            }
        );

        if ($conn->is_closed) {
            $conn->connected;
            $conn->close;
        }
        elsif ($conn->is_connected) {
            $conn->reconnected;
        }
        else {
            $conn->write('o');

            $conn->connected;
        }
    };
}

sub _write {
    my $self = shift;
    my ($env, $respond, $message) = @_;

    $message .= "\n";

    $respond->(
        [
            200, [ 'Content-Type' => 'application/javascript; charset=UTF-8', ],
            [$message]
        ]
    );
}

1;