眠い

仕事で想像を絶する糞コードを引き継いでしまい、フラフラになっていたら帰っていいといわれたので、とりあえず見ため上、バグなしで動く（ホワイトボックステストは事実上不可能）の確認して、速攻で帰った。

以下ただの日記

どれぐらい想像を絶するか

Perlだけど、元来

sub A {
    $good ? 1 : return;
}
sub B {
    $good ? 1 : return;
}
sub C {
    $good ? 1 : return;
}

::A() and ::B() and ::C() and print "正常かくにん！よかった。\n";

ぐらいで書ける処理が

my $appObj = new God(); # 神オブジェクト
my $retn = 0; # 0で正常

$retn = $appObj->A();
if (0 == $retn) {
    $retn = $appObj->B();
    if (0 == $retn) {
        $retn = $appObj->C();
        if (0 == $retn) {
            print "正常かくにん！よかった。\n";
        }
    }
}

package God {

# 定数を定義
use constant {
    CNST_TRUE  => 0, # TRUE
    CNST_FALSE => 1, # FALSE
};

# =======================
# メンバ関数を定義
# =======================

# -----------------------
# new : 神を作る
# 引数
#   なし
# 出力
#   神
# -----------------------
sub new {
    my $this = shift;
    my $obj = {};
    bless $obj, $this;
    return $obj;
}

# -----------------------
# A : Aを判定する。
# 引数
#   なし
# 出力
#   CNST_TRUE ：うまくいった
#   CNST_FALSE：だめだった
# -----------------------
sub A {
    my $this = shift;
    my $retVal;
    $retVal = CNST_FALSE;
    if ($good) {
        $retVal = CNST_TRUE;
    } else {
        ;
    }
    return $retVal;
}
# -----------------------
# B : Bを判定する。
# 引数
#   なし
# 出力
#   CNST_TRUE ：うまくいった
#   CNST_FALSE：だめだった
# -----------------------
sub B {
    my $this = shift;
    my $retVal;
    $retVal = CNST_FALSE;
    if ($good) {
        $retVal = CNST_TRUE;
    } else {
        ;
    }
    return $retVal;
}

# -----------------------
# C : Cを判定する。
# 引数
#   なし
# 出力
#   CNST_TRUE ：うまくいった
#   CNST_FALSE：だめだった
# -----------------------
sub C {
    my $this = shift;
    my $retVal;
    $retVal = CNST_FALSE;
    if ($good) {
        $retVal = CNST_TRUE;
    } else {
        ;
    }
    return $retVal;
}

てな感じで書かれてる。

（実際はA、B、Cの中身はちょっとずつ違ってるので全部きっちり読まないと何やってるか理解できない）

なんだこのマジック（怒）。

一事が万事この調子で5000行ぐらいあって悶絶死するかと思った。500行で十分すぎ。あとコア関数とブール値がひっくり返ってるからifの条件節の真偽値とか真と偽が入り乱れてもう滅茶苦茶だった。
これ書いた奴ぼくより会社での評価高いとか見る目がないどころじゃない、頭おかしい。
あとドキュメンテーションコメント気取るならDoxygenなりperldoc使え感

ダイエット

早めに帰れたのでフィットネスジムへ行った。
デブとか自制心がない、自分に甘いってことを自ら証明して歩いてるようなもんだと思ってるし、ぼくはそうはなりたくない。

クイズ

この数日やる暇ない。今日も何もせず。

株

生活費がしょぼくれたのでそっちに原資取られて元手の合計50万ぐらいでやってる。
この2か月分清算したら7～8万の儲けだった。これもできれば証券口座に残し続けたいけど冬ボーまでに取り崩すかもわからぬ…。
会社の積み立て制度で毎月7～8万ぐらい申告して天引きしてるけど、儲けの機会を減らしてると考えるとちょっともったいない。半分ぐらい株投資に回していい気もするな。
金ほしすぎ。

Web研究

もっぱらノードとかのJSの勉強。

タイピング

SHから進歩なし。

お絵かき

やってる余裕なし。