summary refs log tree commit diff
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,
         +[