afterware for any server abiding by HTTP::Server
Perl 6
Switch branches/tags
Nothing to show
Latest commit 7b886e7 Oct 10, 2017 @tony-o tony-o use zef on travis
Failed to load latest commit information.
lib/HTTP/Server travel May 28, 2015
t travel May 28, 2015
.travis.yml use zef on travis Oct 10, 2017
META6.json use zef on travis Oct 10, 2017 use zef on travis Oct 10, 2017


Uses apache log format for logging, you can specify custom formats also.

By default this module uses the common log format specified by Apache.


use HTTP::Server::Logger;
use HTTP::Server::Threaded;

qw<... set up server stuff ...>;

my HTTP::Server::Logger $log .= new;

$server.after($log.logger); #the logger now logs when the server is closed

$log.format('[%s] %t %U'); #set the format for the log

$log.pretty-log; #use a pretty format '[%s] %{%Y/%m/%d %H:%m}t %U'


custom logger

you can use this logger for custom logging as long as you're okay with the apache log format

use HTTP::Server::Logger;

my HTTP::Server::Logger $log .= new(fmt => '%t %Z');

  t => 'something t',
  Z => 'something Z',

# output: 'something t something Z'

need some custom formatting for Z?

my HTTP::Server::Logger $log .= new(fmt => '%t %Z');

$log.custom<Z> = sub ($data) { return $data.UC; };

  t => 'something t',
  Z => 'lowercase',

# output: 'something t LOWERCASE'