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

while ( my $play = $rs->next ) {
    say sprintf('About "%s", %s said "%s"',
        $play->artwork->name,
        $_->user->name,
        $_->text,
    ) for $play->artwork->comments;
}