use Smart::Comments
#-----------------------#
デバックツール
#-----------------------
### now []
### ⇒
### line at
### num: $num * 10
### $decimals
### check: $num > 0
for (1..1000000) {
### Evaluating [=== ] % done
}
＝＝＝＝＝＝実行結果
### now [Wed Oct 31 15:26:35 2007]
### ⇒"D:\test.pl", line 5
### line at "D:\test.pl", line 20
### num: '-802.25'
### $decimals: 2
### $num > 0 was not true at D:\test.pl line 26.
### $num was: '-80.225'
Evaluating [===== ] 48% done
