pod/splitpod

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