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 * Brian Cassidy 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.