Merge pull request #1210 from metacpan/haarg/no-pod-pom

remove use of Pod::POM and instead use Pod::Simple::JustPod

Author: haarg

cpanfile

@@ -144,7 +144,6 @@ requires 'Plack::Middleware::ServerStatus::Lite';
 requires 'Plack::Middleware::Session';
 requires 'Plack::Session::Store';
 requires 'Pod::Markdown', '3.300';
-requires 'Pod::POM';
 requires 'Pod::Simple', '3.43';
 requires 'Pod::Simple::XHTML', '3.24';
 requires 'Pod::Text', '4.14';

cpanfile.snapshot

@@ -6781,49 +6781,6 @@ DISTRIBUTIONS
       perl 5.008
       strict 0
       warnings 0
-  Pod-POM-2.01
-    pathname: N/NE/NEILB/Pod-POM-2.01.tar.gz
-    provides:
-      Pod::POM 2.01
-      Pod::POM::Constants 2.01
-      Pod::POM::Node 2.01
-      Pod::POM::Node::Begin 2.01
-      Pod::POM::Node::Code 2.01
-      Pod::POM::Node::Content 2.01
-      Pod::POM::Node::For 2.01
-      Pod::POM::Node::Head1 2.01
-      Pod::POM::Node::Head2 2.01
-      Pod::POM::Node::Head3 2.01
-      Pod::POM::Node::Head4 2.01
-      Pod::POM::Node::Item 2.01
-      Pod::POM::Node::Over 2.01
-      Pod::POM::Node::Pod 2.01
-      Pod::POM::Node::Sequence 2.01
-      Pod::POM::Node::Text 2.01
-      Pod::POM::Node::Verbatim 2.01
-      Pod::POM::Nodes 2.01
-      Pod::POM::Test 2.01
-      Pod::POM::View 2.01
-      Pod::POM::View::HTML 2.01
-      Pod::POM::View::Pod 2.01
-      Pod::POM::View::Text 2.01
-    requirements:
-      Encode 0
-      Exporter 0
-      ExtUtils::MakeMaker 0
-      File::Basename 0
-      FindBin 0
-      Getopt::Long 0
-      Getopt::Std 0
-      Text::Wrap 0
-      constant 0
-      lib 0
-      overload 0
-      parent 0
-      perl 5.006
-      strict 0
-      vars 0
-      warnings 0
   Pod-Parser-1.67
     pathname: M/MA/MAREKR/Pod-Parser-1.67.tar.gz
     provides:

lib/MetaCPAN/Pod/Renderer.pm

@@ -5,9 +5,8 @@ use MetaCPAN::Moose;
 use MetaCPAN::Pod::XHTML;
 use MetaCPAN::Types::TypeTiny qw( Uri );
 use Pod::Markdown;
-use Pod::POM ();
-use Pod::POM::View::Pod;
-use Pod::Text ();
+use Pod::Simple::JustPod ();
+use Pod::Text            ();
 
 has perldoc_url_prefix => (
     is      => 'ro',
@@ -34,7 +33,7 @@ sub markdown_renderer {
 
 sub pod_renderer {
     my $self = shift;
-    return Pod::POM->new;
+    return Pod::Simple::JustPod->new;
 }
 
 sub text_renderer {
@@ -83,9 +82,7 @@ sub to_pod {
     my $self   = shift;
     my $source = shift;
 
-    my $renderer = $self->pod_renderer;
-    my $pom      = $renderer->parse_text($source);
-    return Pod::POM::View::Pod->print($pom);
+    return $self->_generic_render( $self->pod_renderer, $source );
 }
 
 sub _generic_render {

t/pod/renderer.t

@@ -51,11 +51,12 @@ EOF
 
 {
     my $pod = <<'EOF';
+=pod
+
 =head1 DESCRIPTION
 L<Plack>
-=cut
-
 
+=cut
 EOF
 
     is( $factory->to_pod($source), $pod, 'pod' );