]>
iEval git - music-tag-coveralia.git/blob - lib/Music/Tag/Coveralia.pm
1 package Music
::Tag
::Coveralia
;
6 use parent qw
/Music::Tag::Generic/;
8 our $VERSION = '0.000_001';
10 use LWP
::Simple qw
/get/;
13 sub required_values
{ qw
/album/ }
14 sub set_values
{ qw
/picture/ }
19 my $album = $self->info->get_data('album');
20 my $ws = WWW
::Search
->new('Coveralia::Albums');
21 $self->status(1, "Searching coveralia for the album $album");
22 $ws->native_query(WWW
::Search
::escape_query
($album));
23 while (my $res = $ws->next_result) {
24 $self->status(1, 'Found album ' . $res->title . ' by ' . $res->artist);
25 next if $self->info->has_data('artist') && $self->info->get_data('artist') ne $res->artist;
26 $self->status(0, 'Selected album ' . $res->title . ' by ' . $res->artist);
27 if ($res->cover('frontal')) {
28 $self->info->set_data(picture
=> {_Data
=> get
$res->cover('frontal')});
29 $self->tagchange('picture');
44 Music::Tag::Coveralia - Get cover art from coveralia.com
49 my $mt = Music::Tag->new($filename);
50 $mt->add_plugin('Coveralia');
55 This plugin gets cover art from L<http://coveralia.com>, based on album and (optionally) artist.
57 =head1 REQUIRED DATA VALUES
63 Used as the search term.
67 =head1 USED DATA VALUES
73 If present, the first album found from this artist is chosen. Otherwise the first album found is chosen.
77 =head1 SET DATA VALUES
87 L<Music::Tag>, L<WWW::Search::Coveralia>, L<http://coveralia.com>
91 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
93 =head1 COPYRIGHT AND LICENSE
95 Copyright (C) 2014 by Marius Gavrilescu
97 This library is free software; you can redistribute it and/or modify
98 it under the same terms as Perl itself, either Perl version 5.20.1 or,
99 at your option, any later version of Perl 5 you may have available.
This page took 0.055046 seconds and 5 git commands to generate.