File Coverage

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

Criterion	Covered	Total	%
statement	16	16	100.0
branch	3	4	75.0
condition	4	9	44.4
subroutine	3	3	100.0
pod	1	1	100.0
total	27	33	81.8

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

our $VERSION = '0.02';

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;

     DEPTH:
      for ( 1 .. $depth ) {
        push @{ $c->req->url->base->path->parts },
          shift @{ $c->req->url->path->parts };
      }
    }
  });
}

1;
__END__