File Coverage

blib/lib/Winamp/Control.pm

Criterion	Covered	Total	%
statement	40	43	93.0
branch	4	10	40.0
condition	1	2	50.0
subroutine	9	9	100.0
pod			n/a
total	54	64	84.3

# Author: Murat Uenalan ([e-mail])
#
# Copyright (c) 2002 Murat Uenalan. All rights reserved.
#
# Note: This program is free software; you can redistribute
#
# it and/or modify it under the same terms as Perl itself.

use 5.006; use warnings; use strict;

package Winamp::Control;

use Class::Maker;

use LWP::Simple;

use URI;

use vars qw($AUTOLOAD $VERSION);

our $VERSION = '0.2.1';

Class::Maker::class
{
	public =>
	{
		string => [qw(host passwd)],

		integer => [qw(port)],
	},
};

sub _preinit
{
	my $this = shift;

		$this->host( 'localhost' );

		$this->port( 4800 );
}

sub AUTOLOAD : method
{
	my $this = shift || return undef;

	my @args;

	@args = ( p => $this->passwd ) if defined $this->passwd;

	push @args, @_;

	my $func = $AUTOLOAD;

		$func =~ s/.*:://;

		return if $func eq 'DESTROY';

	my $uri = URI->new;

		$uri->scheme( 'http' );

		$uri->host( $this->host );

	    $uri->port( $this->port );

		$uri->path( $func );

	    $uri->query_form( @args );

    	#$uri->userinfo( 'user:pw' );

		warn $uri->as_string, "\n" if $main::opts{debug};

	my $result = get( $uri->as_string );

		return undef unless $result;

	my @array = ();

		@array = split( '', $result );

return wantarray ? @array : $array[0];
}

1;

__END__