By using overload it is possible to change the standard stringification of an object. This is a very nice and wonderful feature, which can be a bit of a pain during development and debugging. It is at those times, I have found myself wanting to get the standard stringification for an object, just as a visual aid for debugging.
This little sub does just that: it gives you the standard stringification.
I wonder if it would make sense to add this to Scalar::Util as well.
use Scalar::Util qw(blessed reftype refaddr); sub stringify ($) {sprintf "%s=%s(0x%x)",blessed $_[0],reftype $_[0],r +efaddr $_[0]}
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Stringify objects with overloaded stringification
by ysth (Canon) on Nov 30, 2003 at 23:52 UTC | |
by liz (Monsignor) on Dec 01, 2003 at 00:03 UTC |
Back to
Cool Uses for Perl