2 use Plack::Middleware::Session;
4 use HTTP::Request::Common;
9 my $counter = $env->{'psgix.session'}->{counter} || 0;
11 my $body = "Counter=$counter";
12 $env->{'psgix.session'}->{counter} = $counter + 1;
14 return [ 200, [], [ $body ] ];
17 $app = Plack::Middleware::Session->wrap($app);
22 my $jar = HTTP::Cookies->new;
24 my $res = $cb->(GET "http://localhost/");
25 is $res->content, "Counter=0";
26 $jar->extract_cookies($res);
28 my $req = GET "http://localhost/";
29 $jar->add_cookie_header($req);
31 is $res->content, "Counter=1";