view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

--- #YAML:1.0
 name: Net-Shoutcast-Admin
 abstract: Fetch information from a Shoutcast streaming audio server
 version: 0.02
 author:
   - David Precious <davidp@preshweb.co.uk>
 license: perl
 distribution_type: module
 requires:
   perl: 5.005
   LWP::UserAgent: 0
   XML::Simple: 0
   URI::Escape: 0

lib/Net/Shoutcast/Admin.pm  view on Meta::CPAN

            );
        }
            
        return (@listener_objects);
    }
}


=item source_connected

Returns true if the stream is currently up (a source is connected and streaming
audio to the server)

=cut

sub source_connected {
    my $self = shift;
    $self->_fetch_status_xml;   
    return ($self->{data}->{STREAMSTATUS});
}