/tools/stubPod.pl

 1use strict;
 2use warnings;
 3
 4die "Usage file.pod NAME DESC \@CATEGORY" if $#ARGV < 3;
 5
 6my ( $file, $name, $desc, @category ) = @ARGV;
 7
 8open FH, '>', $file;
 9
10print FH "\=pod
11
12\=head1 NAME
13
14$name -- $desc
15
16\=head1 CATEGORY
17
18TODO, " . join( ', ', @category ) . "
19
20\=cut
21";
22
23close FH;