file.documentation should be undef if it has no length

metacpan · Apr 18, 2015 · 9ad805c · 9ad805c
1 parent 03af28c
commit 9ad805c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/lib/MetaCPAN/Document/File.pm b/lib/MetaCPAN/Document/File.pm
@@ -281,6 +281,7 @@ sub _build_documentation {
     my $self = shift;
     $self->_build_abstract;
     my $documentation = $self->documentation if ( $self->has_documentation );
+    return undef unless length $documentation;
     return undef unless ( ${ $self->pod } );
     my @indexed = grep { $_->indexed } @{ $self->module || [] };
     if ( $documentation && $self->is_pod_file ) {

diff --git a/t/release/moose.t b/t/release/moose.t
@@ -77,11 +77,9 @@ ok( !$signature, 'SIGNATURE is not documentation' );
 $signature = $idx->type('file')->filter(
     {
         and => [
-            { term => { name => 'SIGNATURE' } },
-
-# these came from metacpan-web/lib/MetaCPAN/Web/Model/API/Release.pm:sub modules
-            { exists => { field          => 'file.pod_lines' } },
-            { term   => { 'file.indexed' => \1 } },
+            { term   => { name      => 'SIGNATURE' } },
+            { exists => { field     => 'documentation' } },
+            { term   => { 'indexed' => \1 } },
         ]
     }
 )->first;