use strict;
use warnings;
use feature 'say';
use Bliako::Schema;

my $db = Bliako::Schema->connect(
    'DBI:mysql:database=Bliako', undef, undef,
        { RaiseError => 1 },
);

my @comments = $db->resultset('Comment')->search({
    'event.type' => 'concert',
    'event.name' => 'Rolling Stones',
}, {
    join => 'event',
});

say sprintf(
    '%s said about the %s concert: "%s"',
    $_->user->name, $_->event->name, $_->text,
) for @comments;