/[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 432 by dpavlin, Mon Nov 17 11:58:41 2008 UTC revision 433 by dpavlin, Wed Nov 19 00:47:22 2008 UTC
# Line 42  sub unroll { Line 42  sub unroll {
42                  $out .= "</ul>\n";                  $out .= "</ul>\n";
43          } else {          } else {
44                  $out .= " &rarr; " if $key;                  $out .= " &rarr; " if $key;
45                  if ( $data =~ m{<(\w+).*>.+</\1>} ) {                  if ( defined $data && $data =~ m{<(\w+).*>.+</\1>} ) {
46                          $out .= qq|<div style="background: #eee; color: #000" title="HTML">$data</div></li>|;                          $out .= qq|<div style="background: #eee; color: #000" title="HTML">$data</div></li>|;
47                  } else {                  } else {
48                          $out .= "<span>" . $self->html_dump( $data ) . "</span></li>";                          $out .= "<span>" . $self->html_dump( $data ) . "</span></li>";
Legend:
Removed from v.432  
changed lines
  Added in v.433
  ViewVC Help
Powered by ViewVC 1.1.26