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);
};