File Coverage

blib/lib/PocketIO/Transport/JSONPPolling.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod			n/a
total	16	27	59.2

package PocketIO::Transport::JSONPPolling;

use strict;
use warnings;

use base 'PocketIO::Transport::BasePolling';

use PocketIO::Util;

sub _get_content {
    my $self = shift;

    my $content = $self->SUPER::_get_content;

    return PocketIO::Util::urlencoded_param($content, 'd');
}

sub _content_type {'text/javascript; charset=UTF-8'}

sub _format_message {
    my $self = shift;
    my ($message) = @_;

    $message =~ s/"/\\"/g;
    return qq{io.j[0]("$message");};
}

1;
__END__