File Coverage

blib/lib/WWW/Search/Coveralia/Albums.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	31	32	96.8

package WWW::Search::Coveralia::Albums;

use 5.014000;
use strict;
use warnings;
use parent qw/WWW::Search::Coveralia/;

our $VERSION = '0.000_001';

use WWW::Search::Coveralia::Result::Album;
use constant DEFAULT_URL => 'http://www.coveralia.com/mostrar_discos.php';

sub process_result{
	my ($self, $row) = @_;
	my $a = $row->find('a');
	my ($title, $artist, $year) = map { $_->as_text } $row->find('td');
	my $url = $self->absurl('', $a->attr('href'));
	WWW::Search::Coveralia::Result::Album->new($self, $url, $title, $artist, $year);
}

1;
__END__