1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/env rakudo use v6.d;use lib 'lib';use Vlc::Client;use Vlc::App; my Vlc::Client $vlc .= new(:password<ginopino>,:base-uri<http://192.168.1.111:8080/requests/>); my Vlc::App $app .= new(:port(8080), :$vlc); $app.start; react whenever signal(SIGINT) { $app.stop; exit;}