--- trunk/lib/Frey/Web.pm	2009/01/06 16:05:05	949
+++ trunk/lib/Frey/Web.pm	2009/01/07 17:50:03	957
@@ -71,6 +71,13 @@
 	default => 250,
 );
 
+has 'wrap_in_page' => (
+	documentation => 'wrap full html page with status bar around content',
+	is => 'rw',
+	isa => 'Bool',
+	default => 1,
+);
+
 my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
 my $escape_re  = join '|' => keys %escape;
 
@@ -276,7 +283,7 @@
 		warn "# no body, invoke $self->$run on ", ref($self);
 		$body = $self->$run;
 	}
-	if ( $self->content_type !~ m{html} ) {
+	if ( $self->content_type !~ m{html} || ! $self->wrap_in_page ) {
 		warn "# return only $self body ", $self->content_type;
 		return $body
 	} elsif ( ! defined $body ) {