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

Replies are listed 'Best First'.
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]