PageRenderTime 10ms CodeModel.GetById 2ms app.highlight 5ms RepoModel.GetById 2ms app.codeStats 0ms

/tools/stubPod.pl

http://github.com/PerlGameDev/SDL
Perl | 23 lines | 8 code | 5 blank | 10 comment | 1 complexity | 1bce58bea74daad3dbeaa7ef928aaafc MD5 | raw file
 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;