File Coverage

blib/lib/Net/FreeDB2.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	8	0.0
condition	0	6	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	48	35.4

package Net::FreeDB2;

# 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 ':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.6 $ ' =~ /\$Revision:\s+([^\s]+)/;

sub connection {
	# Allow both styles Net::FreeDB2->connection and Net::FreeDB2::connection
	$_[0] eq 'Net::FreeDB2' && shift;

	# Get options
	my $opt;
	if (ref ($_[0]) eq 'HASH') {
		$opt = shift;
	} else {
		$opt = {};
		foreach my $av (split (/\s*;+\s*/, shift)) {
			my ($a, $v) = split (/\s*=\s*/, $av);
			$a && $v || next;
			$opt->{$a} = $v;
		}
	}

	if (defined ($opt->{protocol}) && $opt->{protocol} eq 'CDDBP') {
		require Net::FreeDB2::Connection::CDDBP;
		import Net::FreeDB2::Connection::CDDBP;
		return (Net::FreeDB2::Connection::CDDBP->new ($opt));
	} else {
		require Net::FreeDB2::Connection::HTTP;
		import Net::FreeDB2::Connection::HTTP;
		return (Net::FreeDB2::Connection::HTTP->new ($opt));
	}
}


1;
__END__