3 use PerlDoc::Functions;
10 next unless /^=(?!cut)/ .. /^=cut/;
12 if (s/=item (\S+)/$1/) {
13 #$cur = "POSIX::" . $1;
20 $pod{$cur} .= $_ if $cur;
24 for $f ( keys %syn ) {
25 $type = $Type{$f} || next;
26 $flavor = $Flavor{$f};
28 ($name = $f) =~ s/\W//g;
29 open (POD, "> $name.pod") || die "can't open $name.pod: $!";