File Coverage

blib/lib/Net/CDDBSearch.pm

Criterion	Covered	Total	%
statement	60	97	61.8
branch	12	42	28.5
condition	0	6	0.0
subroutine	13	15	86.6
pod	2	8	25.0
total	87	168	51.7

package Net::CDDBSearch;

require 5.005_62;
use strict;

use LWP::Simple;
use URI::Escape;

require Exporter;

our @ISA = qw/Exporter/;

our @EXPORT = qw//;

our @EXPORT_OK = qw/new get_albums_artist get_albums_album get_songs_album albums tracks info url/;

our $VERSION = '2.01';


sub new {
    my $class = shift;
    my $self = {
	DEBUG => undef,
	@_
   };
    bless($self, $class);
    $self ? return $self : return undef;
}


sub albums {
    my $self = shift;
    return $self->{ALBUMS};
}


sub tracks {
    my $self = shift;
    return $self->{TRACKS};
}

sub info {
    my $self = shift;
    return {'Title'	=> $self->{TITLE},
	    'Artist'	=> $self->{ARTIST},
	    'Year' 	=> $self->{YEAR},
	    'Genre'	=> $self->{GENRE},
	    'Tracks'	=> $self->{TRACKN},
	    'Time'	=> $self->{TIME}};
}


sub url {
    my $self = shift;
    my $line = lc(shift);

    if($self->{TYPE} eq 'artist') {
	foreach (keys %{$self->{ALBUMS}}) {
	    return $_ if (lc($self->{ALBUMS}->{$_}[0]) eq lc($self->{QUERY}) && lc($self->{ALBUMS}->{$_}[1]) eq $line);
	}
    } elsif($self->{TYPE} eq 'disc') {
	foreach (keys %{$self->{ALBUMS}}) {
	    return $_ if (lc($self->{ALBUMS}->{$_}[1]) eq lc($self->{QUERY}) && lc($self->{ALBUMS}->{$_}[0]) eq $line);
	}
    }
    return undef;
}


sub get_albums_artist {
    my $self      = shift;
    $self->{QUERY}= shift;

    if ($self->{QUERY}) {
	$self->{URL}   = uri_escape($self->{QUERY});
	$self->{ERROR} = undef;
	$self->{TYPE}  = 'artist';
	print "$self >> Calling _get_albums();\n" if $self->{DEBUG};
	$self = _get_albums($self);
	defined $self->{ERROR} ? return undef : return $self;
    }
    $self->{ERROR} = 'No query provided';
    return undef;
}

sub get_albums_album {
    my $self      = shift;
    $self->{QUERY}= shift;

    if ($self->{QUERY}) {
	$self->{URL}   = uri_escape($self->{QUERY});
	$self->{ERROR} = undef;
	$self->{TYPE}  = 'title';
	print "$self >> Calling _get_albums();\n" if $self->{DEBUG};
	$self = _get_albums($self);
	defined $self->{ERROR} ? return undef : return $self;
    }
    $self->{ERROR} = 'No query provided';
    return undef;
}


sub get_songs_album {
    my $self = shift;
    $self->{URL}= shift;

    if ($self->{URL}) {
	$self->{ERROR} = undef;
	$self->{TYPE} = 'track';
	print "$self >> Calling _get_songs();\n" if defined $self->{DEBUG};
	$self = _get_songs($self);
	defined $self->{ERROR} ? return undef : return $self;
    }
    $self->{ERROR} = 'No url provided';
    return undef;
}


sub DESTROY {
    my $self = shift;
    $self = {};
    return 1;
}

sub _get_url {
    my $self = shift;
    unless ($self->{URL} =~ /^http/) {
	$self->{URL} = 'http://www.freedb.org/freedb_search.php?allfields=NO&allcats=YES&grouping=none&words=' . $self->{URL};
	$self->{URL} .= '&fields=' . $self->{TYPE};
    }

    print "$self >> URL: $self->{URL}\n" if $self->{DEBUG};
    my $data = get($self->{URL});

    $self->{DATA} = $data;
    return $self;
}

sub _get_albums {
    my $self = shift;

    my($line, $n1, $n2, $n3, $n4);

    print "$self >> Calling _get_url();\n" if $self->{DEBUG};
    $self = _get_url($self);

    return $self if (!$self->{DATA});

    while ($self->{DATA} =~ m!([^<]+)\s+\/\s+([^<]+)!ig) {
	($n1,$n2,$n3,$n4) = ($1,$2,$3,$4);
	$self->{ALBUMS}->{$n1.'/freedb_search_fmt.php?'.$n2} = [$n3,$n4];
    }
    return $self;
}


sub _get_songs {
    my $self = shift;

    my($line, $n1, $n2, $n3, $n4);

    print "$self >> Calling _get_url();\n" if defined $self->{DEBUG};

    $self = _get_url($self);

    return $self if (!$self->{DATA});

    if ($self->{DATA} =~ m!([^<]+)\s+\/\s+([^<]+)\s*tracks:\s+([^<]*)\s*total time:\s+([^<]*)\s*year:\s+([^<]*)\s*genre:\s+([^<]*)!is) {
	$self->{ARTIST} = $1;
	$self->{TITLE}  = $2;
	$self->{GENRE}  = $6;
	$self->{YEAR}   = $5;
	$self->{TRACKN} = $3;
	$self->{TIME}   = $4;
    }

    while ($self->{DATA} =~ m!
	$self->{TRACKS}->{$1} = $3;
    }
    $self->{DATA} = undef;
    return $self;
}

1;

__END__