LWPに入ってる．ステータスコードを元にした名前のサブルーチンをexportして，定数を作成．あとステータスコードの種類をチェックするための関数(is_*)，ステータスコードからメッセージを返す関数(status_message)もある
use HTTP::Status; my $rc = 302; if ($rc == RC_PAYMENT_REQUIRED) { say status_message($rc); #Found } #ステータスコードをチェック my $code = '402 Payment Required'; if (is_error($code)) { say 'error code 4xx'; }
