use Sup;

class Cache does GenServer {
    has %.data;
    method get(Str() $key) is callable {
        %!data{$key}
    }
    method delete(Str() $key) is callable {
        %!data{$key}:delete
    }
    method set(Str() $key, \value) is castable {
        %!data{$key} = value
    }
}

supervisor { Cache.new }