File Coverage

blib/lib/Music/Tag/Coveralia.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	3	4	75.0
condition	2	3	66.6
subroutine	7	9	77.7
pod	3	3	100.0
total	47	53	88.6

package Music::Tag::Coveralia;

use 5.014000;
use strict;
use warnings;
use parent qw/Music::Tag::Generic/;

our $VERSION = '0.000_001';

use LWP::Simple qw/get/;
use WWW::Search;

sub required_values { qw/album/ }
sub set_values { qw/picture/ }

sub get_tag {
	my ($self) = @_;

	my $album = $self->info->get_data('album');
	my $ws = WWW::Search->new('Coveralia::Albums');
	$self->status(1, "Searching coveralia for the album $album");
	$ws->native_query(WWW::Search::escape_query($album));
	while (my $res = $ws->next_result) {
		$self->status(1, 'Found album ' . $res->title . ' by ' . $res->artist);
		next if $self->info->has_data('artist') && $self->info->get_data('artist') ne $res->artist;
		$self->status(0, 'Selected album ' . $res->title . ' by ' . $res->artist);
		if ($res->cover('frontal')) {
			$self->info->set_data(picture => {_Data => get $res->cover('frontal')});
			$self->tagchange('picture');
		}
		last
	}

	return $self->info
}

1;
__END__