File Coverage

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

Criterion	Covered	Total	%
statement	12	34	35.2
branch	0	6	0.0
condition	0	5	0.0
subroutine	4	12	33.3
pod	7	7	100.0
total	23	64	35.9

package Net::FreeDB2::Match;

# 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);
use Error qw (:try);

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::Match ':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.3 $ ' =~ /\$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->{categ}) && $self->setCateg ($opt->{categ});
	defined ($opt->{discid}) && $self->setDiscid ($opt->{discid});
	defined ($opt->{dtitle}) && $self->setDtitle ($opt->{dtitle});
	return ($self);
}

sub setCateg {
	my $self = shift;

	$self->{Net_FreeDB2_Match}{categ} = shift;
}

sub getCateg {
	my $self = shift;

	return ($self->{Net_FreeDB2_Match}{categ});
}

sub setDiscid {
	my $self = shift;

	$self->{Net_FreeDB2_Match}{discid} = shift;
}

sub getDiscid {
	my $self = shift;

	return ($self->{Net_FreeDB2_Match}{discid});
}

sub setDtitle {
	my $self = shift;

	$self->{Net_FreeDB2_Match}{dtitle} = shift;
}

sub getDtitle {
	my $self = shift;

	return ($self->{Net_FreeDB2_Match}{dtitle});
}

1;
__END__