@@ -27,6 +27,7 @@ requires 'File::Temp'; requires 'Graph::Easy'; requires 'List::Util'; requires 'parent'; +requires 'Pod::Xhtml'; requires 'Rose::HTML::Form'; requires 'YAML::XS'; test_requires 'Test::WWW::Mechanize::Catalyst'; Makefile.PL @@ -16,6 +16,9 @@ Catalyst Controller. =cut +use Pod::Xhtml; + + sub instance :Chained('/') :PathPart(package) :CaptureArgs(1) { my ($self, $c, $package_name) = @_; @@ -46,7 +49,13 @@ sub show :Chained(instance) :PathPart('') :Args(0) my $dist = $package->distribution(); - $c->stash(dist => $dist); + my $pod_path = $package->get_html_path(); + + my $parser = Pod::Xhtml->new ( StringMode => 1); + + $parser->parse_from_file($pod_path); + + $c->stash(dist => $dist, xhtml => $parser->asString(),); return; } lib/CPANHQ/Controller/Package.pm @@ -5,3 +5,6 @@ Belongs to: <a href="[% c.uri_for ('/dist', dist.name) %]">[% dist.name %]</a> </p> +<h2>POD</h2> + +[% xhtml %] root/package/show.tt 64fc446355cac7938882e28d58003059e31029eb Shlomi Fish shlomif@iglu.org.il http://github.com/shlomif/cpanhq/commit/36a29827b7d0bb4e7f886de52ae3e9fd44e3d1c8 36a29827b7d0bb4e7f886de52ae3e9fd44e3d1c8 2009-08-01T05:40:33-07:00 2009-08-01T05:40:33-07:00 Now rendering the POD in the /package/ URLs. 67194e77c845707e752eb533b65acba58cf36ba3 Shlomi Fish shlomif@iglu.org.il