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 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 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 person

 my $mini_bio = $person->mini_bio();

date_of_birth()

Returns a date of birth of 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

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

AUTHOR

Mikhail Stepanov nite_man ([email protected])

COPYRIGHT

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