Brian Cassidy > WWW-EmpireTheatres-0.05 > WWW::EmpireTheatres

Download:
WWW-EmpireTheatres-0.05.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.05   Source  

NAME ^

WWW::EmpireTheatres - Get film listings for the Empire Theatres cinema chain

SYNOPSIS ^

    use WWW::EmpireTheatres;
    
    my $empire = WWW::EmpireTheatres->new;

    # what films are currently playing in all locations
    for my $film ( @{ $empire->films } ) {
        printf( "%s\n", $film->title );
    }

    # what locations are there?
    for my $cinema ( @{ $empire->cinemas } ) {
        printf( "%s (%s, %s)\n", $cinema->name, $cinema->city, $cinema->province );
    }

    my $film   = $empire->film( title => 'SpongeBob' );
    my $cinema = $empire->cinema( city => 'Fredericton' );

    # get today's showtimes for SpongeBob @ Fredericton
    for my $showtime ( @{ $cinema->showtimes( film => $film ) } ) {
        printf( "%s\n", $showtime->datetime );
    }

    # where is the film playing?
    for my $cinema ( @{ $film->cinemas } ) {
        printf( "%s (%s, %s)\n", $cinema->name, $cinema->city, $cinema->province );
    }

    # what films are playing?
    for my $film ( @{ $cinema->films } ) {
        printf( "%s\n", $film->title );
    }

DESCRIPTION ^

This module does some basic screen scraping of the http://www.empiretheatres.com/ website to provide a listing of films, cinemas and showtimes.

METHODS ^

new()

Creates a new object and gets the film and cinema listing.

get_listings( )

This method scrapes the film and cinema listing on the website. It is automatically called when new() is called.

film( %options )

This allows you to search for a film. You can pass a portion of the title and/or it's internal id.

    # Christmas With The Kranks
    $empire->film( title => 'Kranks' );

cinema( %options )

This allows you to search for a cinema. You can pass the name, city, provice and/or the internal id. It returns the first successful match.

    # Empire 10 Cinemas Regent Mall, Fredericton, New Brunswick
    $empire->cinema( city => 'Fredericton' );

showtimes( film => $film, cinema => $cimena [, date => $date ] )

Returns the showtimes for $film @ $cinema on $date (or today if no date is specified)

films( )

Returns the list of films

cinemas( )

Returns the list cinemas

agent( )

Returns the internal WWW::Mechanize object

AUTHOR ^

COPYRIGHT AND LICENSE ^

Copyright 2007 by Brian Cassidy

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: