--- trunk/lib/Frey/Dumper.pm 2008/11/06 21:14:09 328
+++ trunk/lib/Frey/Dumper.pm 2008/11/06 21:32:10 329
@@ -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;