Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Cleaning up unused subroutines

by koknat (Sexton)
on Oct 26, 2007 at 17:31 UTC ( [id://647443]=note: print w/replies, xml ) Need Help??


in reply to Re: Cleaning up unused subroutines
in thread Cleaning up unused subroutines

Thanks for posting that link, toolic.
I hadn't even considered anyonymous subroutines, or objects, since I've been just calling simple normal subroutines.

In my simple case, I think a script could be written to:
1) Find all subroutines by doing a grep for ^\s*sub\s+\S+
2) Find all subroutines called in the main program.
3) Recursively follow every subroutine used, and look for subroutines within subroutines.
4) At the end, you have a list of every subroutine, and a list of every subroutine used

The hardest part may be deciding what a simple subroutine call looks like:
&mysub
&mysub(args)
mysub
mysub(args)

Replies are listed 'Best First'.
Re^3: Cleaning up unused subroutines
by ph0enix (Friar) on Oct 29, 2007 at 15:37 UTC
    Sounds good, but what about the generated code + eval?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://647443]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (2)
As of 2024-07-22 17:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.