sub startup { my $app = shift; $app->log->format(sub { my ($time, $level, @lines) = @_; my $time_string = localtime($time); my @caller = caller(4); my $caller = join ' ', $caller[0], $caller[2]; return "[$time_string] [$level] [$caller] @lines\n"; }); my $r = $app->routes; $r->get('/')->to('index#start'); }