add /search/history/{module,file,documentation}/... endpoint

Author: monken

lib/MetaCPAN/Document/File.pm

@@ -857,4 +857,48 @@ sub prefix {
     );
 }
 
+=head2 history
+
+Find the history of a given module/documentation.
+
+=cut
+
+sub history {
+    my ($self, $type, $module, @path) = @_;
+    my $search = $type eq "module" 
+        ? $self->filter({
+            nested => {
+                path => "module",
+                query => {
+                    constant_score => {
+                        filter => { and => [
+                            {   term =>
+                                    { "module.authorized" => \1 }
+                            },
+                            {   term => { "module.indexed" => \1 }
+                            },
+                            {   term => { "module.name" => $module }
+                            },
+                        ] }
+                    }
+                }
+            }
+        })
+        : $type eq "file"
+        ? $self->filter({
+            and => [
+                { term => { "file.path" => join("/", @path) } },
+                { term => { "file.distribution" => $module } },
+            ]
+        })
+        : $self->filter({
+            and => [
+                { term => { "file.documentation" => $module } },
+                { term => { "file.indexed" => \1 } },
+                { term => { "file.authorized" => \1 } },
+            ]
+        });
+    return $search->sort([{ "file.date" => "desc"}]);
+}
+
 __PACKAGE__->meta->make_immutable;

t/release/moose.t

@@ -63,4 +63,14 @@ $signature = $idx->type('file')->filter(
 )->first;
 ok(!$signature, 'SIGNATURE is not documentation');
 
+{
+  my $files = $idx->type("file");
+  my $module = $files->history(module => "Moose")->raw->all;
+  my $file = $files->history(file => "Moose", "lib/Moose.pm")->raw->all;
+  is_deeply($module->{hits}, $file->{hits}, "history of Moose and lib/Moose.pm match");
+  is($module->{hits}->{total}, 2, "two hits");
+  my $pod = $files->history(documentation => "Moose::FAQ")->raw->all;
+  is($pod->{hits}->{total}, 1, "one hit");
+}
+
 done_testing;