| TV-Anytime documentation | Contained in the TV-Anytime distribution. |
TV::Anytime::Event - Represent a television or radio program event
foreach my $event ($service->events) {
print $event->start->datetime . " -> "
. $event->stop->datetime . ": "
. $event->program->title . "\n";
}
The TV::Anytime::Event represents a television or radio event.
Returns the duration of the event, as a DateTime::Duration object:
my $duration = $event->duration;
Returns the program linked to the event as a TV::Anytime::Program object:
print $event->program->title . "\n";
Returns the start time and date of the event as a DateTime object:
my $start = $event->start;
Returns the stop time and date of the event as a DateTime object:
my $stop = $event->stop;
Please report any bugs or feature requests to
bug-TV-Anytime@rt.cpan.org, or through the web interface at
http://rt.cpan.org.
Leon Brocard 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.
| TV-Anytime documentation | Contained in the TV-Anytime distribution. |
package TV::Anytime::Event; use strict; use warnings; use base 'Class::Accessor::Chained::Fast'; __PACKAGE__->mk_accessors(qw( start stop crid program )); sub duration { my $self = shift; return $self->stop - $self->start; } 1; __END__