Select Code to Download

my $persons = $schema->resultset('Person');
my $active_persons = $person->search({ active => 1 });

while (my $person = $person->next) {
    ...;
}

my @person_objs = $person->all;

$active_persons->search({
    writeup_comment.title => 'Foo',
...
    prefetch => 'writeup',
});
# gets you all persons with have recieved a comment with the title 'Fo
+o' for one of their writeups, for example

my $writeups = $active_persons->search_related('Writeup');