Select Code to Download

'bad', 'tobyink'

SELECT me.poem_id, me.artwork_id, me.meter, me.rhyme, artwork.artwork_
+id, artwork.artist_id, artwork.name, artwork.year, artist.artist_id, 
+artist.name, artist.country_id, country.country_id, country.iso_code,
+ country.name, country.language_id, comments.comment_id, comments.use
+r_id, comments.artwork_id, comments.text, user.user_id, user.country_
+id, user.name, country_2.country_id, country_2.iso_code, country_2.na
+me, country_2.language_id FROM poem me  JOIN artwork artwork ON artwo
+rk.artwork_id = me.artwork_id  JOIN artist artist ON artist.artist_id
+ = artwork.artist_id  JOIN country country ON country.country_id = ar
+tist.country_id LEFT JOIN comment comments ON comments.artwork_id = a
+rtwork.artwork_id LEFT JOIN user user ON user.user_id = comments.user
+_id LEFT JOIN country country_2 ON country_2.country_id = user.countr
+y_id WHERE ( ( comments.text != ? AND country.name != country_2.name 
+AND user.name = ? ) ) ORDER BY me.poem_id

my $rs = $db->resultset('Painting');

...
        $painting->medium,
    );
}

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

...
        $play->genre,
    );
}

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

...
        $_->text,
    ) for $play->artwork->comments;
}

$rs = $db->resultset('Comment')->search({
    'user.name' => 'bliako',
...
        $comment->artwork->artist->name,
    );
}

$rs = $db->resultset('Painting')->search({
    'user.name'     => 'discipulus',
...
        $painting->artwork->artist->name,
    );
}

$rs = $db->resultset('Poem')->search({
    'user.name'     => 'tobyink',
...
        $poem->artwork->artist->name,
    );
}

$rs = $db->resultset('Comment')->search({
    'country.language_id' => \'= country_2.language_id', # literal SQL
...
        $comment->text,
    );
}

use strict;
use warnings;
...
    constraint comment_artwork_fk foreign key (artwork_id) references 
+artwork (artwork_id),
    constraint comment_user_fk foreign key (user_id) references user (
+user_id)
);