IMDB::Persons: Perl extension for retrieving movies persons from imdb.com

SYNOPSIS

        use IMDB::Persons;

        #
        # Retrieve a person information by IMDB code
        #
        my $person = new IMDB::Persons(crit => '0000129');

        or

        #
        # Retrieve a person information by name
        #
        my $person = new IMDB::Persons(crit => 'Tom Cruise');

        or

        #
        # Process already stored HTML page from IMDB
        #
        my $person = new IMDB::Persons(file => 'imdb.html');

        if($person->status) {
                print "Name: ".$person->name."\n";
                print "Birth Date: ".$person->date_of_birth."\n";
        } else {
                print "Something wrong: ".$person->error."!\n";
        }

DESCRIPTION

IMDB::Persons allows one to retrieve an information about \s-1IMDB\s0 persons (actors, actresses, directors etc): full name, photo, date and place of birth, mini bio and filmography.

Object Private Methods

_init(): Initialize a new object.
_search_person(): Implements a logic to search \s-1IMDB\s0 persons by their names.

Object Public Methods

name()

Retrieve a person full name my $person_name = $person->name();

mini_bio()

Returns a mini bio for specified \s-1IMDB\s0 person my $mini_bio = $person->mini_bio();

date_of_birth()

Returns a date of birth of \s-1IMDB\s0 person in format 'day' 'month caption' 'year': my $d_birth = $person->date_of_birth();

place_of_birth()

Returns a name of place of the birth my $place = $person->place_of_birth();

photo()

Return a path to the person's photo my $photo = $person->photo();

filmography()

Returns a person's filmography as a hash of arrays with following structure: my $fg = $person->filmography();

_\|_DATA_\|_ $fg = { 'Section' => [ { title => 'movie title', role => 'person role', year => 'year of movie production', code => 'IMDB code of movie', } ]; } The section can be In Development, Actor, Self, Thanks, Archive Footage, Producer etc.

genres()

Retrieve a list of movie genres for specified person: my $genres = $persons->genres;

plot_keywords()

Retrieve a list of keywords for movies where specified person plays: my $keywords = $persons->plot_keywords;

EXPORTS

No Matches.=head1 \s-1BUGS\s0

Please, send me any found bugs by email: [email protected].

RELATED TO IMDB::Persons…

IMDB::Film IMDB::BaseClass WWW::Yahoo::Movies HTML::TokeParser

AUTHOR

Mikhail Stepanov \s-1AKA\s0 nite_man ([email protected])

IMDB::Persons (3pm)