in reply to (Ovid - minor code nits) Re: Adding autoloaded methods to symbol table with using strict refs
in thread Adding autoloaded methods to symbol table with using strict refs
I put the use vars in at that position - in this special case - I feel that this is the position it belongs to.
Unfortunately, I can't use perl5.6x yet, because it is too slow and takes too much memory
Perl5.005_03/AS 522: ~20 minutes, ~450 MB RAM
Perl5.61/AS 631: ~90 minutes, ~700 MB RAM
Please, don't wonder about this huge memory usage; this script synchronizes some Sql-databases with a Directory System from a big german bank, and I chose to prefer a shorter runtime (which was about 34 hours before I started this project) to memory usage.
The posted Script is just a little Testscript because I didn't want to post the original code, for it is much too long. I think, this code shows the issues, and as my english is not so good, it might have helped me to say what i wanted to do :-)
Ad constructor: in 90%, it's just a "normal" constructor, but sometimes I need to "clone" objects, so that's what my $class = ref($proto) || $proto; stands for. The $parent isn't needed any more, I played around some months ago with it, and somehow it has survived.
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"