Snarf in your script from another script. The second
script will declare any sub it comes across:
Then the second script will store every sub calledif( $line =~ m!sub\s+(\S+){ eval "sub $1 {}" }
I hope my advice helps.
-Jacob
Eat Perl, live well.
My site
In reply to Re: When -w and use strict aren't enough...
by bl0rf
in thread When -w and use strict aren't enough...
by RMGir
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |