Léon Brocard > TV-Anytime-0.31 > TV::Anytime::Program

Download:
TV-Anytime-0.31.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Source  

NAME ^

TV::Anytime::Program - Represent a television or radio program

SYNOPSIS ^

  print $program->title . "\n";
  print "  " . $program->synopsis . "\n";
  print "  " . $program->synopsis_long . "\n";
  print "  " . $program->audio_channels . "\n";
  print "  " . $program->aspect_ratio . "\n";
  print "  (Captioned in " . $program->caption_language . ")\n";
  print "  Subtitled\n" if $program->is_subtitled;
  print "  Audio-described\n" if $program->is_audio_described;
  print "  Deaf-signed\n" if $program->is_deaf_signed;
  foreach my $event ($program->events) {
    print "  "
      . $event->start->datetime . " -> "
      . $event->stop->datetime . " ("
      . $event->duration->minutes . " mins)\n";
  }
  my @genres = $program->genres;

DESCRIPTION ^

The TV::Anytime::Program represents a television or radio program. This might be shown at various times, called events.

METHODS ^

aspect_ratio

Returns the aspect ratio:

  print "  " . $program->aspect_ratio . "\n";

audio_channels

Returns the number of audio channels:

  print "  " . $program->audio_channels . "\n";

caption_language

Returns what language the program was captioned in:

  print "  (Captioned in " . $program->caption_language . ")\n";

events

Returns events as TV::Anytime::Program objects for which this program is scheduled:

  foreach my $event (@{ $program->events }) {
    print "  "
      . $event->start->datetime . " -> "
      . $event->stop->datetime . " ("
      . $event->duration->minutes . " mins)\n";
  }

genres

Returns the genres of the program:

  my @genres = $program->genres;

is_deaf_signed

Returns true if the program is deaf-signed:

  print "  Deaf-signed\n" if $program->is_deaf_signed;

is_audio_described

Returns true if the program is audio-described:

  print "  Audio-described\n" if $program->is_audio_described;

is_subtitled

Returns true if the program is subtitled:

  print "  Subtitled\n" if $program->is_subtitled;

synopsis

Returns the synopsis of the program:

  print "  " . $program->synopsis . "\n";

synopsis

Returns the long synopsis of the program (not always present):

  print "  " . $program->synopsis_long . "\n";

title

Returns the title of the program:

  print $program->title . "\n";

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.

syntax highlighting: