--- trunk/lib/Frey/Server.pm 2008/12/10 13:56:43 789 +++ trunk/lib/Frey/Server.pm 2008/12/10 14:22:59 790 @@ -6,6 +6,7 @@ use Data::Dump qw/dump/; +use lib 'lib'; use Frey::Run; has 'port' => ( @@ -32,6 +33,8 @@ This is simple dispatcher for our server. Currently it's in flux and documented only in source code. + my $content_type = $self->request( $url, $params ); + =cut sub print { @@ -50,6 +53,7 @@ } my $path = $url->path; + my $content_type = 'text/plain'; eval { # { @@ -140,6 +144,7 @@ confess "# can't call request on nothing!"; } + $content_type = $f->content_type; }; if ( $@ ) { @@ -149,6 +154,7 @@ # Carp::REPL::repl; } + return $content_type; } sub refresh {