The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

WWW::Moviepilot::Person - Handle moviepilot.de people

SYNOPSIS

my $person = WWW::Moviepilot->new->(...)->person( 'paul-newman' );

# all fields
my @fields = $person->fields;

# direct access to fields
print $person->date_of_death; # "2008-09-26"
print $person->title;         # field does not exist => undef

METHODS

new

Creates a blank WWW::Moviepilot::Person object.

my $person = WWW::Moviepilot::Person->new;

populate( $args )

Populates an object with data, you should not use this directly.

character

If used together with a movie search, you get the name of the character the person plays in the movie.

my @cast = $movie->cast;
foreach my $person (@cast) {
    printf "%s plays %s\n", $person->last_name, $person->character;
}

name

Returns the internal moviepilot name for the person.

my @people = WWW::Moviepilot->new(...)->search_person( 'paul-newman' );
foreach my $person (@people) {
    print $person->name;
}

filmography

Returns the filmography for the person.

my $person = WWW::Moviepilot->new(...)->person(...);
my @filmography = $person->cast;

Returned is a list of WWW::Moviepilot::Person objects.

fields

Returns a list with all fields for this person.

my @fields = $person->fields;

# print all fields
foreach my $field (@fields) {
    printf "%s: %s\n", $field. $person->$field;
}

As of 2009-10-14, these fields are supported:

  • date_of_birth

  • date_of_death

  • first_name

  • homepage

  • last_name

  • long_description

  • pseudonyms

  • restful_url

  • sex

  • short_description

AUTHOR

Frank Wiegand, <frank.wiegand at gmail.com>

SEE ALSO

WWW::Moviepilot, WWW::Moviepilot::Movie.

COPYRIGHT & LICENSE

Copyright 2009 Frank Wiegand.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.