メモ

http://d.hatena.ne.jp/harupiyo/20090226

use Data::Dumper::Names;
use Data::Dumper;
use Benchmark qw(:all);

my $hoge = { hgoe => 'hoge' };
cmpthese( -5 , {
    'Data::Dumper'  => sub {
        Data::Dumper::Dumper($hoge);
    },
    'Data::Dumper::Names' => sub {
        Data::Dumper::Names::Dumper($hoge);
    },
});

                       Rate Data::Dumper::Names        Data::Dumper
Data::Dumper::Names 14140/s                  --                -22%
Data::Dumper        18164/s                 28%                  --