/* Constructor for CD. */
SV*
new_cd(SV *artist_sv) {
    if (!sv_derived_from(artist_sv, "Artist") {
        Croak("Not an Artist");
    }
    Artist *artist = INT2PTR( Artist*, SvIV(SvRV(artist_sv)) );

    /* ... */
}