+sub _stringify {
+ my ($item) = @_;
+ if (ref($item) eq 'ARRAY') {
+ my $first = @$item && $item->[0];
+ return join(',', @$item) if !ref($first);
+ return join(',', map { encode_json($_) } @$item);
+ }
+ return encode_json($item) if ref($item) eq 'HASH';
+ return $item;
+}
+