Devel::Caller が便利すぎる件について

こんなことを書いていたら
Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記
さっそく教えて貰えた＞＜
http://d.hatena.ne.jp/tokuhirom/20080501/1209625789
ありがとうございます！

さっそく使ってみた！

以下のコードを

# test.pl

use strict;
use warnings;

use Devel::Caller qw(caller_cv);

sub {
    my $c = shift;
    print "$c \n";
    caller_cv(0)->($c) if ($c --);
}->(10);

実行！

$ perl test.pl
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 
0
$ 

おおおおおお。キタコレ！かなりシンプル！
これで無名関数の再帰ができる＞＜
id:tokuhirom++
Devel::Caller++