File Coverage

blib/lib/Music/Tag/LyricsFetcher.pm

Criterion	Covered	Total	%
statement	23	32	71.8
branch	3	6	50.0
condition	3	9	33.3
subroutine	7	8	87.5
pod	3	3	100.0
total	39	58	67.2

package Music::Tag::LyricsFetcher;
use strict; use warnings; use utf8;
our $VERSION = '0.4101';

# Copyright © 2008,2010 Edward Allen III. Some rights reserved.
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.

use Lyrics::Fetcher;
use base qw(Music::Tag::Generic);

sub default_options {{
	'lyricsoverwrite' => 0,
	'lyricsfetchers' => undef,
}}

sub get_tag {
    my $self = shift;
    unless ( $self->info->has_data('artist') && $self->info->has_data('title') ) {
        $self->status("Lyrics lookup requires ARTIST and TITLE already set!");
        return;
    }
    if ( $self->info->lyrics && not $self->options->{lyricsoverwrite} ) {
        $self->status("Lyrics already in tag");
    }
    else {
        my $lyrics = Lyrics::Fetcher->fetch($self->info->get_data('artist'), $self->info->get_data('title'), $self->options->{lyricsfetchers});
		if (($Lyrics::Fetcher::Error eq "OK") && ($lyrics)) {
            my $lyricsl = $lyrics;
            $lyricsl =~ s/[\r\n]+/ \/ /g;
            $self->tagchange( "Lyrics", substr( "$lyricsl", 0, 50 ) . "..." );
            $self->info->set_data('lyrics',$lyrics);
            $self->info->changed(1);
        }
        else {
            $self->status("Lyrics not found: ", $Lyrics::Fetcher::Error);
        }
    }
    return $self;
}

sub set_values {
	return qw(lyrics);
}

1;

__END__