Well, now I've done it. Using Perl/Tk, I have found out how to 'tie' STDOUT to a package. Normally this is the 'Text' module, as it supplies FILEHANDLE, PRINT, PRINTF. Now I want to intercede and do some magic of my own after Text's function with my own 'package'. The normal 'tie' is:
tie *STDOUT, Tk::Text, $text; # '$text' is a Text widgit.
What do I need to write in my own 'package' to refer to these actions? I've played around, and it seems very confusing! I guess I want to do something like:
tie *STDOUT, MyMagic, $text;
Which sounds OK to me, but what should I do after 'package MyMagic' to effect calls to the original methods?
Thanks!