HTTP::Status

HTTPステータスオブジェクト

use HTTP::Status qw(:constants :is status_message is_client_error is_server_error);
パッケージをロードして、関数をエクスポートする。

:constants
HTTP応答コードに対応する定数定義。
詳細は、http://search.cpan.org/~gaas/libwww-perl-5.825/lib/HTTP/Status.pm 参照

my $message = ststus_message($rc);
HTTP応答コード$rcに対応する短いメッセージを返す。

my $stat = is_info($rc);
HTTP応答コード$rcが1xxの時、trueを返す。
これらの応答コードの場合、コンテンツは応答されない。

my $stat = is_success($rc);
HTTP応答コード$rcが2xxの時、trueを返す。

my $stat = is_redirect($rc);
HTTP応答コード$rcが3xxの時、trueを返す。
これらの応答コードの場合、コンテンツにアクセスするには追加アクションが必要。

my $stat = is_error($rc);
HTTP応答コード$rcが4xxまたは5xxの時、trueを返す。

my $stat = is_client_error($rc);
HTTP応答コード$rcが4xxの時、trueを返す。

my $stat = is_server_error($rc);
HTTP応答コード$rcが5xxの時、trueを返す。