--- trunk/lib/Frey/Web.pm	2008/11/18 00:55:23	392
+++ trunk/lib/Frey/Web.pm	2008/11/18 01:45:44	397
@@ -1,6 +1,8 @@
 package Frey::Web;
 use Moose::Role;
 
+#with 'Frey::Escape';
+
 use Frey::Types;
 
 use Continuity::Widget::DomNode;
@@ -127,12 +129,14 @@
 		foreach my $name ( keys %$part ) {
 			my $content = $part->{$name};
 			if ( ref($content) ) {
-				$content = '<code>' . dump( $content ) . '</code>';
+				$content = '<code>' . dump($content) . '</code>';
+				my $l = length($content);
+				$content = qq|<span>$l bytes</span>| if $l > 1024;
 			} else {
 				$content = qq|<span>$content</span>|;
 			}
 			warn "### part [$name] = ", length( $content ), " bytes" if $self->debug;
-			$status_line .= qq|<span class="frey-popup">$name $content</span>|;
+			$status_line .= qq|<span class="frey-popup">$name $content</span>\n|;
 		}
 	}
 
@@ -160,7 +164,8 @@
 }
 
 sub error {
-	my ( $self, $error ) = @_;
+	my $self = shift;
+	my $error = join(" ", @_);
 	my ($package, $filename, $line) = caller;
 	$error .= " at $filename line $line";
 	warn "WARN: $error\n";