use v6.d;
use Config::TOML;
use lib $?FILE.IO.sibling('lib').Str;
use lib $?FILE.IO.parent(2).child('Red/lib').Str;
use Boha::TrackOps;
use Boha::Karma;
use IRC::Client;
use Red:api<2>;
my $config = from-toml(
file => (%*ENV<BOHA_CONFIG_FILE> // $?FILE.IO.sibling('boha.toml').Str)
);
my $*RED-DEBUG=True;
red-defaults :boha['SQLite', :default];
schema(Boha::KarmaEvent).create;
Boha::KarmaEvent.new-karma('dakkar',$_) for (1,-1,1,1);
Boha::KarmaEvent.new-karma('boha',$_) for (-1,-1,-1,-1);
say Boha::KarmaEvent.current-karma();
=finish