The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
TV-Anytime-0.31
River stage zero No dependents
++
/ TV::Anytime::Service

NAME

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

SYNOPSIS

  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;

DESCRIPTION

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

METHODS

events

This returns a list of TV::Anytime::Event objects which represent transmissions on the service:

  my @events   = $service->events;

genres

This returns a list of TV::Anytime::Genre objects which apply to the service:

  my @genres = $service->genres;

is_radio

This returns if the service is a radio station:

  print "Is radio\n" if $service->is_radio;

is_television

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";

name

This returns the name of the service:

  print "Name is "  . $service->name . "\n";

owner

This returns the owner of the service:

  print "Owner is " . $service->owner . "\n";

programs

This returns a list of TV::Anytime::Program objects which represent the various programs on the service:

  my @programs = $service->programs;

SEE ALSO

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

BUGS

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

AUTHOR

Leon Brocard acme@astray.com

LICENCE AND COPYRIGHT

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.