=head1 NAME POE::Component::Client::Icecast - non-blocking client to Icecast server for getting tags =head1 SYNOPSIS use strict; use POE qw(Component::Client::Icecast); use Data::Dumper; POE::Component::Client::Icecast->new( Stream => 'http://station20.ru:8000/station-128', Reconnect => 10, GetTags => sub { warn Dumper $_[ARG0]; }, ); # or POE::Component::Client::Icecast->new( Host => 'station20.ru', Path => '/station-128', RemoteAddress => '87.242.82.108', RemotePort => 8000, BindPort => 8103, # for only one permanent client Reconnect => 10, GetTags => sub { warn Dumper $_[ARG0]; }, ); POE::Kernel->run; =head1 DESCRIPTION The module is a non-blocking client to Icecast streaming multimedia server for getting stream tags. See L. POE::Component::Client::Icecast is based on L. =head1 METHODS =head2 new POE::Component::Client::Icecast->new( Stream => 'http://station20.ru:8000/station-128', # or Host => 'station20.ru', Path => '/station-128', RemoteAddress => '87.242.82.108', RemotePort => 8000, BindPort => 8103, # for only one permanent client # get tags from server GetTags => sub { warn Dumper $_[ARG0]; }, ); PoCo::Client::Icecast's new method takes a few named parameters: =over 9 =item * I The stream url to Icecast stream, which contains domain, port and path to stream. Recommended. Instead of this param you ought to use: I, I, I and I. =item * I The host of Icecast server (without port). =item * I The path to Icecast stream. =item * I The remote address to connect to Icecast server (host or ip). It's a param of L. =item * I The remote port to connect. It's a param of L. =item * I The param specifies the local interface address to bind to before starting to connect. It's a param of L. =item * I The param sets the local socket port that the client will be bound to before starting to connect. It's a param of L. =item * I The event of getting tags from server, it is called for each fully parsed input record from Icecast server. I<$_[ARG0]> contains a hashref of tags. =item * I The flag of reconnect to Icecast server. If this flag exists, client will reconnect to server when an established socket has been disconnected. Delay is value of this param (in seconds). Default value is 0 (no reconnect). =back =head1 DEBUG & TRACE MODES The module supports debug mode and trace mode (trace POE session). BEGIN { $ENV{ICECAST_DEBUG}++; $ENV{ICECAST_TRACE}++ }; use POE::Component::Client::Icecast; =head1 EXAMPLES See I in this distributive. =head1 SEE ALSO L =head1 DEPENDENCIES L L L L =head1 AUTHOR Anatoly Sharifulin, C<< >> =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT & DOCUMENTATION You can find documentation for this module with the perldoc command. perldoc POE::Component::Client::Icecast You can also look for information at: =over 5 =item * Github L =item * RT: CPAN's request tracker L =item * AnnoCPAN: Annotated CPAN documentation L =item * CPAN Ratings L =item * Search CPAN L =back =head1 COPYRIGHT & LICENSE Copyright (C) 2009-2011 Anatoly Sharifulin This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut