index module name length as separate field

Author: haarg

lib/MetaCPAN/Document/File.pm

@@ -378,6 +378,18 @@ sub _build_documentation {
     return undef;
 }
 
+has documentation_length => (
+    is      => 'ro',
+    isa     => Maybe [Int],
+    lazy    => 1,
+    builder => '_build_documentation_length',
+);
+
+sub _build_documentation_length {
+    my ($self) = @_;
+    return length( $self->documentation );
+}
+
 =head2 suggest
 
 Autocomplete info for documentation.

lib/MetaCPAN/Script/Mapping/CPAN/File.pm

@@ -116,6 +116,9 @@ sub mapping {
             },
             "ignore_above" : 2048
           },
+          "documentation_length" : {
+            "type" : "integer"
+          },
           "download_url" : {
             "type" : "string",
             "index" : "not_analyzed",

lib/MetaCPAN/Script/Release.pm

@@ -347,6 +347,7 @@ sub import_archive {
 
         $file->clear_module if ( $file->is_pod_file );
         $file->documentation;
+        $file->documentation_length;
         $file->suggest;
 
         log_trace {"reindexing file $file->{path}"};

t/document/file.t

@@ -96,8 +96,9 @@ END
 
     my $file = new_file_doc( content => \$content );
 
-    is( $file->abstract,      'mymodule1 abstract' );
-    is( $file->documentation, 'MyModule' );
+    is( $file->abstract,             'mymodule1 abstract' );
+    is( $file->documentation,        'MyModule' );
+    is( $file->documentation_length, 8 );
     is_deeply( $file->pod_lines, [ [ 3, 12 ], [ 18, 6 ] ] );
     is( $file->sloc, 3 );
     is( $file->slop, 11 );