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::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.

poster

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.

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.