$rs = $db->resultset('Play');

while ( my $play = $rs->next ) {
    say sprintf('%s: "%s" (%s)',
        $play->artwork->artist->name,
        $play->artwork->name,
        $play->genre,
    );
}