From 8d1b6ee8818ddc9528a871de511db0aa8234af75 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 21 Feb 2011 18:23:16 +0100
Subject: add host method to request object

---
 lib/Net/HTTP/Spore/Request.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/Net/HTTP')

diff --git a/lib/Net/HTTP/Spore/Request.pm b/lib/Net/HTTP/Spore/Request.pm
index 365e736..a401dcc 100644
--- a/lib/Net/HTTP/Spore/Request.pm
+++ b/lib/Net/HTTP/Spore/Request.pm
@@ -68,6 +68,15 @@ sub method {
     }
 }
 
+sub host {
+    my ($self, $value) = @_;
+    if ($value) {
+        $self->set_to_env('SERVER_NAME', $value);
+    }else{
+        return $self->get_from_env('SERVER_NAME');
+    }
+}
+
 sub port {
     my ( $self, $value ) = @_;
     if ($value) {
-- 
cgit 1.4.1