view release on metacpan or  search on metacpan

lib/Claude/Agent/Code/Review.pm  view on Meta::CPAN

    # Run query
    my $iter = query(
        prompt  => $prompt,
        options => $claude_options,
        loop    => $loop,
    );

    # Collect result asynchronously with iteration limit
    my $result;
    my $max_iterations = 1000;  # Prevent infinite loops
    my $iterations = 0;

    while (my $msg = await $iter->next_async) {
        $iterations++;
        if ($msg->isa('Claude::Agent::Message::Result')) {
            $result = $msg;
            last;
        }
        if ($iterations >= $max_iterations) {
            $iter->cleanup();  # Cleanup SDK server sockets
            return Claude::Agent::Code::Review::Report->new(
                summary => 'Review timed out: exceeded maximum iterations',
                issues  => [],
            );
        }
    }

    # Cleanup SDK server sockets before returning
    $iter->cleanup();

    # Handle case where loop exits without finding a Result message
    unless (defined $result) {