POE::Wheel::Audio::Mad 0.3

POE::Wheel::Audio::Mad is a POE Wheel implementing in-session non-blocking mpeg stream playing.

SYNOPSIS

use POE;
use POE::Wheel::Audio::Mad;

POE::Session->create(
inline_states => {
_start => &am_start,
message => &am_message
}
);

sub am_start {
my ($kernel, $heap) = @_[KERNEL, HEAP];

## you may also specify decoder options, listed below..
$heap->{wheel} = new POE::Wheel::Audio::Mad ( message_event => message );

$kernel->yield( decoder_open, {
filename => /path/to/some/stream.mp3,
play => 1
});
}

sub am_message {
my ($kernel, $message) = @_[KERNEL, ARG0];

if ($message->{id} eq INPUT_EOF_WARNING) {

print "finished..n";

undef $heap->{wheel};

} elsif ($message->{id} eq DECODER_FRAME_DATA) {

if (defined($message->{data}->{played})) {

print "rplayed: $message->{data}->{played}";

}
}
}

$poe_kernel->run();
exit();

POE::Wheel::Audio::Mad is an attempt to bring a naitive perl mpeg decoder into a perl session. This module was written to work as a POE Wheel due to its nature -- it simply playes mpeg streams -- you have to do the job of controlling the player and handling updates. This really isnt your traditional wheel.