Bailador + Cache::LRU

bailador-caching.pl6

#!/usr/bin/env perl6

use v6;
use lib 'lib';
use Cache::LRU;
use Bailador;
Bailador::import(rootdir => "./examples");

my $cache = Cache::LRU.new(size => 1024);

sub template-cache($template-name, %params) {
  my $key     = [$template-name, |%params.kv].join('-');
  my $content = $cache.get($key);
  return $content if $content.defined;
  return $cache.set($key, template('tmpl.tt', %params) );
}

get / ^ '/template/' (.+) $ / => sub ($x) {
  template-cache('tmpl.tt', { name => $x });
}

baile;

# Test with ab:
#
# ab -n 1000 -c 10 http://0.0.0.0:3000/template/bailador 
#
# with cache:
#  Requests per second:    165.66 [#/sec] (mean)
# without cache:
#  Requests per second:    23.88 [#/sec] (mean)