X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FMusic%2FTag%2FCoveralia.pm;h=f7e3458c054d3b7c6c004c134f2a36d3c399cbcc;hb=refs%2Fheads%2Fmaster;hp=6a2333503ee96b4c08b0e7c3fcff651e74786581;hpb=0feded2e51b5d012d4525dd3bc3d330dd3ed67c5;p=music-tag-coveralia.git

diff --git a/lib/Music/Tag/Coveralia.pm b/lib/Music/Tag/Coveralia.pm
index 6a23335..f7e3458 100644
--- a/lib/Music/Tag/Coveralia.pm
+++ b/lib/Music/Tag/Coveralia.pm
@@ -5,27 +5,31 @@ use strict;
 use warnings;
 use parent qw/Music::Tag::Generic/;
 
-our $VERSION = '0.000_001';
+our $VERSION = '0.001';
 
-use LWP::Simple qw/get/;
+use HTTP::Tiny;
 use WWW::Search;
 
 sub required_values { qw/album/ }
 sub set_values { qw/picture/ }
 
+my $ht = HTTP::Tiny->new(agent => "Music-Tag-Coveralia/$VERSION");
+
 sub get_tag {
 	my ($self) = @_;
 
-	my $album = $self->info->get_data('album');
+	my $album = $self->info->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;
+		next if $self->info->has_data('artist') && $self->info->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')});
+			my $resp = $ht->get($res->cover('frontal'));
+			last unless $resp->{success};
+			$self->info->picture({_Data => $resp->{content}});
 			$self->tagchange('picture');
 		}
 		last
@@ -92,7 +96,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2014 by Marius Gavrilescu
+Copyright (C) 2014-2015 by Marius Gavrilescu
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.20.1 or,