Index bug summary data

metacpan · Jan 15, 2012 · 50bbc00 · 50bbc00
1 parent 3c83b89
commit 50bbc00
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Document/Distribution.pm b/lib/MetaCPAN/Document/Distribution.pm
@@ -6,6 +6,7 @@ use namespace::autoclean;
 
 has id   => (is => 'ro', id => ['name']);
 has name => (is => 'ro', required => 1);
+has rt_bug_count => (is => 'ro');
 
 __PACKAGE__->meta->make_immutable;
 

diff --git a/lib/MetaCPAN/Script/Tickets.pm b/lib/MetaCPAN/Script/Tickets.pm
@@ -23,6 +23,24 @@ sub run {
     $self->index_bug_summary($bug_summary);
 }
 
+sub index_bug_summary {
+    my ($self, $summary) = @_;
+
+    for my $dist (keys %{ $summary }) {
+        my $dist_data =  $self->index->type('distribution')->inflate(0)->get({
+            name => $dist,
+        }) or next;
+
+        use Data::Dump 'pp';
+        pp $dist_data;
+
+        $self->index->type('distribution')->put({
+            %{ $dist_data->{_source} },
+            rt_bug_count => $summary->{$dist},
+        }, { refresh => 1 });
+    }
+}
+
 sub retrieve_bug_summary {
     my ($self) = @_;