view release on metacpan or  search on metacpan

t/live_app_session.t  view on Meta::CPAN

      require Catalyst::Plugin::Session;
      require Catalyst::Plugin::Session::State::Cookie;
    } or do {
      plan skip_all => "This test needs Catalyst::Plugin::Session and Catalyst::Plugin::Session::State::Cookie installed";
    }
}

use lib 't/lib';
use Catalyst::Test qw/AuthSessionTestApp/;
use HTTP::Cookies;
use HTTP::Request::Common qw(GET);

my $jar = HTTP::Cookies->new;
sub _request {
    my $url = shift;
    $url =~ s{^/}{http://localhost/};
    my $req = GET $url;
    $jar->add_cookie_header($req);
    my $res = request($req);
    $jar->extract_cookies($res);
    return $res;