view release on metacpan or  search on metacpan

lib/Mac/EyeTV.pm  view on Meta::CPAN

    $programme->stop($stop);

    my %map = (
      'channel_number' => 'channel number',
      'station_name '  => 'station name',
      'input_source'   => 'input source',
      'id'             => 'unique ID',
    );

    foreach my $prop (
      qw(title description channel_number station_name input_source repeats quality enabled busy id)
      )
    {
      my $eyetv_prop = $map{$prop} || $prop;
      my $value = $eyetv_programme->prop($eyetv_prop)->get;
      $programme->$prop($value);
    }

    push @programmes, $programme;
  }
  return @programmes;

lib/Mac/EyeTV/Recording.pm  view on Meta::CPAN

use warnings;
use DateTime;
use DateTime::Format::Strptime;
use Mac::AppleScript qw(RunAppleScript);
use URI::file;
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(
  qw(recording start stop title
    description channel_number station_name input_source repeats quality
    enabled busy id)
);

sub delete {
  my $self = shift;
  $self->recording->delete;
}

sub duration {
  my $self = shift;
  return $self->stop - $self->start;