small optimizations

mojolicious · May 11, 2014 · 9221c12 · 9221c12
1 parent 4a03caa
commit 9221c12
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/lib/Mojo/UserAgent/Server.pm b/lib/Mojo/UserAgent/Server.pm
@@ -20,19 +20,11 @@ sub app {
   return $self;
 }
 
-sub nb_url {
-  my $self = shift;
-  $self->_restart(0, @_) if !$self->{server} || @_;
-  return Mojo::URL->new("$self->{proto}://localhost:$self->{nb_port}/");
-}
+sub nb_url { shift->_url(1, @_) }
 
 sub restart { shift->_restart(1) }
 
-sub url {
-  my $self = shift;
-  $self->_restart(0, @_) if !$self->{server} || @_;
-  return Mojo::URL->new("$self->{proto}://localhost:$self->{port}/");
-}
+sub url { shift->_url(0, @_) }
 
 sub _restart {
   my ($self, $full, $proto) = @_;
@@ -56,6 +48,13 @@ sub _restart {
     ->start->ioloop->acceptor($server->acceptors->[0])->handle->sockport;
 }
 
+sub _url {
+  my ($self, $nb) = (shift, shift);
+  $self->_restart(0, @_) if !$self->{server} || @_;
+  my $port = $nb ? $self->{nb_port} : $self->{port};
+  return Mojo::URL->new("$self->{proto}://localhost:$port/");
+}
+
 1;
 
 =encoding utf8