- $$flat->{$prefix} = join("\n", map { ref $_ ? dump($_) : $_ } @$data);
- # FIXME arrays with non-scalar references aren't really indexed well
+ foreach my $el ( @$data ) {
+ flatten( $flat, $el, $prefix );
+ }
+ } elsif ( ref $data eq 'Mojo::JSON::_Bool' ) {
+ $$flat->{$prefix} = $data;
+ } else {
+ die "unsupported ",ref($data)," from ",dump($data);