The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

 / 
TV-Anytime-0.31
River stage zero No dependents
/ TV::Anytime::Program

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.