Retry seguro (CT-e)

use Suot\Fiscal\Core\Result\RetryMode;

$mode = $result->retryPolicy()?->mode;

// RetryMode::Never
// RetryMode::Immediate
// RetryMode::AfterDelay
// RetryMode::AfterCorrection
// RetryMode::QueryBeforeRetry

use Suot\Fiscal\Core\Exception\InfrastructureException;
use Suot\Fiscal\Core\Result\RetryMode;

$policy = $result->retryPolicy();

if ($policy === null || ! $policy->isAllowed()) {
    // Host: definitivo — não reenviar
    return;
}

match ($policy->mode) {
    RetryMode::QueryBeforeRetry => (function () use ($cte, $chaveSuspeita): void {
        try {
            $query = $cte->byAccessKey()
                ->forOperation('reconcile-1')
                ->inHomologation()
                ->accessKey($chaveSuspeita)
                ->handle();
        } catch (InfrastructureException $e) {
            $failure = $e->toFailure('query');
            // Host: alertar; filar consulta conforme $failure->retryPolicy
            throw $e;
        }

        if ($query->isFound()) {
            // Host: reconciliar estado; não reemitir
            return;
        }

        // Host: só então decidir reemissão com novo forOperation
    })(),
    RetryMode::AfterCorrection => /* remontar issue() com dados corrigidos + novo forOperation */,
    RetryMode::AfterDelay, RetryMode::Immediate => /* filar com delay / imediato */,
    RetryMode::Never => /* não fazer nada */,
};