note
demerphq
Ah. I should have read your code closer. Apologies.<p>
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:
<code>
use Data::Dumper;
my $x=bless qr/dedum/,'foo';
print Dumper($x);
__END__
$VAR1 = bless( do{\(my $o = undef)}, 'foo' );
</code>
<P>
Yves / DeMerphq<br>
--- <BR>
Writing a good benchmark isnt as easy as it might look.
8259
162419