/[Frey]/trunk/lib/Frey/Dumper.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Dumper.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 327 by dpavlin, Thu Nov 6 20:56:44 2008 UTC revision 328 by dpavlin, Thu Nov 6 21:14:09 2008 UTC
# Line 27  sub unroll { Line 27  sub unroll {
27          my $title = $ref ? qq| title="$ref"| : '';          my $title = $ref ? qq| title="$ref"| : '';
28          if ( ref($data) eq 'ARRAY' ) {          if ( ref($data) eq 'ARRAY' ) {
29                  $out .= "<li>$key &darr;</li>" if $key;                  $out .= "<li>$key &darr;</li>" if $key;
30                  $out .= qq|<ol${title} start=0>\n|;                  $out .= qq|<ol${title} start=0>(\n|;
31                  $out .= $self->unroll($_,ref($_)) foreach @$data;                  $out .= $self->unroll($_,ref($_)) foreach @$data;
32                  $out .= "</ol>\n";                  $out .= ")</ol>\n";
33          } elsif ( ref($data) ) {          } elsif ( ref($data) ) {
34                  $out .= "<li>$key &darr;</li>" if $key;                  $out .= "<li>$key &darr;</li>" if $key;
35                  $out .= qq|<ul${title}>\n|;                  $out .= qq|<ul${title}>{\n|;
36                  $out .= $self->unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;                  $out .= $self->unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;
37                  $out .= "</ul>\n";                  $out .= "}</ul>\n";
38          } else {          } else {
39                  $out .= qq|<li${title}>|;                  $out .= qq|<li${title}>|;
40                  $out .= "$key &rarr; " if $key;                  $out .= "$key &rarr; " if $key;
Legend:
Removed from v.327  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.26