The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WWW::Moviepilot::Movie - Handle moviepilot.de movies

SYNOPSIS

    my $movie = WWW::Moviepilot->new(...)->movie( 'matrix' );

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

    # direct access to fields
    print $movie->display_title; # "Matrix"
    print $movie->title;         # field does not exist => undef

    # *_lists in scalar context
    print scalar $movie->emotions_list; # "Spannend,Aufregend"

    # *_lists in list context
    print join ' +++ ', $movie->emotions_list # "Spannend +++ Aufregend"

METHODS

new

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

    my $movie = WWW::Moviepilot::Movie->new;

populate( $args )

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

character

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

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

name

Returns the internal moviepilot name for the movie.

    my @movies = WWW::Moviepilot->new(...)->search_movie( 'matrix' );
    foreach my $movie (@movies) {
        print $movie->name;
    }
    __END__
    matrix
    armitage-iii-dual-matrix
    the-matrix-reloaded
    the-matrix-revolutions
    madrid
    mourir-a-madrid
    die-sieben-kleider-der-katrin
    super-mario-bros
    armitage-iii-polymatrix
    rendezvous-in-madrid
    herr-puntila-und-sein-knecht-matti
    drei-maedchen-in-madrid
    zwischen-madrid-und-paris
    marie-antoinette-2
    mario-und-der-zauberer
    bezaubernde-marie-2
    marie-lloyd
    marie-line
    marie-antoinette-3
    maria-magdalena

cast

Returns the cast for the movie.

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

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

fields

Returns a list with all fields for this movie.

    my @fields = $movie->fields;

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

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

  • alternative_identifiers

  • average_community_rating

  • average_critics_rating

  • cinema_start_date

  • countries_list

  • display_title

  • dvd_start_date

  • emotions_list

  • genres_list

  • homepage

  • long_description

  • on_tv

  • places_list

  • plots_list

  • poster

  • premiere_date

  • production_year

  • restful_url

  • runtime

  • short_description

  • times_list

AUTHOR

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

SEE ALSO

WWW::Moviepilot, WWW::Moviepilot::Person.

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.