File Coverage

blib/lib/App/MP4Meta/Source/OMDB.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch	2	4	50.0
condition			n/a
subroutine	15	15	100.0
pod	3	3	100.0
total	71	73	97.2

use 5.010;
use strict;
use warnings;

package App::MP4Meta::Source::OMDB;
{
  $App::MP4Meta::Source::OMDB::VERSION = '1.153340';
}

# ABSTRACT: Fetches film data from the OMDB.

use App::MP4Meta::Source::Base;
our @ISA = 'App::MP4Meta::Source::Base';

use App::MP4Meta::Source::Data::Film;

use WebService::OMDB;
use File::Temp  ();
use LWP::Simple ();

use constant NAME     => 'OMDB';
use constant PLOT     => 'short';
use constant RESPONSE => 'json';

sub new {
    my $class = shift;
    my $args  = shift;
    my $self  = $class->SUPER::new($args);

    return $self;
}

sub name {
    return NAME;
}

sub get_film {
    my ( $self, $args ) = @_;

    $self->SUPER::get_film($args);

    my $result = WebService::OMDB::title(
        $args->{title},
        {
            year => $args->{year},
            plot => PLOT,
            r    => RESPONSE
        }
    );

    # get cover file
    # FIXME: never set
    my $cover_file;
    unless ($cover_file) {

        my $poster = $result->{Poster};
        $cover_file = $self->_get_cover_file($poster);
    }

    # FIXME: poster could be null.

    return App::MP4Meta::Source::Data::Film->new(
        overview => $result->{Plot},
        title    => $result->{Title},
        genre    => $result->{Genre},
        cover    => $cover_file,
        year     => $result->{Year},
    );
}

# gets the cover file for the season and returns the filename
# also stores in cache
sub _get_cover_file {
    my ( $self, $url ) = @_;

    my $temp = File::Temp->new( SUFFIX => '.jpg' );
    push @{ $self->{tempfiles} }, $temp;
    if (
        LWP::Simple::is_success(
            LWP::Simple::getstore( $url, $temp->filename )
        )
      )
    {
        return $temp->filename;
    }
}

1;

__END__