Implement terms response

lib/SolarBeam/Response.pm

@@ -16,6 +16,8 @@ has 'facet_fields';
 has 'facet_dates';
 has 'facet_ranges';
 
+has 'terms';
+
 has 'pager' => sub { Data::Page->new };
 
 sub new {
@@ -24,9 +26,10 @@ sub new {
   my $header = $data->{responseHeader};
   my $res = $data->{response};
   my $facets = $data->{facet_counts};
+  my $terms = $data->{terms};
   my $field;
 
-  if (!$header and !$res) {
+  if (!$header) {
     $self->status = 1;
     return $self;
   }
@@ -42,8 +45,17 @@ sub new {
   for $field (keys %{$facets}) {
     $self->$field($facets->{$field});
   }
+
+  if ($terms) {
+    my $sane_terms = {};
+    for $field (keys %{$terms}) {
+      my %values = @{$terms->{$field}};
+      $sane_terms->{$field} = \%values;
+    }
+    $self->terms($sane_terms);
+  }
 
-  if ($self->ok) {
+  if ($self->ok && $res) {
     $self->pager->total_entries($self->numFound);
   }
 

t/fixtures/terms.json

@@ -0,0 +1 @@
+{"responseHeader":{"status":0,"QTime":243},"terms":{"artifact.name":["oslo",2535,"oscar",846,"ostkar",485,"ostform",451,"ostformar",375,"oslobilder",251,"ostämplade",232,"osteform",178,"ost",158,"osram",148],"artifact.event.production.place":["oslo",169788,"oslo,",139952,"oslofjorden",1288,"oslofjorden,",884,"os",332,"osen",265,"osby",209,"oscarshall",201,"oscars",186,"osby,",143]}}

t/response.t

@@ -29,4 +29,8 @@ ok($res->ok);
 ok($res->facet_fields);
 is(scalar @{$res->facet_fields->{'identifier.owner'}}, 168);
 
+$res = SolarBeam::Response->new(fixture('terms'));
+ok($res->ok);
+ok($res->terms);
+is(scalar keys %{$res->terms->{'artifact.name'}}, 10);