tied($var)->print_method; [download]
In reply to Re: Tying objects by Arunbear in thread Tying objects by Alien