NAME

IMDB::Film - OO Perl interface to the movies database IMDB.

VERSION

IMDB::Film 0.01

SYNOPSIS

        use IMDB;

        my $imdbObj = new IMDB::Film(crit => 227445);

        or

        my $imdbObj = new IMDB::Film(crit => 'Troy');

        if($imdbObj->status) {
                print "Title: ".$imdbObj->title()."\n";
                print "Year: ".$imdbObj->year()."\n";
                print "Plot Symmary: ".$imdbObj->plot()."\n";
        } else {
                print "Something wrong: ".$imdbObj->error;
        }

DESCRIPTION

Overview

IMDB::Film is an object-oriented interface to the IMDB. You can use that module to retrieve information about film: title, year, plot etc.

Constructor and initialization

new()

Object's constructor. You should pass as parameter movie title or IMDB code.

        my $imdb = new IMDB::Film(crit => <some code>);

or

        my $imdb = new IMDB::Film(crit => <some title>);

Also, you can specify following optional parameters:

        - proxy - define proxy server name and port;
        - debug - switch on debug mode (on by default);
        - cache - cache or not of content retrieved pages.

_init()

Initialize object.

Object Private Methods

_search_film()

Implemets functionality to search film by name.

Object Public Methods

title()

Retrieve film title from film page. If was got search page instead of film page this method calls method _search_film to get list matched films and continue to process first one:

        my $title = $film->title();

year()

Get film year:

        my $year = $film->year();

cover()

Retrieve url of film cover:

        my $cover = $film->cover();

directors()

Retrieve film directors list each element of which is hash reference - { id => <ID>, name => <Name> }:

        my @directors = @{ $film->directors() };
        

writers()

Retrieve film writers list each element of which is hash reference - { id => <ID>, name => <Name> }:

        my @writers = @{ $film->writers() };

genres()

Retrieve film genres list:

        my @genres = @{ $film->genres() };

tagline()

Retrieve film tagline:

        my $tagline = $film->tagline();

plot()

Retrieve film plot summary:

        my $plot = $film->plot();

rating()

In scalar context returns film user rating, in array context returns film rating and number of votes:

        my $rating = $film->rating();

        or

        my($rating, $vnum) = $film->rating();
        print "RATING: $rating ($vnum votes )";

cast()

Retrieve film cast list each element of which is hash reference - { id => <ID>, name => <Full Name>, role => <Role> }:

        my @cast = @{ $film->cast() };

duration()

Retrieve film duration in minutes:

        my $duration = $film->duration();

country()

Retrieve film produced countries list:

        my @countries = $film->country();

language()

Retrieve film languages list:

        my @languages = $film->language();

error()

Return string which contains error messages separated by \n:

        my $errors = $film->error();

status()

Return a status of retrieving an information about movie from IMDB: 1 - successful, 0 - something wrong

        my $film = new IMDB::Film(crit => 'Troy');
        if($film->status) {
                print $film->title;
        } else {
                warn "Something wrong: ".$film->error;
        }

summary()

Retrieve film user summary:

        my $descr = $film->summary();
        

certifications()

Retrieve list of film certifications each element of which is hash reference - { country => certificate }:

        my @cert = $film->certifications();

full_plot

Return full movie plot.

Class Variables

%FIELDS

Contains list all object's properties. See description of pragma fields.

@FILM_CERT

Matches USA film certification notation and age.

EXPORTS

Nothing

BUGS

Please, send me any found bugs by email: misha@thunderworx.com.

SEE ALSO

HTML::TokeParser, IMDB::BaseClass, IMDB::Persons, IMDB::Movie

AUTHOR

Michael Stepanov (stepanov.michael@gmail.com)

COPYRIGHT

Copyright (c) 2004, Michael Stepanov. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.