Select Code to Download

$schema->resultset("Thing")->search({ ... })->prefetch('last_event')->
+all

SELECT me.*, thing_max_event.* FROM thing me
LEFT JOIN thing_event thing_max_event ON thing_max_event.id = (
...
  ORDER BY timestamp DESC
)
WHERE ...

package App::Schema::ResultSet::ThingEvent;

...
      unsafe_subselect_ok => 1
   });
}

package App::Schema::Result::Thing;

...
      }
   };
});

package App::Schema;

...
   my ($self, $new_dialect_value)= @_;
   MSSQL_LimitDialectFlipper->new($self->storage, $new_dialect_value);
}

$schema->resultset("Thing")->join('last_event_of_type1','last_event_of
+_type2')
  ->where('last_event_of_type1.timestamp' => { '>=', $cutoff1 },
          'last_event_of_type2.timestamp' => { '<', $cutoff2 });