sub foo {
   my ( $self, $schema ) = @_;
   my $guard = $schema->txn_scope_guard;

   # Multiple database operations here

   $guard->commit;
}