CD(3pm)

✨ NAME ✨

Audio::CD — a Perl interface to libcdaudio (that's cd + cddb together, the whole package bestie). You're on the CD(3pm) page, from the User Contributed Perl Documentation corner of the world, and it is so much more fun than it sounds 💿✨

---

🌈 SYNOPSIS

use Audio::CD ();
my $cd = Audio::CD->init;

Two lines. That's the whole summoning ritual. Slay.

---

💖 DESCRIPTION

Audio::CD gives you a Perl interface to libcdaudio by Tony Arcieri, which you can grab from http://cdcd.undergrid.net/ 🌐

And there's a whole little friend group of classes in here — each one is glue for the libcdaudio functions and data structures. So like, one class to talk to the drive, one for CDDB, one for the disc data, one for tracks, one for status info… it's giving organized 🎀

---

💅 Audio::CD Class

The main character, obviously.

init

Initialize the Audio::CD object:

my $cd = Audio::CD->init;

stat

Stat the Audio::CD object, and it hands you back an Audio::CD::Info object.

my $info = $cd->stat;

cddb

Returns an Audio::CDDB object.

my $cddb = $cd->cddb;

play

Play the given cd track — and yes, it defaults to 1 if you don't say anything, so no pressure.

$cd->play(1);

stop

Stop the cd.

$cd->stop;

pause

Pause the cd.

$cd->pause;

resume

Resume the cd. (Un-pause, bestie, we're back 🫶)

$cd->resume;

eject

Eject the cd.

$cd->eject;

close

Close the cd tray.

$cd->close;

play_frames

$cd->play_frames($startframe, $endframe);

The page just hands you the call here — no extra words, so I'm not gonna invent any. Take it verbatim fr fr 💀

play_track_pos

$cd->play_track_pos($strarttrack, $endtrack, $startpos);

Same deal — that's the exact call, typos and all, don't @ me 🙈

play_track

$cd->play_track($strarttrack, $endtrack);

track_advance

$cd->track_advance($endtrack, $minutes, $seconds);

advance

$cd->advance($minutes, $seconds);

get_volume

Returns an Audio::CD::Volume object.

my $vol = $cd->get_volume;

set_volume

$cd->set_volume($vol);

---

🎀 Audio::CDDB Class

discid

my $id = $cddb->discid;

lookup

Does a cddb lookup, and returns an Audio::CD::Data object.

my $data = $cddb->lookup;

---

🦋 Audio::CD::Data Class

artist

my $artist = $data->artist;

title

my $title = $data->title;

genre

my $genre = $data->genre;

tracks

Returns an array reference of Audio::CD::Track objects.

my $foo = $data->tracks($info);
my @tracks = @$foo;

---

🌸 Audio::CD::Track Class

name

my $name = $track->name;

---

⭐ Audio::CD::Info Class

mode

Returns the CD mode, one of PLAYING, PAUSED, COMPLETED, NOSTATUS — pick your fighter ✨

my $track = $info->mode;
print "playing" if $info->mode == Audio::CD::PLAYING;

present

Returns true if a disc is present.

$cd->play if $info->present;

current_track

Returns the current track number being played or paused.

my $track = $info->current_track;

first_track

Returns the number of the first track on the CD.

my $track = $info->first_track;

total_tracks

Returns the total number of tracks on the cd.

my $track = $info->total_tracks;

track_time

Returns the current track play time:

my($minutes, $seconds) = $info->track_time;

time

Returns the current disc play time:

my($minutes, $seconds) = $info->time;

length

Returns the disc length time:

my($minutes, $seconds) = $info->length;

tracks

Returns an array reference of Audio::CD::Info::Track objects.

my $foo = $info->tracks;
my @tracks = @$foo;

---

🧚 Audio::CD::Info::Track Class

length

Returns the track length time:

my($minutes, $seconds) = $tinfo->length;

pos

Returns the track position on the CD:

my($minutes, $seconds) = $tinfo->pos;

(Yep, pos is squished onto the same line as its description in the original. We keep it real over here.)

type

Returns the track type — either TRACK_AUDIO or TRACK_DATA:

if ($tinfo->type == Audio::CD::TRACK_AUDIO) {
  print "audio track\n";
} elsif ($tinfo->type == Audio::CD::TRACK_DATA) {
  print "data track\n";
}

is_audio

Returns true if the track is an audio track; equivalent to the test:

$tinfo->type == Audio::CD::TRACK_AUDIO ? 1 : 0

is_data

Returns true if the track is a data track; equivalent to the test:

$tinfo->type == Audio::CD::TRACK_DATA ? 1 : 0

---

👑 SEE ALSO

• Xmms(3)

---

💜 AUTHOR

• Perl interface by Doug MacEachern
• libcdaudio and cddb_lookup.c by Tony Arcieri

---

That's the whole page bestie, every flag and every call, no cap 🫶

And for the little sign-off at the bottom of the OG: this is perl v5.42.3, dated 2026-08-19, and it lives under CD(3pm). Obsessed. Periodt 💅💖