File Coverage

/.cpan/build/Net-FreeDB2-0.8.2.6-xK8Ulr/blib/lib/Net/FreeDB2/Connection.pm

Criterion	Covered	Total	%
statement	15	100	15.0
branch	0	12	0.0
condition	0	5	0.0
subroutine	5	44	11.3
pod	37	38	97.3
total	57	199	28.6

package Net::FreeDB2::Connection;

# Copyright 2002, Vincenzo Zocca.

# See LICENSE section for usage and distribution rights.

require 5.005_62;
use strict;
use warnings;
use Error qw (:try);

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Net::FreeDB2::Connection ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our ( $VERSION ) = '$Revision: 0.8.2.4 $ ' =~ /\$Revision:\s+([^\s]+)/;

sub new {

	my $class = shift;

	my $self = {};
	bless ($self, (ref($class) || $class));
	return ($self->_initialize (@_));
}

sub _initialize {
	my $self = shift;
	my $opt = shift || {};

	# Set client_name and client_version
	defined ($opt->{client_name}) || throw Error::Simple ('ERROR: Net::FreeDB2::Connection::_initialize, mandatory option \'client_name\' missing.');
	$self->setClientName ($opt->{client_name});
	defined ($opt->{client_version}) || throw Error::Simple ('ERROR: Net::FreeDB2::Connection::_initialize, mandatory option \'client_version\' missing.');
	$self->setClientVersion ($opt->{client_version});

	# Set client_host
	if ($opt->{client_host}) {
		$self->setClientHost ($opt->{client_host});
	} else {
		use Sys::Hostname;
		$self->setClientHost (&Sys::Hostname::hostname ());
	}

	# Set client_user
	if ($opt->{client_user}) {
		$self->setClientUser ($opt->{client_user});
	} else {
		$self->setClientUser (scalar (getpwuid ($>)));
	}

	# Set freedb_host
	if ($opt->{freedb_host}) {
		$self->setFreeDBHost ($opt->{freedb_host});
	} else {
		$self->setFreeDBHost ('freedb.freedb.org');
	}

	# Set freedb_port
	$self->setFreeDBPort ($opt->{freedb_port});

	# Set proxy_host
	$self->setProxyHost ($opt->{proxy_host});

	# Set proxy_port
	$self->setProxyPort ($opt->{proxy_port});

	# Set proxy_user
	$self->setProxyUser ($opt->{proxy_user});

	# Set proxy_passwd
	$self->setProxyPasswd ($opt->{proxy_passwd});

	# Connect
	exists ($opt->{no_connect}) || $self->connect ();

	# Return instance
	return ($self);
}

sub connect {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::connect, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub lscat {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::lscat, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub query {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::query, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub read {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::read, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub write {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::write, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub help {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::help, oh come on, RTFM!!!");
}

sub log {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::log, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub motd {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::motd, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub discid {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::discid, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub proto {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::proto, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub sites {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::sites, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub stat {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::stat, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub ver {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::ver, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub update {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::update, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub whom {
	throw Error::Simple ("ERROR: Net::FreeDB2::Connection::whom, call this method either in package Net::FreeDB2::CDDBP or in package Net::FreeDB2::HTTP.");
}

sub setClientName {
	my $self = shift;

	# Set client name
	$self->{Net_FreeDB2_Connection}{client_name} = shift;
}

sub getClientName {
	my $self = shift;

	# Return client version
	return ($self->{Net_FreeDB2_Connection}{client_name});
}

sub setClientVersion {
	my $self = shift;

	# Set client version
	$self->{Net_FreeDB2_Connection}{client_version} = shift;
}

sub getClientVersion {
	my $self = shift;

	# Return client name
	return ($self->{Net_FreeDB2_Connection}{client_version});
}

sub setClientHost {
	my $self = shift;

	# Set client host
	$self->{Net_FreeDB2_Connection}{client_host} = shift;
}

sub getClientHost {
	my $self = shift;

	# Return client host
	return ($self->{Net_FreeDB2_Connection}{client_host});
}

sub setClientUser {
	my $self = shift;

	# Set client user
	$self->{Net_FreeDB2_Connection}{client_user} = shift;
}

sub getClientUser {
	my $self = shift;

	# Return client user
	return ($self->{Net_FreeDB2_Connection}{client_user});
}

sub setFreeDBHost {
	my $self = shift;

	# Set freedb/cddb host
	$self->{Net_FreeDB2_Connection}{freedb_host} = shift;
}

sub getFreeDBHost {
	my $self = shift;

	# Return freedb/cddb host
	return ($self->{Net_FreeDB2_Connection}{freedb_host});
}

sub setFreeDBPort {
	my $self = shift;

	# Set freedb/cddb port
	$self->{Net_FreeDB2_Connection}{freedb_port} = shift;
}

sub getFreeDBPort {
	my $self = shift;

	# Return freedb/cddb port
	return ($self->{Net_FreeDB2_Connection}{freedb_port});
}

sub setProxyHost {
	my $self = shift;

	# Set proxy host
	$self->{Net_FreeDB2_Connection}{proxy_host} = shift;
}

sub getProxyHost {
	my $self = shift;

	# Return proxy host
	return ($self->{Net_FreeDB2_Connection}{proxy_host});
}

sub setProxyPort {
	my $self = shift;

	# Set proxy port
	$self->{Net_FreeDB2_Connection}{proxy_port} = shift;
}

sub getProxyPort {
	my $self = shift;

	# Return proxy port
	return ($self->{Net_FreeDB2_Connection}{proxy_port});
}

sub setProxyUser {
	my $self = shift;

	# Set proxy user
	$self->{Net_FreeDB2_Connection}{proxy_user} = shift;
}

sub getProxyUser {
	my $self = shift;

	# Return proxy user
	return ($self->{Net_FreeDB2_Connection}{proxy_user});
}

sub setProxyPasswd {
	my $self = shift;

	# Set proxy passwd
	$self->{Net_FreeDB2_Connection}{proxy_passwd} = shift;
}

sub getProxyPasswd {
	my $self = shift;

	# Return proxy passwd
	return ($self->{Net_FreeDB2_Connection}{proxy_passwd});
}

sub setConnection {
	my $self = shift;

	# Set connection
	$self->{Net_FreeDB2_Connection}{connection} = shift;
}

sub getConnection {
	my $self = shift;

	# Return connection
	return ($self->{Net_FreeDB2_Connection}{connection});
}

1;
__END__