The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Video::PlaybackMachine::Player - POE component to play movies

SYNOPSIS

  use Video::PlaybackMachine::Player;

  my $player = Video::PlaybackMachine::Player->new();

  # Start the Player session
  $player->spawn();

  # Then, in another session...
  $kernel->post('Player', 'play', sub { "Finished"; }, 0, 'mymovie.mp4');

  # Is the movie still running?
  print "Playing\n" if $player->get_status() == PLAYER_STATUS_PLAY;