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 IMDB 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 IMDB 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 IMDB person
my $mini_bio = $person->mini_bio();
- date_of_birth()
-
Returns a date of birth of IMDB 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 BUGSPlease, send me any found bugs by email: [email protected].
AUTHOR
Mikhail Stepanov AKA 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.