/[Frey]/trunk/lib/Frey/View/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/View/Dumper.pm

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

revision 562 by dpavlin, Wed Nov 26 16:17:17 2008 UTC revision 563 by dpavlin, Thu Nov 27 21:29:36 2008 UTC
# Line 5  extends 'Frey'; Line 5  extends 'Frey';
5  with 'Frey::Web';  with 'Frey::Web';
6    
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8    use POSIX qw/strftime/;
9    use DateTime;
10    
11  =head1 DESCRIPTION  =head1 DESCRIPTION
12    
# Line 46  sub unroll { Line 48  sub unroll {
48                  $out .= " → " if $key;                  $out .= " → " if $key;
49                  if ( defined $data && $data =~ m{<(\w+).*>.+</\1>} ) {                  if ( defined $data && $data =~ m{<(\w+).*>.+</\1>} ) {
50                          $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>|;
51                    } elsif ( $data =~ m{^(\d+(?:\.\d+)?)$} && $1 <= time() ) {
52                            $out .= qq|<span title="| . DateTime->from_epoch( epoch => $1 ) . qq|">$data</span>|;
53                  } else {                  } else {
54                          $out .= "<span>" . $self->html_dump( $data ) . "</span></li>";                          $out .= "<span>" . $self->html_dump( $data ) . "</span></li>";
55                  }                  }
Legend:
Removed from v.562  
changed lines
  Added in v.563
  ViewVC Help
Powered by ViewVC 1.1.26