Nice trick, but I need this to work for any arbitrary classname. This is for a new Data::Dumper module. Er, for that matter Data::Dumper has the same problem:

use Data::Dumper;
my $x=bless qr/dedum/,'foo';

print Dumper($x);
__END__
$VAR1 = bless( do{\(my $o = undef)}, 'foo' );
[download]

Yves / DeMerphq
---
Writing a good benchmark isnt as easy as it might look.