# Pastebin VooCADqp
sub find_by_area
{
    my ($self, $area_id, $limit, $offset) = @_;
    my (
        $containment_query,
        @containment_query_args,
    ) = $self->c->model('Area')->get_containment_query('$2', 'lae.entity0');
    my $query =
        "SELECT ' . $self->_columns .'
           FROM (
                    SELECT lae.entity1 AS event
                      FROM l_area_event lae
                     WHERE lae.entity0 = \$1 OR EXISTS (
                        SELECT 1 FROM ($containment_query) ac
                         WHERE ac.descendant = lae.entity0 AND ac.parent = \$1
                     )
                ) s, " . $self->_table . "
          WHERE event.id = s.event
       ORDER BY event.begin_date_year, event.begin_date_month, event.begin_date_day, event.time, musicbrainz_collate(event.name)";
    use Data::Dumper;
    print Dumper($query);
    print Dumper(@containment_query_args);
    $self->query_to_list_limited(
        $query, [$area_id, @containment_query_args], $limit, $offset, undef,
        dollar_placeholders => 1,
    );
}