]> iEval git - www-search-coveralia.git/blame - lib/WWW/Search/Coveralia/Artists.pm
Initial commit
[www-search-coveralia.git] / lib / WWW / Search / Coveralia / Artists.pm
CommitLineData
a97b490d
MG
1package WWW::Search::Coveralia::Artists;
2
3use 5.014000;
4use strict;
5use warnings;
6use parent qw/WWW::Search::Coveralia/;
7
8our $VERSION = '0.000_001';
9
10use WWW::Search::Coveralia::Result::Artist;
11use constant DEFAULT_URL => 'http://www.coveralia.com/mostrar_artistas.php';
12
13sub process_result{
14 my ($self, $row) = @_;
15 my $a = $row->find('a');
16 my ($id) = $a->attr('href') =~ m,/([^/]+)\.php$,;
17 WWW::Search::Coveralia::Result::Artist->new($self, $id, $a->as_text);
18}
19
201;
21__END__
22
23=head1 NAME
24
25WWW::Search::Coveralia::Artists - search for artists on coveralia.com with WWW::Search
26
27=head1 SYNOPSIS
28
29 use WWW::Search;
30 my $search = WWW::Search->new('Coveralia::Artists');
31 $search->native_query('query');
32 # see WWW::Search documentation for details
33
34=head1 DESCRIPTION
35
36WWW::Search::Coveralia::Artists is a subclass of WWW::Search that searches for artists using the L<http://coveralia.com> cover art website.
37
38To use this module, read the L<WWW::Search> documentation.
39
40Search results are instances of the L<WWW::Search::Coveralia::Result::Album> Class.
41
42=head1 SEE ALSO
43
44L<http://coveralia.com>, L<WWW::Search>, L<WWW::Search::Coveralia::Albums>
45
46=head1 AUTHOR
47
48Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
49
50=head1 COPYRIGHT AND LICENSE
51
52Copyright (C) 2014 by Marius Gavrilescu
53
54This library is free software; you can redistribute it and/or modify
55it under the same terms as Perl itself, either Perl version 5.18.2 or,
56at your option, any later version of Perl 5 you may have available.
57
58
59=cut
This page took 0.027556 seconds and 4 git commands to generate.