add diagnostics on JSON failures

barbie · Mar 1, 2010 · a84814b · a84814b
1 parent 98460b0
commit a84814b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Metabase/Report.pm b/lib/Metabase/Report.pm
@@ -124,7 +124,9 @@ sub content_as_bytes {
   Carp::confess("can't serialize an open report") unless $self->{__closed};
 
   my $content = [ map { $_->as_struct } @{ $self->content } ];
-  JSON->new->encode( $content );
+  my $encoded = eval { JSON->new->encode( $content ) };
+  Carp::confess $@ if $@;
+  return $encoded;
 }
 
 sub content_from_bytes {