| Current Path : /usr/share/doc/perl-Test-LWP-UserAgent/examples/ |
| Current File : //usr/share/doc/perl-Test-LWP-UserAgent/examples/advent_2012_3.pl |
use strict;
use warnings;
use feature 'say';
use Test::LWP::UserAgent;
use HTTP::Message::PSGI;
use HTTP::Request::Common;
use Plack::Util;
my $useragent = Test::LWP::UserAgent->new;
my $app = Plack::Util::load_psgi('examples/myapp.psgi');
$useragent->register_psgi('mytestdomain.com', $app);
my $response = $useragent->request(GET 'http://mytestdomain.com/foo/bar');
say $response->content;