more sane intro-data structure link construction

diff --git a/br.pl b/br.pl
index 5adc85d..2c63bd1 100644 (file)
--- a/br.pl
+++ b/br.pl
@@ -204,10 +204,13 @@ sub render_table {
 sub render_el {
   my ($self, $whole, $key, $part) = @_;
   if (ref($part) eq 'ARRAY') {
-    if ($key eq 'entries') {
-      if (grep { ref($_) eq 'HASH' } @$part) {
+    if (grep { ref($_) eq 'HASH' } @$part) {
+      if ($whole->{key}) {
+        return $self->link_to($whole->{key})
+      } elsif ($whole->{name}) {
         return $self->link_to($whole->{name}, $key);
       }
+      $part = '(complex)';
     }
     return join(', ', @$part);
   }