File Coverage

blib/lib/WWW/RottenTomatoes.pm

Criterion	Covered	Total	%
statement	9	109	8.2
branch	0	52	0.0
condition			n/a
subroutine	3	17	17.6
pod	14	14	100.0
total	26	192	13.5

package WWW::RottenTomatoes;

use URI::Escape;
use Carp qw{croak};

use base qw{REST::Client};

our $VERSION = 0.03;

sub new {
    my ( $class, %args ) = @_;

    my $self = $class->SUPER::new(
	host => 'http://api.rottentomatoes.com/api/public/v1.0'
    );
    $self->getUseragent()->agent("perl-WWW-RottenTomatoes/$VERSION");

    bless $self, $class;

    # pass params to object
    for my $key ( keys %args ) {
        $self->{$key} = $args{$key};
    }

    $self->{params} = '.json?apikey=' . $self->{api_key};
    if ( $self->{pretty_print} eq 'true') {
        $self->{params} .= '&_prettyprint=' . $self->{pretty_print};
    }

    return $self;
}

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

    if ( !$args{query} ) {
        croak 'movie_search method requires a "query" parameter';
    }

    if ( $args{query} ) {
        $self->{params} .= '&q=' . uri_escape( $args{query} );
    }
    if ( $args{page} ) {
        $self->{params} .= '&page=' . $args{page};
    }
    if ( $args{page_limit} ) {
        $self->{params} .= '&page_limit=' . $args{page_limit};
    }

    $self->GET( '/movies' . $self->{params} );

    return $self->responseContent;
}

sub lists_directory {
    my ( $self ) = @_;

    $self->GET( '/lists' . $self->{params} );

    return $self->responseContent;
}

sub movie_lists_directory {
    my ( $self ) = @_;

    $self->GET( '/lists/movies' . $self->{params} );

    return $self->responseContent;
}

sub dvd_lists_directory {
    my ( $self ) = @_;

    $self->GET( '/lists/dvds' . $self->{params} );

    return $self->responseContent;
}

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

    if ( $args{limit} ) {
        $self->{params} .= '&limit=' . $args{limit};
    }
    if ( $args{country} ) {
        $self->{params} .= '&country=' . $args{country};
    }

    $self->GET( '/lists/movies/opening' . $self->{params} );

    return $self->responseContent;
}

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

    if ( $args{country} ) {
        $self->{params} .= '&country=' . $args{country};
    }
    if ( $args{page} ) {
         $self->{params} .= '&page=' . $args{page};
    }
    if ( $args{page_limit} ) {
         $self->{params} .= '&page_limit=' . $args{page_limit};
    }

    $self->GET( '/lists/movies/upcoming' . $self->{params} );

    return $self->responseContent;
}

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

    if ( $args{country} ) {
	$self->{params} .= '&country=' . $args{country};
    }
    if ( $args{page} ) {
	$self->{params} .= '&page=' . $args{page};
    }
    if ( $args{page_limit} ) {
        $self->{params} .= '&page_limit=' . $args{page_limit};
    }

    $self->GET( '/lists/dvds/new_releases' . $self->{params} );

    return $self->responseContent;
}

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

    if ( !$args{movie_id} ) {
        croak 'movie_info method requires a "movie_id" parameter';
    }

    $self->GET( "/movies/$args{movie_id}" . $self->{params} );

    return $self->responseContent;
}

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

    if ( !$args{movie_id} ) {
        croak 'movie_cast method requires a "movie_id" parameter'
    }

    $self->GET(
	"/movies/$args{movie_id}/cast" . $self->{params} );

    return $self->responseContent;
}

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

    if ( !$args{movie_id} ) {
        croak 'movie_reviews method requires a "movie_id" parameter';
    }

    if ( $args{review_type} ) {
	$self->{params} .= '&review_type=' . $args{review_type};
    }
    if ( $args{country} ) {
	$self->{params} .= '&country=' . $args{country};
    }
    if ( $args{page} ) {
	$self->{params} .= '&page=' . $args{page};
    }
    if ( $args{page_limit} ) {
	$self->{params} .= '&page_limit=' . $args{page_limit};
    }

    $self->GET( "/movies/$args{movie_id}/reviews" . $self->{params} );

    return $self->responseContent;
}

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

    if ( !$args{movie_id} ) {
	 croak 'movie_similar method requires a "movie_id" parameter';
    }

    if ( $args{limit} ) {
         $self->{params} .= '&limit=' . $args{limit};
    }

    $self->GET( "/movies/$args{movie_id}/similar" . $self->{params} );

    return $self->responseContent;
}

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

    if ( $args{country} ) {
        $self->{params} .= '&country=' . $args{country};
    }
    if ( $args{page} ) {
        $self->{params} .= '&page=' . $args{page};
    }
    if ( $args{page_limit} ) {
        $self->{params} .= '&page_limit=' . $args{page_limit};
    }

    $self->GET( '/lists/movies/in_theaters' . $self->{params} );

    return $self->responseContent;
}

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

    if ( !$args{callback_fn} ) {
        croak 'callback method requires a "callback_fn" parameter';
    }

    $self->{params} .= '&callback=' . $args{callback_fn};

    $self->GET( $self->{params} );

    return $self->responseContent;
}

1;

__END__