Handle unknown fields in the response

marcusramberg · Aug 24, 2011 · 1c68fa3 · 1c68fa3
1 parent 7e9bd9b
commit 1c68fa3
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/lib/SolarBeam/Response.pm b/lib/SolarBeam/Response.pm
@@ -35,15 +35,15 @@ sub new {
   }
 
   for $field (keys %{$header}) {
-    $self->$field($header->{$field});
+    $self->$field($header->{$field}) if $self->can($field);
   }
 
   for $field (keys %{$res}) {
-    $self->$field($res->{$field});
+    $self->$field($res->{$field}) if $self->can($field);
   }
 
   for $field (keys %{$facets}) {
-    $self->$field($facets->{$field});
+    $self->$field($facets->{$field}) if $self->can($field);
   }
 
   if ($terms) {