File Coverage

blib/lib/Mojolicious/Plugin/Proxy.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	30	34	88.2

package Mojolicious::Plugin::Proxy;

use base 'Mojolicious::Plugin';

our $VERSION = '0.6';

sub register {
  my ($self, $app) = @_;


  $app->helper(
    proxy_to => sub {
      my $c    = shift;
      my $url  = Mojo::URL->new(shift);
      my %args = @_;
      $url->query($c->req->params) if ($args{with_query_params});

      if (Mojo::IOLoop->is_running) {
        $c->render_later;
        $c->ua->get(
          $url,
          sub {
            my ($self, $tx) = @_;
            _proxy_tx($c, $tx);
          }
        );
      }
      else {
        my $tx = $c->ua->get($url);
        _proxy_tx($c, $tx);
      }
    }
  );
}

sub _proxy_tx {
  my ($self, $tx) = @_;
  if (my $res = $tx->success) {
    $self->tx->res($res);
    $self->rendered;
  }
  else {
    my $error = $tx->error;
    $self->tx->res->headers->add('X-Remote-Status',
      $error->{code} . ': ' . $error->{message});
    $self->render(status => 500, text => 'Failed to fetch data from backend');
  }
}

1;
__END__