pod/splitpod

   1 #!/usr/bin/perl
   2
   3 use PerlDoc::Functions;
   4
   5 local $/ = '';
   6
   7 $cur = '';
   8 while (<>) {
   9
  10     next unless /^=(?!cut)/ .. /^=cut/;
  11
  12     if (s/=item (\S+)/$1/) {
  13         #$cur = "POSIX::" . $1;
  14         $cur = $1;
  15         $syn{$cur} .= $_;
  16         next;
  17     } else {
  18         #s,L</,L<POSIX/,g;
  19         s,L</,L<perlfunc/,g;
  20         $pod{$cur} .= $_ if $cur;
  21     }
  22 }
  23
  24 for $f ( keys %syn ) {
  25     $type = $Type{$f} || next;
  26     $flavor = $Flavor{$f};
  27     $orig = $f;
  28     ($name = $f) =~ s/\W//g;
  29     open (POD, "> $name.pod") || die "can't open $name.pod: $!";
  30     print POD <<EOF;
  31 =head1 NAME
  32
  33 $orig - $flavor
  34
  35 =head1 SYNOPSIS
  36
  37 $syn{$orig}
  38
  39 =head1 DESCRIPTION
  40
  41 $pod{$orig}
  42
  43 EOF
  44
  45     close POD;
  46
  47 }