man IMDB::Persons () - Perl extension for retrieving movies persons from IMDB.com
NAME
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 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 array of hashes with a following
structure:
my $fg = $person->filmography();
__DATA__ $fg = [ { title => 'movie title', role => 'person role', year => 'year of movie production', code => 'IMDB code of movie', } ];
EXPORTS
Nothing
BUGS
Please, send me any found bugs by email: stepanov.michael@gmail.com.
SEE ALSO
IMDB::Film IMDB::BaseClass WWW::Yahoo::Movies HTML::TokeParser
AUTHOR
Mikhail Stepanov (stepanov.michael@gmail.com)
COPYRIGHT
Copyright (c) 2004 - 2005, Mikhail Stepanov. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.