use strict; use warnings; use Plack::Test; use HTTP::Request::Common; use Data::Dumper; my $app = ...; test_psgi app => $app, client => sub { my ($cb) = @_; my $jar = HTTP::Cookies->new; my $res = $cb->(GET '/'); $jar->extract_cookies($res…