view release on metacpan or  search on metacpan

t/30-tons_of_sync.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;

use Async::Queue;

sub stack_frame_num {
    my $num = 0;
    while(caller($num)) {
        $num++;
    }
    return $num;
}

my $done_callback;
my $stack_frame_threshold = 800;
my $stack_frame_checked = 0;
my $task_num = 1000;
my $task_executed = 0;