#!/usr/bin/perl
use strict;
use warnings;
use utf8::all;
use App::MPD::Feeder;
use Log::Any qw($log);
use Log::Any::Adapter Stderr => log_level => 'error';
{ # autoflush without IO::Handle
my $fh = select STDERR;
$| = 1;
select $fh;
}
my $feeder = App::MPD::Feeder->new();
if (@ARGV) {
require App::MPD::Feeder::Command;
bless $feeder, 'App::MPD::Feeder::Command';
exit $feeder->run(@ARGV);
}
$feeder->run_loop;
__END__
=encoding UTF-8
=head1 NAME
mpd-feeder -- MPD playlist manager with emphasys on diversity
=head1 SYNOPSIS
Engage daemon mode, keeping the MPD playlist full:
mpd-feeder [I