File Coverage

blib/lib/Mojolicious/Plugin/RequestBase.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	4	4	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	19	19	100.0

package Mojolicious::Plugin::RequestBase;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.3';

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

  $app->hook(
    before_dispatch => sub {
      my $c = shift;
      if (my $base = $c->req->headers->header('X-Request-Base')) {
        my $url = Mojo::URL->new($base);
        if ($url->host) {
          $c->req->url->base($url);
        }
        else {
          $c->req->url->base->path($url->path);
        }
      }
    }
  );
}

1;
__END__