- my $value = $effective_settings->{$key};
- if ( ref($value) eq 'ARRAY' ) {
- $effective_settings->{$key} =
- join(' ', map { ref($_) ? '['.join(', ', @$_).']' : $_ } @$value );
- } elsif ( ref($value) eq 'HASH' ) {
- $effective_settings->{$key} =
- join(', ', map { "$_:".$value->{$_} } keys %$value );
- } else {
- #XXX
- warn "serializing ". ref($value). " for table display not yet handled";
- }