File Coverage

blib/lib/WWW/Search/Coveralia/Result/Album.pm

Criterion	Covered	Total	%
statement	57	57	100.0
branch	12	16	75.0
condition	4	4	100.0
subroutine	13	13	100.0
pod	7	7	100.0
total	93	97	95.8

package WWW::Search::Coveralia::Result::Album;

use 5.014000;
use strict;
use warnings;
use parent qw/WWW::SearchResult/;

our $VERSION = '0.001';

use HTML::TreeBuilder;
use PerlX::Maybe;

sub artist { shift->_elem(artist => @_) }
sub year   { shift->_elem(year   => @_) }

sub new{
	my ($class, $obj, $url, $title, $artist, $year, $covers) = @_;
	my $self = $class->SUPER::new;
	$self->{obj} = $obj;
	$self->{covers} = $covers if $covers;

	$self->title($title);
	$self->artist($artist);
	$self->year($year);
	$self->add_url($url);
	$self
}

sub parse_page{
	my ($self) = @_;
	my $tree = HTML::TreeBuilder->new_from_url($self->url);
	my $cover_list = $tree->look_down(class => 'lista_normal');
	my @covers = grep { ($_->find('img')->attr('class') // '') ne 'sprites_enviax' } $cover_list->find('a');
	$self->{covers} = {map {lc $_->as_text => $self->{obj}->absurl('', $_->attr('href'))} @covers};
	my @songs = $tree->look_down(id => 'pagina_disco_lista')->find('tr');
	$self->{songs} = [map {
		my ($nr, $title, @extra) = $_->find('td');
		my %ret = (id => $nr->as_text, name => $title->as_text);
		for (@extra) {
			next if ($_->attr('class') // '') eq 'letrano';
			$ret{lyrics} = $self->{obj}->absurl('', $_->find('a')->attr('href')) if $_->as_text =~ /letra/i;
			$ret{video} = $self->{obj}->absurl('', $_->find('a')->attr('href')) if $_->as_text =~ /video/i;
			$ret{tab} = $self->{obj}->absurl('', $_->find('a')->attr('href')) if $_->as_text =~ /acorde/i;
		}
		\%ret
	} @songs]
}

sub covers{
	my ($self) = @_;
	$self->parse_page unless $self->{covers};
	%{$self->{covers}}
}

sub cover{
	my ($self, $cover) = @_;
	$self->parse_page unless $self->{covers};
	$self->{covers}{$cover}
}

sub songs{
	my ($self) = @_;
	$self->parse_page unless $self->{songs};
	@{$self->{songs}}
}

1;
__END__