better request information example for tutorial

mojolicious · Mar 30, 2013 · ca7359d · ca7359d
1 parent 4504dda
commit ca7359d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Mojolicious/Lite.pm b/lib/Mojolicious/Lite.pm
@@ -217,8 +217,10 @@ full access to all HTTP features and information.
   # Access response and request headers
   get '/agent' => sub {
     my $self = shift;
+    my $host = $self->req->url->to_abs->host;
+    my $ua   = $self->req->headers->user_agent;
     $self->res->headers->header('X-Bender' => 'Bite my shiny metal ass!');
-    $self->render(text => $self->req->headers->user_agent);
+    $self->render(text => qq{Request by "$ua" reached $host.});
   };
 
   app->start;