Cache

use Red;
use Red::Driver::Cache;

my $*RED-DB = cache "Memory", "SQLite";
my $*RED-CACHE-DEBUG = True;
model Bla { has Int $.a is column }

Bla.^create-table;
Bla.^create: :a($_) for ^6;

.say for Bla.^all.grep: *.a > 3;
.say for Bla.^all.grep: *.a > 3;

Output:

get-from-cache: CACHED_SELECT:bla.a:FROM:bla:WHERE:bla.a::num_>_3
setting data on cache
set-on-cache: CACHED_SELECT:bla.a:FROM:bla:WHERE:bla.a::num_>_3
Bla.new(a => 4)
Bla.new(a => 5)
get-from-cache: CACHED_SELECT:bla.a:FROM:bla:WHERE:bla.a::num_>_3
getting data from cache
Bla.new(a => 4)
Bla.new(a => 5)