From 86f7c7f6b63b24210ec3ed3e88d9d0f53d33f805 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 28 Dec 2019 15:27:03 +0000 Subject: naive-bayes classifying index half-tested by hand --- bayes | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'bayes') diff --git a/bayes b/bayes index a99a3e9..2601874 100644 --- a/bayes +++ b/bayes @@ -5,12 +5,16 @@ use MaildirIndexer::ScanDir; use MaildirIndexer::Store; use MaildirIndexer::Server; use MaildirIndexer::Index::ByRef; +use MaildirIndexer::Index::ByAddresses; sub MAIN($maildir) { my $file-channel = scan-dir($maildir).Channel; my $store = MaildirIndexer::Store.new( :$file-channel, - indices => MaildirIndexer::Index::ByRef.new, + indices => ( + MaildirIndexer::Index::ByRef.new, + MaildirIndexer::Index::ByAddresses.new, + ), ); my $server = MaildirIndexer::Server.new(:$store); -- cgit v1.2.3