base_uri instead of uri_base

1 files changed, 4 insertions, 6 deletions

diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm
index cecda74..185f4d7 100644
--- a/lib/Web/Request.pm
+++ b/lib/Web/Request.pm
@@ -36,7 +36,7 @@ has env => (
     },
 );
 
-has _uri_base => (
+has _base_uri => (
     is      => 'ro',
     isa     => 'Str',
     lazy    => 1,
@@ -56,11 +56,11 @@ has _uri_base => (
     },
 );
 
-has uri_base => (
+has base_uri => (
     is      => 'ro',
     isa     => 'URI',
     lazy    => 1,
-    default => sub { URI->new(shift->_uri_base)->canonical },
+    default => sub { URI->new(shift->_base_uri)->canonical },
 );
 
 has uri => (
@@ -70,7 +70,7 @@ has uri => (
     default => sub {
         my $self = shift;
 
-        my $base = $self->_uri_base;
+        my $base = $self->_base_uri;
 
         # We have to escape back PATH_INFO in case they include stuff
         # like ? or # so that the URI parser won't be tricked. However
@@ -246,8 +246,6 @@ sub path {
     return '/';
 }
 
-sub uri_base { URI->new(shift->_uri_base)->canonical; }
-
 sub new_response {
     my $self = shift;