package HTTPProxyHandler;<\/div>
use base qw(Tatsumaki::Handler);<\/div>
__PACKAGE__->asynchronous(1);<\/div>
<\/div>
use Tatsumaki::HTTPClient;<\/div>
<\/div>
sub get {<\/div>
my $self = shift;<\/div>
my $url = $self->request->param(\'url\') || \'http://plackperl.org/\';<\/div>
Tatsumaki::HTTPClient->new->get($url, $self->async_cb(sub {<\/div>
my $res = shift;<\/div>
$self->write($res->content);<\/div>
$self->finish;<\/div>
}));<\/div>
}<\/div>
<\/div>
package main;<\/div>
use Tatsumaki::Application;<\/div>
my $app = Tatsumaki::Application->new([ \'/\' => \'HTTPProxyHandler\' ]);<\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n