--- trunk/lib/Frey/Web.pm 2008/11/18 00:30:29 389
+++ trunk/lib/Frey/Web.pm 2008/11/18 00:55:23 392
@@ -24,7 +24,7 @@
] },
);
-has 'urequest_url' => (
+has 'request_url' => (
is => 'rw',
isa => 'Uri', coerce => 1,
default => '/',
@@ -125,8 +125,14 @@
my $status_line = '';
foreach my $part ( @{ $self->status } ) {
foreach my $name ( keys %$part ) {
- warn "### part [$name] = ", length( $part->{name} ), " bytes" if $self->debug;
- $status_line .= qq|$name| . $part->{$name} . qq||;
+ my $content = $part->{$name};
+ if ( ref($content) ) {
+ $content = '' . dump( $content ) . '
';
+ } else {
+ $content = qq|$content|;
+ }
+ warn "### part [$name] = ", length( $content ), " bytes" if $self->debug;
+ $status_line .= qq|$name $content|;
}
}
@@ -141,7 +147,7 @@
qq|