RARBOX > WWW-BurrpTV-0.04 > WWW::BurrpTV

Download:
WWW-BurrpTV-0.04.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.03   Source  

NAME ^

WWW::BurrpTV - Parse tv.burrp.com for TV listings.

SYNOPSIS ^

        use WWW::BurrpTV;

        my $tv = WWW::BurrpTV->new ( 
                                     cache => '/tmp/module',
                                   );

        $tv->timezone('Asia/Bahrain'); 

        # Get current playing show on Discovery Channel

        my $shows = $tv->get_shows(channel => 'Discovery Channel');

        my $current_playing_show = $$shows[0]; # First item in the array is the current playing show.

        print $current_playing_show->{_show};
        print $current_playing_show->{_time12};
        print $current_playing_show->{_link};

DESCRIPTION ^

Overview

WWW::BurrpTV is an object oriented interface to parse TV listings from tv.burrp.com.

CONSTRUCTOR ^

new()

Object's constructor. Takes an optional hash argument which can be used to cache the list of channels. This does not cache the TV listings.

                my $tv = WWW::BurrpTV->new ( 
                                             cache => '/tmp/module', # Path to use as cache (optional). Make sure the path exists.
                                           );

METHODS ^

channel_list()

This method does not take any arguments, and returns a hashref.

        $tv->channel_list();
timezone()

Change the default timezone (Asia/Kolkata).

        $tv->timezone('Europe/Monaco');
get_shows()

Takes the channel name and an optional timezone as arguments, and returns an arrayref.

        $tv->get_shows (
                         channel        =>      'Discovery Channel',
                         timezone       =>      'Asia/Bahrain',      # Optional
                       );

SEE ALSO ^

http://tv.burrp.com/

AUTHOR ^

rarbox, <rarbox@cpan.org>

COPYRIGHT AND LICENSE ^

Copyright (C) 2009 by rarbox

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

syntax highlighting: