Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
executable file 51 lines (37 sloc) 1.04 KB
use strict;
use utf8;
use warnings 'all';
use Data::Dumper;
use File::Find;
use FindBin qw($Bin);
use Pod::Simple::HTML;
use Regexp::Common qw(comment);
my $path = "$Bin/pod";
chdir $path;
my @files;
find(sub { push @files, $File::Find::name if /\.pod$/ && -f $_ } => '.');
my $css = '';
my @docs = qw(.. html);
foreach my $pod (@files) {
my @path = split m{/}, $pod;
shift @path;
my $html_file = pop @path;
$html_file =~ s/\.pod$//;
$html_file .= '.html';
my $link = join('/', @path, $html_file);
unshift @path, @docs;
mkdir join('/', @path[0 .. $_]) for 1 .. $#path;
printf STDERR "%s/%s -> %s\n", $path, $pod, $html_file;
my $p = new Pod::Simple::HTML;
my $html = '';
$html =~ s/$RE{comment}{HTML}\s*//gos;
open(my $fh, '>:encoding(latin1)', join('/', @path, $html_file));
print $fh $html;
close $fh;
Jump to Line
Something went wrong with that request. Please try again.