The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Device::Denon::DN1400F - Control a Denon DN-1400F CD player

SYNOPSIS

  use Device::Denon::DN1400F;

  my $denon = new Device::Denon::DN1400F(
                                SerialPort      => '/dev/ttyS0',
                                Id              => $deviceid,
                                        );

  $denon->load_disc($drive, $discno);
  $denon->drive_play($drive, $track);
  $denon->drive_pause($drive, $paused);
  $denon->drive_stop($drive);
  $denon->unload_disc($drive, $discno);
  $denon->unload_discs;

  print $denon->drive_status($drive);
  print $denon->drive_subcode_qchannel($drive);
  print $denon->toc_data_long($drive);
  print $denon->toc_data_short($drive);

  $denon->debug;
  $denon->reset;
  $denon->move_front;

DESCRIPTION

This module gives an object oriented interface to control the Denon DN-1400F, an RS232 controlled 200 CD two-turntable jukebox designed for nonstop playout.

Many methods are available, it is currently still best to browse the source to find the details.

EXPORT

None by default.

AUTHOR

Shevek <cpan@anarres.org>

SEE ALSO

perl.