|
● Jun 8, 2002 (Sat) 4:06 - Devel::Coverage Devel::Coverage を見て，DB に興味を持ちいじってみたり． http://nikki.mikage.to/files/db.result.txt http://nikki.mikage.to/files/db.pl.txt http://nikki.mikage.to/files/DB.pm.txt こんな感じで関数の実行追跡や，行毎の実行数カウントは 簡単にとれるらしい． 普通に perl -d でやってないのは，ライブラリに 組み込んで，設定変更するだけでデバッグモードにしたいから． eval の中も，eval の開始位置も自動的に保存してくれてる ようなので，それを見て足し算するだけで問題はなさそう． これで Coverage を作りたいー．．．． と思ったけど， print "a"; print "b"; だと，この行を経過したときに２回カウントされるし， "a"; とすると，printの行だけカウントされて "a" の行は カウントされない．．． 文単位で文の終了がどこにあるか認識できないと 結構辛い物が(^^; 実行確認行数100%，とか出したかったけど，ちょっと 無理そうな感じー．．． くすん． Devel::Coverage は，No DB::DB routine defined， とかいわれて動かないから確認できないし．うーん・・・ ・・・とおもったら perl5.8.0 のせいらしぃ(^^; 5.6.1 では動作． Total of 1 instrumentation runs. /home/mikage/tmp/db2.pl 32 main::aya 32 line 19 32 line 20 20 line 22 3 line 2 2 line 4 2 line 5 2 line 6 1 line 16 ・・・ 参考にならない(汗) CGI動かして，確認ボタンを押すとソースを表示して， 行番号を実行したかどうかで色分け，とかがいいのかなぁ． |
|