=encoding utf8 =head1 NAME =begin original HTTP::WebTest::TestResult - Test results class =end original HTTP::WebTest::TestResult - テスト結果クラス =head1 SYNOPSIS use HTTP::WebTest::TestResult; my $result = HTTP::WebTest::TestResult; my $bool = $result->ok; $result->ok($bool); my $comment = $result->comment; $result->comment($comment); if($result) { ... } =head1 DESCRIPTION =begin original Objects of this class represent test results. Test results are basicly C/C and some attached commentary. =end original このクラスのオブジェクトはテスト結果を表現します. テスト結果は 基本的な C/C と, 追加のコメントを持っています. =begin original This class overloads C operation so it can be directly used in statements that require boolean values. =end original このクラスは C 操作をオーバーロードしています. その為 真偽値が必要な箇所で直接使うことができます. if($result) { ... } =begin original is equivalent to =end original これは次の式と等値です. if($result->ok) { ... } =head1 CLASS METHODS (クラスメソッド) =head2 new () =begin original Constructor =end original コンストラクタ =head3 Returns (復帰値) =begin original A new C object. =end original 新しい C オブジェクト. =head2 ok ($optional_ok) =begin original If C<$optional_ok> is passed, Defines whether or not test is successful. =end original もし C<$optional_ok> が渡されたのならテストが成功したかどうかを 定義します. =head3 Returns (復帰値) =begin original True if test is successful. False otherwise. =end original テストが成功だったのなら真を, そうでなければ偽を返します. =head2 comment ($optional_comment) =begin original If C<$optional_comment> is passed, sets test result comment. =end original C<$optional_comment> が渡されればテスト結果のコメントを設定します. =head3 Returns (復帰値) =begin original A test result comment. =end original テスト結果のコメント. =head1 COPYRIGHT Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. =begin original This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =end original このプログラムはフリーソフトウェアです. このプログラムは Perl 自身と同じ条件下で再配布・改変可能です. =head1 SEE ALSO L L L