Plack/PSGIで簡易podwebserver - FloralCompany.log

モジュール一覧とか要らなければ、 # app.psgi use Pod::Simple::XHTML; use Pod::Simple::Search; sub { my $env = shift; my $path = $env->{PATH_INFO}; if ( $path eq '/' ) { return [ 200, [ ], ['It works!'] ]; } $path =~ s{^/}{}; my $mod = $path; $mod =~ s{/}{::}g; my $filepath = Pod::Simple::Search->new->find($mod); if ( $filepath ) { my $podparser = Pod::Simple::XHTML->new; my $content = ''; $podparser->output_string

[kits]

perllocalを見ると目次っぽく使えそう。/ push @INC, '/usr/lib/perl5/5.10/pods'; しておくと perlrun とかも見れた。