From f6f0ee797c94005e1b120f77b1146f8106bc2c1e Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 24 Nov 2010 12:00:48 +0100
Subject: stringify body to a usefull message

---
 lib/Net/HTTP/Spore/Response.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP/Spore/Response.pm')

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,
         +[
-- 
cgit v1.2.3