
TV::Anytime::Service - Represent a television or radio service

print "Name is " . $service->name . "\n"; print "Owner is " . $service->owner . "\n"; print "Logo is " . $service->logo . "\n"; print "Is tv\n" if $service->is_television; print "Is radio\n" if $service->is_radio; my @genres = $service->genres; my @programs = $service->programs; my @events = $service->events;

The TV::Anytime::Service represents a television or radio

This returns a list of TV::Anytime::Event objects which represent transmissions on the service:
my @events = $service->events;
This returns a list of TV::Anytime::Genre objects which apply to the service:
my @genres = $service->genres;
This returns if the service is a radio station:
print "Is radio\n" if $service->is_radio;
This returns if the service is a television station:
print "Is tv\n" if $service->is_television;
This returns a URL to a logo for the service:
print "Logo is " . $service->logo . "\n";
This returns the name of the service:
print "Name is " . $service->name . "\n";
This returns the owner of the service:
print "Owner is " . $service->owner . "\n";
This returns a list of TV::Anytime::Program objects which represent the various programs on the service:
my @programs = $service->programs;

TV::Anytime, TV::Anytime::Event, TV::Anytime::Genre, TV::Anytime::Service

Please report any bugs or feature requests to bug-TV-Anytime@rt.cpan.org, or through the web interface at http://rt.cpan.org.

Leon Brocard acme@astray.com

Copyright (c) 2005, Leon Brocard acme@astray.com. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.