|
#!/usr/bin/perl
my $o = gopts();
sub usage {
return qq{
$0 - get outline from file containing pod
USAGE EXAMPLE
$0 ./lib/PModule.pm
} ;
}
my $f = argv_aspaths() or die ( 'missing file args' );
for my $file ( @$f ){
my $o = outline( $file );
print STDERR "\n\n$file\n\n" if ( scalar @$f > 1 );
print $o ;
}
sub outline {
my $abs = shift ;
-f $abs or die ( "file $abs not on disk" );
my $cmd = "cat '$abs' | "
. q{grep '=head' | sed 's/=head1 /\n/' | sed 's/=head2 / /' |}
. q{sed 's/=head3 / /' | sed 's/=head4 / /'} ;
debug( "command: [$cmd]" );
my $out = ` $cmd `;
return $out ;
}
|