--- trunk/lib/Frey/Web.pm	2008/11/19 14:39:10	454
+++ trunk/lib/Frey/Web.pm	2008/11/19 15:28:23	455
@@ -22,8 +22,8 @@
 	isa => 'ArrayRef[HashRef[Str]]',
 	lazy => 1,
 	default => sub { [
-		{ 'Bookmarklets' => Frey::Bookmarklet->new->markup },
-		{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->markup },
+		{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup },
+		{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup },
 	] },
 );
 
@@ -168,7 +168,7 @@
 	my $url = $self->request_url;
 	$url =~ s{\?reload=\d+}{};
 
-	my $body = $a->{body} || $self->markup;
+	my $body = $a->{body} || $self->as_markup;
 	return $body if $self->content_type !~ m{html};
 	$body ||= '<!-- no body -->';
 
@@ -206,4 +206,14 @@
 	return qq|<pre class="frey-error">$error</pre>|;
 }
 
+sub as_data {
+	my ($self) = @_;
+	$self->data;
+}
+
+sub as_sponge {
+	my ($self) = @_;
+	$self->sponge;
+}
+
 1;