File Coverage

blib/lib/WebService/OMDB.pm

Criterion	Covered	Total	%
statement	45	49	91.8
branch	7	14	50.0
condition	0	2	0.0
subroutine	11	11	100.0
pod	3	3	100.0
total	66	79	83.5

use 5.010;
use strict;
use warnings;

package WebService::OMDB;
{
  $WebService::OMDB::VERSION = '1.140440';
}

# ABSTRACT: Interface to http://www.omdbapi.com/

use LWP::UserAgent;
use JSON;

use constant BASE_URL => 'http://www.omdbapi.com/';

sub search {
    my ( $s, $options ) = @_;

    die "search string is required" unless $s;

    my $response = _get( 's', $s, $options );
    if ( $response->is_success ) {

        my $content = decode_json( $response->content );
        return $content->{Search};
    }
    else {
        die $response->status_line;
    }
}

sub id {
    my ( $i, $options ) = @_;

    die "id is required" unless $i;

    my $response = _get( 'i', $i, $options );
    if ( $response->is_success ) {

        my $content = decode_json( $response->content );
        return $content;
    }
    else {
        die $response->status_line;
    }

}

sub title {
    my ( $t, $options ) = @_;

    die "title is required" unless $t;

    my $response = _get( 't', $t, $options );
    if ( $response->is_success ) {

        my $content = decode_json( $response->content );
        return $content;
    }
    else {
        die $response->status_line;
    }

}

sub _get {
    my ( $search_param, $search_term, $options ) = @_;

    my $url = _generate_url( $search_param, $search_term, $options );
    my $ua = LWP::UserAgent->new();
    $ua->agent( $options->{user_agent} ) if $options->{user_agent};
    return $ua->get($url);
}

# generates a url from the options
sub _generate_url {
    my ( $search_param, $search_term, $options ) = @_;

    my $url = sprintf( "%s?%s=%s", BASE_URL, $search_param, $search_term );

    while ( my ( $key, $value ) = each(%$options) ) {
        $url .= sprintf( "&%s=%s", $key, $value // 0 );
    }

    return $url;
}

1;

__END__