#!/usr/bin/perl

use strict;
use warnings;

use File::Find;

MAIN:
{
    # Top directory to look through
    my $dir = (@ARGV) ? shift : '.';

    # Find Perl files in directory
    my @files;
    find sub {
        my $fname = $_;
        if (-f $fname) {
            foreach my $type (qw(pl pm)) {
                my (undef, $ext) = split (/\./, $fname);
                if (defined($ext) && $ext eq $type) {
                    push(@files, $File::Find::name);
                }
            }
        }
    }, $dir;
    if (! @files) {
        print("No Perl files found in '$dir'\n");
        exit(1);
    }

    # Header
    print(" Code  Cmts   POD Total File\n");
    print("=" x 60, "\n");

    # Process files and generate totals
    my ($tloc, $tcom, $ttot, $tpod) = (0,0,0,0);
    foreach my $file (@files) {
        my ($loc, $com, $pod) = (0,0,0);

        # Slurp file
        my $contents = do { local (*ARGV, $/) = [$file] and <> };
        my @lines = split(/$\//, $contents);

        # Process lines
        while (@lines) {
            my $line = shift(@lines);

            # Ignore blank lines
            if ($line =~ /^\s*$/) {
                next;
            }

            # Count POD
            if ($line =~ /^=[a-z]/) {
                $pod++;
                while (@lines) {
                    my $pline = shift(@lines);
                    if ($pline =~ /^\s*$/) {
                        next;       # Ignore blank lines
                    }
                    $pod++;
                    if ($pline =~ /^=cut/) {
                        last;       # Done with POD block
                    }
                }
            }

            # Comments and code
            elsif ($line =~ /^\s*\#/) {
                $com++;
            } else {
                $loc++;
            }
        }

        # File results
        my $tot = $loc + $com + $pod;
        printf("% 5d % 5d % 5d % 5d %s\n", $loc, $com, $pod, $tot, $fi
+le);

        # Totals
        $tloc += $loc;
        $tcom += $com;
        $tpod += $pod;
        $ttot += $tot;
    }

    # Print grand totals
    print("=" x 60, "\n");
    printf("% 5d % 5d % 5d % 5d %s\n", $tloc, $tcom, $tpod, $ttot, '--
+ Summary of all files');
}

exit(0);

# EOF
[download]

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.

Using preprocess option can get rid off of unwanted Subversion or CVS directory

    find {wanted=>sub {
        my $fname = $_;
        if (-f $fname) {
            foreach my $type (qw(pl pm)) {
                my (undef, $ext) = split (/\./, $fname);
                if (defined($ext) && $ext eq $type) {
                    push(@files, $File::Find::name);
                }
            }
        }
    }, preprocess=>sub {return grep{!/^.svn|CVS$/}@_}}, $dir;
[download]

jdhedden,
Interesting. Unfortunately it includes anything after

__END__

or

__DATA__
[download]

as potential code. While it could potentially be POD, it likely shouldn't be counted as code. If I can't find something that behaves correctly here I might get motivated and update this with a patch.

Cheers - L~R