bin/mpd-feeder

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use utf8::all;
   6
   7 use App::MPD::Feeder;
   8 use Log::Any qw($log);
   9 use Log::Any::Adapter Stderr => log_level => 'error';
  10
  11 {   # autoflush without IO::Handle
  12     my $fh = select STDERR;
  13     $| = 1;
  14     select $fh;
  15 }
  16
  17 my $feeder = App::MPD::Feeder->new();
  18
  19 if (@ARGV) {
  20     require App::MPD::Feeder::Command;
  21     bless $feeder, 'App::MPD::Feeder::Command';
  22
  23     exit $feeder->run(@ARGV);
  24 }
  25
  26 $feeder->run_loop;