bin/client.pl

   1 #!/usr/bin/env perl
   2 #
   3
   4 use warnings;
   5 use strict;
   6
   7 use lib 'lib';
   8 use POE qw[ Component::Client::MPD ];
   9
  10 POE::Component::Client::MPD->spawn( {alias => 'mpd'} );
  11 POE::Session->create(
  12     inline_states => {
  13         _start     => \&start,
  14         _stop      => sub { print "bye-bye\n"; },
  15         mpd_result => \&result,
  16     }
  17 );
  18 POE::Kernel->run;
  19 exit;
  20
  21
  22
  23 sub start {
  24     my $k = $_[KERNEL];
  25     $k->alias_set('client'); # increment refcount
  26     $k->post( 'mpd', 'coll:all_files' );
  27 }
  28
  29 sub result {
  30     print "yeah!\n";
  31 }
  32