Magical Diary, beta version

Javaのようにバックトレース付きで死ぬ方法。

# confess.pl
use Carp qw[confess];
require "confess2.pl";
foo();
sub foo { bar() }

# confess2.pl
sub bar { baz() }
sub baz { zot() }
sub zot { confess "moe" }
1;

実行結果:

% perl confess.pl
moe at confess2.pl line 3
        main::zot() called at confess2.pl line 2
        main::baz() called at confess2.pl line 1
        main::bar() called at confess.pl line 4
        main::foo() called at confess.pl line 3