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 my $feeder = App::MPD::Feeder->new();
  12
  13 if (@ARGV) {
  14     require App::MPD::Feeder::Command;
  15     bless $feeder, 'App::MPD::Feeder::Command';
  16
  17     exit $feeder->run(@ARGV);
  18 }
  19
  20 $feeder->run_loop;