Re^4: Perl project lines of code "analyzer"

Excellent! Nice doing business with you, sir. I initially figured that "parsing" POD would clutter things up significantly, but apparently that stemmed from my partial misunderstanding of the it's nature. Thanks for not only clearing that up, but also coming up with a solution.

I noticed you prefered the obvious '.' instead of cwd(). Is there a specific reason for doing so? I tend to do that myself when writing up something in a hurry, but i always thought cwd() as being the "proper" way. Anyhow, that isn't related to the current thread.

Comment on Re^4: Perl project lines of code "analyzer" Select or Download Code

Replies are listed 'Best First'.
Re^5: Perl project lines of code "analyzer" by jdhedden (Deacon) on Dec 01, 2005 at 16:59 UTC
cwd() caused the lines to get too long and wrap on my terminal. Besides, I already knows the path to '.' from my shell prompt. If I need the full path, I can always invoke it with: sloc `pwd`	[reply]
Re^6: Perl project lines of code "analyzer" by psychotic (Beadle) on Dec 05, 2005 at 01:46 UTC
I guess your signature is correct. ;) While adding POD comments support in my code (see the updated work) i noticed that there was a slight oversight in the POD conditionals. Examine for instance this snippet: `use strict; use warnings; # Trap armed my $trap = "Trapped!"; # Does it work? (Yes, it does.) print $trap;` [download] With the oversight i mentioned, your code, erroneously, gives: `Code Cmts POD Total File ============================================================ 3 1 4 8 ./test.pl ============================================================ 3 1 4 8 -- Summary of all files` [download]	[reply] [d/l] [select]
Re^7: Perl project lines of code "analyzer" by jdhedden (Deacon) on Dec 05, 2005 at 13:12 UTC
Hmmm... While you're technically correct, I would view anyone who wrote code like that to be... well, psychotic. ;-) At any rate, here's the fix. Replace: `# Count POD if ($line =~ /^=/) { pod++;` [download] with `# Count POD if ($line =~ /^=[a-z]/) { $pod++;` [download] Remember: There's always one more bug.	[reply] [d/l] [select]