TV::Anytime::Program - Represent a television or radio program
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;
The TV::Anytime::Program represents a television or radio program. This might be shown at various times, called events.
Returns the aspect ratio:
print " " . $program->aspect_ratio . "\n";
Returns the number of audio channels:
print " " . $program->audio_channels . "\n";
Returns what language the program was captioned in:
print " (Captioned in " . $program->caption_language . ")\n";
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"; }
Returns the genres of the program:
my @genres = $program->genres;
Returns true if the program is deaf-signed:
print " Deaf-signed\n" if $program->is_deaf_signed;
Returns true if the program is audio-described:
print " Audio-described\n" if $program->is_audio_described;
Returns true if the program is subtitled:
print " Subtitled\n" if $program->is_subtitled;
Returns the synopsis of the program:
print " " . $program->synopsis . "\n";
Returns the long synopsis of the program (not always present):
print " " . $program->synopsis_long . "\n";
Returns the title of the program:
print $program->title . "\n";
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.
bug-TV-Anytime@rt.cpan.org
Leon Brocard acme@astray.com
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.
To install TV::Anytime, copy and paste the appropriate command in to your terminal.
cpanm
cpanm TV::Anytime
CPAN shell
perl -MCPAN -e shell install TV::Anytime
For more information on module installation, please visit the detailed CPAN module installation guide.