--- trunk/lib/Frey/View/Dumper.pm	2008/11/27 21:04:35	562
+++ trunk/lib/Frey/View/Dumper.pm	2008/11/27 21:29:36	563
@@ -5,6 +5,8 @@
 with 'Frey::Web';
 
 use Data::Dump qw/dump/;
+use POSIX qw/strftime/;
+use DateTime;
 
 =head1 DESCRIPTION
 
@@ -46,6 +48,8 @@
 		$out .= " → " if $key;
 		if ( defined $data && $data =~ m{<(\w+).*>.+</\1>} ) {
 			$out .= qq|<div style="background: #eee; color: #000" title="HTML">$data</div></li>|;
+		} elsif ( $data =~ m{^(\d+(?:\.\d+)?)$} && $1 <= time() ) {
+			$out .= qq|<span title="| . DateTime->from_epoch( epoch => $1 ) . qq|">$data</span>|;
 		} else {
 			$out .= "<span>" . $self->html_dump( $data ) . "</span></li>";
 		}