view release on metacpan or  search on metacpan

lib/SPVM/Mojo/Transaction.spvm  view on Meta::CPAN

  method is_websocket : int () {
    die "Not implemented.";
  }
  
  method remote_address : string () {
    
    unless ($self->req->reverse_proxy) {
      return $self->original_remote_address;
    }
    
    my $x_forwarded_for = $self->req->headers->header("X-Forwarded-For");
    unless ($x_forwarded_for) {
      $x_forwarded_for = "";
    }
    
    my $addrs   = Re->split("\s*,\s*", $x_forwarded_for);
    my $trusted = $self->req->trusted_proxies;
    
    unless (@$trusted) {
      if (@$addrs) {
        return $addrs->[@$addrs - 1];