use URI ();
use namespace::autoclean;
- our $VERSION = '0.000001';
+ our $VERSION = '0.000002';
requires qw/
base
around 'base' => sub {
my ($orig, $self, @args) = @_;
- if (scalar @args) {
- if (my $base = $self->header('X-Request-Base')) {
- $base .= '/' unless $base =~ m|/$|;
- @args = (URI->new($base));
- }
+ if (my $base = $self->header('X-Request-Base')) {
+ $base .= '/' unless $base =~ m|/$|;
+ @args = (URI->new($base));
}
$self->$orig(@args);
};
=head1 NAME
-Catalyst::TraitFor::Request::ProxyBase -
+Catalyst::TraitFor::Request::ProxyBase - Replace request base with value passed by HTTP proxy
=head1 SYNOPSIS