RE: Many many modules

[BlueLines]

My boss asked me for printed documentation of all of my code, so i wrote this program to generate such docs. You may find this useful for CPAN modules as well...

#!/usr/bin/perl -w
use strict;
my ($module)=@ARGV or die "Usage: $0 <absolute path to module>\n";
open (MODULE, $module) or die "Can't open $module: $!\n";
while (<MODULE>) {
  print if /^#/;
}

heh heh heh :-)

BlueLines