>>>>> "Tony" == Tony Bowden <[EMAIL PROTECTED]> writes:
Tony> I now have the delicious:
Tony> wrap *Template::Directive::macro, pre => sub {
Tony> push @defined, $_[1];
Tony> $_[2] = qq{ \$main::called{"$_[1]"}++; } . $_[2];
Tony> };
Tony> which does indeed seem to do the trick (although makes me feel rather
Tony> ill!)
You'd feel more ill if you had to try this with Java.
:-)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
_______________________________________________
templates mailing list
[EMAIL PROTECTED]
http://lists.template-toolkit.org/mailman/listinfo/templates
