$rs = $db->resultset('Poem')->search({
    'user.name'     => 'tobyink',
    'comments.text' => { '!=' => 'bad' },   # DBIx handles this NOT
    'country.name'  => \'!= country_2.name' # literal SQL for this NOT
}, {
    prefetch => {
        artwork => [
            { artist   => 'country' },
            { comments => { user => 'country' } },
        ],                          # table aliased here to 'country_2'
    },
});

while ( my $poem = $rs->next ) {
    say sprintf(q{tobyink doesn't hate "%s" (%s)},
        $poem->artwork->name,
        $poem->artwork->artist->name,
    );
}