You can find out who called you with caller.
However your design is sounding rather complex to me. Can you explain what your overall design is? (My main concern is that code which is stored with no class attached could wind up modifying arbitrary classes in an uncontrolled and impossible to debug manner.) | [reply] |
hi, I am building an email system that works from an Agenda (good old AI style) set up in MySQL. Each entry has an action associated with it that is triggered on a certain day at a certain time eg. Send out X number of mail to X people and update DB to set reminder time for the next set of mails to go out. The system has to be autonomous and capable of updating itself. This code is run through an try{}catch eval block, errors are logged and the system doesn't fall over ;o|Code within an eval block (that isn't an anonymous subroutine) isn't attached to any class. Even when I use caller it returns nothing. It's really annoying... The whole system is a big Web based corporate doodad and I am programming the infrastructure. This is the only bit we are using Perl for, and I must admit I am something of a newbie to Perl :o)
| [reply] |
| [reply] |