/usr/local/CPAN/Video-PlaybackMachine/Video/PlaybackMachine/FillProducer/UpNext.pm

• package Video::PlaybackMachine::FillProducer::UpNext
  • new
  • add_text
  • is_available
• EOF

package Video::PlaybackMachine::FillProducer::UpNext;

####
#### Video::PlaybackMachine::FillProducer::UpNext
####
#### $Revision: 267 $
####

use strict;
use warnings;
use Carp;

use base 'Video::PlaybackMachine::FillProducer::TextFrame';
use POE;

use POSIX qw(strftime);

############################# Class Constants #############################

############################## Class Methods ##############################

##
## new()
##
## Arguments: (hash)
##  time => int -- time in seconds image should be displayed
##
sub new {
  my $type = shift;

  my $self = $type->SUPER::new(@_);

  return $self;

}


############################# Object Methods ##############################

##
## add_text()
##
sub add_text {
  my $self = shift;
  my ($image) = @_;

  my $entry = $poe_kernel->call('Scheduler', 'query_next_scheduled')
    or return;
  my $next_time = strftime '%l:%M', localtime ($entry->get_start_time());

  $self->write_centered($image, "Up Next:\n\n" . $entry->getTitle()  ."\n\n$next_time");


}

##
## is_available
##
## We are available if there is something "next"
##
sub is_available {
  my $self = shift;

  $poe_kernel->call('Scheduler', 'query_next_scheduled')
    or return;
  1;
}

1;