如何终止BEGIN块中启动的循环？实现程序加载进度条

你原来的代码无法正常运行的核心原因是：普通Bool变量在异步线程中存在内存可见性问题——BEGIN块启动的异步任务可能无法及时感知到INIT块对变量的修改，同时编译阶段与运行阶段的变量访问也缺乏可靠同步机制。

要实现初始化时的进度条效果，可通过原子变量或Promise这类同步原语解决，结合Raku的编译阶段钩子（BEGIN/INIT）控制进度条启停：

方案1：使用AtomicBool确保变量可见性 #

my AtomicBool $done-initializing = False;

BEGIN {
    # 启动异步任务打印进度符号
    start repeat {
        print '*';
        sleep 0.33;
    } until $done-initializing;
}

INIT {
    # 执行实际初始化逻辑（如加载模块、初始化配置）
    sleep 2; # 模拟耗时初始化操作
    
    # 标记初始化完成，终止进度条
    $done-initializing = True;
    print "\n初始化完成\n";
}

方案2：使用Promise实现异步等待 #

my Promise $init-completed;

BEGIN {
    start {
        repeat {
            print '.';
            sleep 0.2;
        } until await $init-completed;
    }
}

INIT {
    $init-completed = Promise.new;
    
    # 这里放置实际初始化代码
    say "\n正在初始化...";
    sleep 3;
    
    $init-completed.keep;
    print "\n应用初始化完成！\n";
}

关于BEGIN块可响应的触发事件 #

Raku并没有专门提供供BEGIN块直接监听的“编译/初始化完成”事件，但可以通过上述同步原语间接实现类似逻辑——本质是让BEGIN块启动的异步任务等待INIT阶段发出的完成信号。

内容的提问来源于stack exchange，提问作者Jim Bollinger