summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/HTTP')
-rw-r--r--lib/Net/HTTP/Spore/Response.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Net/HTTP/Spore/Response.pm b/lib/Net/HTTP/Spore/Response.pm
index 0696d2b..95ee72b 100644
--- a/lib/Net/HTTP/Spore/Response.pm
+++ b/lib/Net/HTTP/Spore/Response.pm
@@ -5,7 +5,10 @@ package Net::HTTP::Spore::Response;
use strict;
use warnings;
-use overload '@{}' => \&finalize, fallback => 1;
+use overload
+ '@{}' => \&finalize,
+ '""' => \&to_string,
+ fallback => 1;
use HTTP::Headers;
@@ -91,8 +94,14 @@ sub header {
$self->headers->header(@_);
}
+sub to_string {
+ my $self = shift;
+ return "HTTP status: ".$self->{status};
+}
+
sub finalize {
my $self = shift;
+
return [
$self->status,
+[