[Omaha.pm] Lines of code vs. lines of POD

[Jay Hannah]

Found this "one-liner" reading

Games, Diversions & Perl Culture
Best of the Perl Journal
http://www.oreilly.com/catalog/tpj3/index.html

So is 17% a good documentation ratio?

Bad?   Too low?  :)

It doesn't take comments into account, just POD.

j


$ cat j.pl
@a = (0,0);
while (<>) { ++$a[ not m/^=\w+/s .. m/^=cut/s] }
printf "%d pod lines, %d code lines\n", @a;

$ find ./ -name "*pm" | xargs cat | perl j.pl
26623 pod lines, 154644 code lines