File Coverage

blib/lib/SockJS/Middleware/JSessionID.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	5	8	62.5
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	35	38	92.1

package SockJS::Middleware::JSessionID;

use strict;
use warnings;

use parent 'Plack::Middleware';

use Plack::Util;

sub call {
    my $self = shift;
    my ($env) = @_;

    my $res = $self->app->(@_);
    return $res unless $env->{'sockjs.transport'};

    return $self->response_cb(
        $res => sub {
            my $res = shift;

            my $h = Plack::Util::headers($res->[1]);

            if (my $cookie = $env->{HTTP_COOKIE}) {
                if ($cookie =~ m/(?:^|;|\s)JSESSIONID\s*=\s*(.+?)(?:\s|;|$)/) {
                    $h->push('Set-Cookie' => "JSESSIONID=$1; Path=/");
                }
            }
            elsif ($self->{cookie}) {
                $h->push('Set-Cookie' => 'JSESSIONID=dummy; Path=/');
            }
        }
    );
}

1;