#!/usr/bin/perl
###########################################
# dumpdb -- Dump DB 'speicher' content
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use CD;

for my $cd (
    CD::Collection::Slot->retrieve_all()) {

    print $cd->artist(), ": ", 
          $cd->title(), "\n";

    for my $track ($cd->tracks()) {
        printf "    %2d: %s\n", 
               $track->track(), 
               $track->song();
    }
}