6 my $pod = $ARGV[0] || './perlfunc.pod';
7 open my $p, '<', $pod or die "open($pod): $!";
8 my $d = do { local $/; <$p> };
9 my ($f) = $d =~ /=over[^\n]*\n(.*?)=back/s;
10 die "no functions" unless $f;
11 my @f = $f =~ /C<([^<>]+)>/g;
14 grep { eval { () = prototype "CORE::$_" }; !$@ }
17 my $base = "my \@core = qw/";
22 if ($l + (1 - $first) + length() <= 78) {
32 $l = length($base) - 1;
33 $out .= "\n" . (' ' x $l);