7 |
|
|
8 |
use MojoX::Dispatcher::Static; |
use MojoX::Dispatcher::Static; |
9 |
|
|
10 |
|
use lib 'lib'; |
11 |
use Frey::Server; |
use Frey::Server; |
12 |
|
|
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
53 |
|
|
54 |
warn "# url $url params ",dump($params); |
warn "# url $url params ",dump($params); |
55 |
|
|
56 |
$server->request( $url, $params ); # fetch body |
my $content_type = $server->request( $url, $params ); # fetch body |
57 |
|
|
58 |
=for developer |
=for developer |
59 |
|
|
68 |
=cut |
=cut |
69 |
|
|
70 |
$tx->res->code(200); |
$tx->res->code(200); |
71 |
$tx->res->headers->content_type('text/html'); |
$tx->res->headers->content_type( $content_type ); |
72 |
$tx->res->body( $body ); |
$tx->res->body( $body ); |
73 |
|
|
74 |
warn dump( $tx->res->headers ); |
warn dump( $tx->res->headers ); |