File Coverage

blib/lib/Mojolicious/Plugin/ProxyPassReverse/SubDir.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	3	4	75.0
condition	4	9	44.4
subroutine	3	3	100.0
pod	1	1	100.0
total	26	32	81.2

package Mojolicious::Plugin::ProxyPassReverse::SubDir;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.01';

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

  $conf //= {};
  my $header = $conf->{header} // 'X-Forwarded-Host';
  my $value  = $conf->{value};
  my $depth  = $conf->{depth} // 1;

  $app->hook(before_dispatch => sub {
    my $c = shift;

    if ( defined ( my $v = $c->req->headers->header($header) ) ) {
      return if defined $value and $v ne $value;

      push @{ $c->req->url->base->path->parts },
        @{ $c->req->url->path->parts }[ 0 .. $depth - 1 ];
    }
  });
}

1;
__END__