File Coverage

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

Criterion	Covered	Total	%
statement	9	41	21.9
branch	0	10	0.0
condition	0	5	0.0
subroutine	3	15	20.0
pod	11	11	100.0
total	23	82	28.0

package Net::FreeDB2::Site;

# Copyright 2002, Vincenzo Zocca.

# See LICENSE section for usage and distribution rights.

require 5.005_62;
use strict;
use warnings;

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::Site ':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.9 $ ' =~ /\$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 || {};

	defined ($opt->{site}) && $self->setSite ($opt->{site});
	defined ($opt->{port}) && $self->setPort ($opt->{port});
	defined ($opt->{latitude}) && $self->setLatitude ($opt->{latitude});
	defined ($opt->{longitude}) && $self->setLongitude ($opt->{longitude});
	defined ($opt->{description}) && $self->setDescription ($opt->{description});
	return ($self);
}

sub setSite {
	my $self = shift;

	$self->{Net_FreeDB2_Site}{site} = shift;
}

sub getSite {
	my $self = shift;

	return ($self->{Net_FreeDB2_Site}{site});
}

sub setPort {
	my $self = shift;

	$self->{Net_FreeDB2_Site}{port} = shift;
}

sub getPort {
	my $self = shift;

	return ($self->{Net_FreeDB2_Site}{port});
}

sub setLatitude {
	my $self = shift;

	$self->{Net_FreeDB2_Site}{latitude} = shift;
}

sub getLatitude {
	my $self = shift;

	return ($self->{Net_FreeDB2_Site}{latitude});
}

sub setLongitude {
	my $self = shift;

	$self->{Net_FreeDB2_Site}{longitude} = shift;
}

sub getLongitude {
	my $self = shift;

	return ($self->{Net_FreeDB2_Site}{longitude});
}

sub setDescription {
	my $self = shift;

	$self->{Net_FreeDB2_Site}{description} = shift;
}

sub getDescription {
	my $self = shift;

	return ($self->{Net_FreeDB2_Site}{description});
}

1;
__END__