blob: a99a3e9a4ec5acfed6f68f3cdceec0b7203ba202 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use v6.d.PREVIEW; use lib 'lib'; use MaildirIndexer::ScanDir; use MaildirIndexer::Store; use MaildirIndexer::Server; use MaildirIndexer::Index::ByRef; sub MAIN($maildir) { my $file-channel = scan-dir($maildir).Channel; my $store = MaildirIndexer::Store.new( :$file-channel, indices => MaildirIndexer::Index::ByRef.new, ); my $server = MaildirIndexer::Server.new(:$store); $store.start(); $server.serve() }
|