モジュール書くときはたまに使います。

必須かな。

簡単なスクリプトでも 1.2M 程度の exe が生成される。
upx で圧縮可能 (だけど実行時にエラーになる場合もあった?)。

rubyのpp

http://search.cpan.org/src/UARUN/Error-0.15/example

最後までキャッチされなかったらスタックトレースを
（デフォルトで）全部出してほしいのですよねぇ。

use strict;

use Error qw(:try);
$Error::Debug = 1;

{
    package MyError;
    use base qw/Error::Simple/;
    use overload '""' => sub { shift->stacktrace };
}

sub bar {
    try {
        MyError->throw("oops!");
    } catch MyError with {
        my $e = shift;
        print "catch! ";
        print $e->text, "\n";
        throw $e;
    };
}

sub foo { bar() }

foo();

実行結果

catch! oops!
oops! at a.pl line 14
　　　　main::bar() called at a.pl line 25
　　　　main::foo() called at a.pl line 27

便利ね

ruby の StringIO 相当。
unit test 時は必須なもの。

assert_equals("a0", "a1") がパスするのは有名な話。
assert_str_equals, assert_num_equals は使い分けましょう。

最近はTest::Classにも惹かれ気味。。。