diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/HTTP/Spore/Request.pm | 9 |
1 files changed, 9 insertions, 0 deletions
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) { |