Dependencies in Perl code

Question

I've been assigned to pick up a webapplication written in some old Perl Legacy code, get it working on our server to later extend it. The code was written 10 years ago by a solitary self-taught developer...

The code has weird stuff going on - they are not afraid to do lib-param.pl on line one, and later in the file do /lib-pl/lib-param.pl - which is offcourse a different file.

Including a.pl with methods b() and c() and later including d.pl with methods c() and e() seems to be quite popular too... Packages appear to be unknown, so you'll just find &c() somewhere in the code later.

Interesting questions:

Is there a tool that can draw relations between perl-files? Show a list of files used by each other file?
The same for MySQL databases and tables? Can it show which schema's/tables are used by which files?
Is there an IDE that knows which c() is called - the one in a.pl or the one in d.pl?
How would you start to try to understand the code?

I'm inclined to go through each file and refactor it, but am not allowed to do that - only the strict minimum to get the code working. (But since the code never uses strict, I don't know if I'm gonna...)

Evan Carroll · Accepted Answer · 2010-07-29 16:27:18Z

4

Not using strict is a mistake -- don't continue it. Move the stuff in d.pl to D.pm (or perhaps a better name alltogether), and if the code is procedural use Sub::Exporter to get those subs back into the calling package. strict is lexical, you can turn it on for just one package. Such as your new package D;. To find out which code is being called, use Devel::SimpleTrace.

perl -MDevel::SimpleTrace ./foo.pl

Now any warnings will be accompanied by a full back-log -- sprinkle warnings around the code and run it.

I think the MySQL question should be removed, from this. Schema Table mappings have nothing to do with perl, it seems an out of place distraction on this question.

answered Jul 29, 2010 at 16:27

Evan Carroll

1

Sign up to request clarification or add additional context in comments.

1 Comment

Konerak Over a year ago

Thanks - the Devel:: thingie seems to have some interesting stuff that might help me. I will use strict in my code, I'm just not sure if I will obey the "strict" in "refactor only the strict minimum" ;)

Paul Nathan · Accepted Answer · 2010-07-29 16:51:21Z

1

I would write a utility to scan a complete list of all subs and which file they live in; then I would write a utility to give me a list of all function calls and which file they come from.

By the way - it is not terribly hard to write a fairly mindless static analysis tool to generate a call graph.

For many cases, in well-written code, that will be enough to help me out...

edited Jul 29, 2010 at 16:51

answered Jul 29, 2010 at 16:23

Paul Nathan

40.5k30 gold badges122 silver badges216 bronze badges

2 Comments

Evan Carroll Over a year ago

There is already code that will do that. If you have the subref use nothingmuch's Devel::Sub::Which

Paul Nathan Over a year ago

@Evan: That documentation contains far too much unsaid for me to use that. Also, I am not fond of dynamic analysis, since it leaves out unrun paths.

Collectives™ on Stack Overflow

Dependencies in Perl code

2 Answers 2

1 Comment

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related