Mercurial > pub > Impl
view Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm @ 197:6b1dda998839
Added IMPL::declare, IMPL::require, to simplify module definitions
IMPL::Transform now admires object inheritance while searching for the transformation
Added HTTP some exceptions
IMPL::Web::Application::RestResource almost implemented
author | sergey |
---|---|
date | Thu, 19 Apr 2012 02:10:02 +0400 |
parents | 4d0e1962161c |
children |
line wrap: on
line source
package IMPL::Web::QueryHandler::PathInfoRewrite; use strict; use parent qw(IMPL::Web::QueryHandler); __PACKAGE__->PassThroughArgs; use IMPL::Class::Property; BEGIN { public property pathinfoPrefix => prop_all; } sub Process { my ($this,$query,$nextHandler) = @_; my $pathInfo = $ENV{PATH_INFO}; if (my $rx = $this->pathinfoPrefix) { $pathInfo =~ s/^($rx)//; } local $ENV{PATH_INFO} = $pathInfo; scalar $nextHandler->(); } 1;