--- trunk/lib/Frey/Dumper.pm 2008/11/06 20:56:44 327 +++ trunk/lib/Frey/Dumper.pm 2008/11/06 21:14:09 328 @@ -27,14 +27,14 @@ my $title = $ref ? qq| title="$ref"| : ''; if ( ref($data) eq 'ARRAY' ) { $out .= "
  • $key ↓
  • " if $key; - $out .= qq|\n|; + $out .= qq|(\n|; $out .= $self->unroll($_,ref($_)) foreach @$data; - $out .= "\n"; + $out .= ")\n"; } elsif ( ref($data) ) { $out .= "
  • $key ↓
  • " if $key; - $out .= qq|\n|; + $out .= qq|{\n|; $out .= $self->unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data; - $out .= "\n"; + $out .= "}\n"; } else { $out .= qq||; $out .= "$key → " if $key;