gistfile1.txt

use JSON::Tiny;
class Net::IRC::Modules::Factoids {
    has $.file;
    has %!content = try { from-json slurp $.file } // {};
    multi method said ( $ev where {.what ~~ / ^ \! add \s+ (\w+) \s* (.+) $ /} ) {
        %!content{$0} = ~$1;
        self!save;
    }
    multi method said ( $ev where {.what ~~ / ^ \! (\w+) /}) {
        if %!content{$0} {
            $ev.msg("{$ev.who}: %!content{$0}")
        }
    }
    method !save {
        spurt $.file, to-json %!content;
    }
}