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.