vlc.raku


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!/usr/bin/env rakudo 
use v6.d;
use lib 'inst#local','file#lib';
use Config::TOML;
use Vlc::Client;
use Vlc::App;
 
my $config = from-toml(file=>'config.toml');
 
my Vlc::Client $vlc .= new(
    password => $config<vlc><password>,
    base-uri => $config<vlc><base-uri>,
);
 
my Vlc::App $app .= new(
    port => $config<server><port>,
    :$vlc,
);
 
$app.start;
 
react whenever signal(SIGINT) {
    $app.stop;
    exit;
}