今日出会ったCPANモジュール

CPAN

プログラムが対話モードで実行されているか判定する is_interactive() サブルーチンを，正しく実装するのは大変難しいらしい。（詳細は PBP 「10.14 対話性」を参照）

このモジュールは，その実装の難しい is_interactive() サブルーチンを提供してくれる。
使用方法は以下のとおり。

use IO::Interactive qw( is_interactive );

if (is_interactive()) {
    print $PROMPT;
}