]>
iEval git - www-search-coveralia.git/blob - Search/Coveralia/Albums.pm
1 package WWW
::Search
::Coveralia
::Albums
;
6 use parent qw
/WWW::Search::Coveralia/;
8 our $VERSION = '0.000_001';
10 use WWW
::Search
::Coveralia
::Result
::Album
;
11 use constant DEFAULT_URL
=> 'http://www.coveralia.com/mostrar_discos.php';
14 my ($self, $row) = @_;
15 my $a = $row->find('a');
16 my ($title, $artist, $year) = map { $_->as_text } $row->find('td');
17 my $url = $self->absurl('', $a->attr('href'));
18 WWW
::Search
::Coveralia
::Result
::Album
->new($self, $url, $title, $artist, $year);
26 WWW::Search::Coveralia::Albums - search for albums on coveralia.com with WWW::Search
31 my $search = WWW::Search->new('Coveralia::Albums');
32 $search->native_query('query');
33 # see WWW::Search documentation for details
37 WWW::Search::Coveralia::Albums is a subclass of WWW::Search that searches for albums using the L<http://coveralia.com> cover art website.
39 To use this module, read the L<WWW::Search> documentation.
41 Search results are instances of the L<WWW::Search::Coveralia::Result::Album> Class.
45 L<http://coveralia.com>, L<WWW::Search>, L<WWW::Search::Coveralia::Artists>
49 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
51 =head1 COPYRIGHT AND LICENSE
53 Copyright (C) 2014 by Marius Gavrilescu
55 This library is free software; you can redistribute it and/or modify
56 it under the same terms as Perl itself, either Perl version 5.18.2 or,
57 at your option, any later version of Perl 5 you may have available.
This page took 0.054814 seconds and 4 git commands to generate.