for my $cd ( 1 .. 2 ) {
    Music::CD->create(
        {   cdid   => $cd,
            title  => "Title of CD $cd",
            year   => '2006',
            artist => 5,
        }
    );
    for my $track ( 1 .. 5 ) {
        Music::Track->create(
            {   trackid  => $cd . $track,
                cd       => $cd,
                position => $track,
                title    => "Title of track $track",
            }
        );

    }
}
Music::DBI->dbi_commit();


##</code><code>##


sub _mk_db_closure {
    my ($class, @connection) = @_;
    my $dbh;
    return sub {
        unless ($dbh && $dbh->FETCH('Active') && $dbh->ping) {
            $dbh = DBI->connect_cached(@connection);
        }
        return $dbh;
    };
}