lib/WWW/Search/Coveralia/Artists.pm

   1 package WWW::Search::Coveralia::Artists;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use parent qw/WWW::Search::Coveralia/;
   7
   8 our $VERSION = '0.000_001';
   9
  10 use WWW::Search::Coveralia::Result::Artist;
  11 use constant DEFAULT_URL => 'http://www.coveralia.com/mostrar_artistas.php';
  12
  13 sub 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
  20 1;
  21 __END__
  22
  23 =head1 NAME
  24
  25 WWW::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
  36 WWW::Search::Coveralia::Artists is a subclass of WWW::Search that searches for artists using the L<http://coveralia.com> cover art website.
  37
  38 To use this module, read the L<WWW::Search> documentation.
  39
  40 Search results are instances of the L<WWW::Search::Coveralia::Result::Album> Class.
  41
  42 =head1 SEE ALSO
  43
  44 L<http://coveralia.com>, L<WWW::Search>, L<WWW::Search::Coveralia::Albums>
  45
  46 =head1 AUTHOR
  47
  48 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  49
  50 =head1 COPYRIGHT AND LICENSE
  51
  52 Copyright (C) 2014 by Marius Gavrilescu
  53
  54 This library is free software; you can redistribute it and/or modify
  55 it under the same terms as Perl itself, either Perl version 5.18.2 or,
  56 at your option, any later version of Perl 5 you may have available.
  57
  58
  59 =cut