Mercurial > pub > Impl

comparison Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
5 __PACKAGE__->PassThroughArgs; 5 __PACKAGE__->PassThroughArgs;
6 6
7 use IMPL::Class::Property; 7 use IMPL::Class::Property;
8 8
9 BEGIN { 9 BEGIN {
10 public property pathinfoPrefix => prop_all; 10 public property pathinfoPrefix => prop_all;
11 } 11 }
12 12
13 sub Process { 13 sub Process {
14 my ($this,$query,$nextHandler) = @_; 14 my ($this,$query,$nextHandler) = @_;
15 15
16 my $pathInfo = $ENV{PATH_INFO}; 16 my $pathInfo = $ENV{PATH_INFO};
17 if (my $rx = $this->pathinfoPrefix) { 17 if (my $rx = $this->pathinfoPrefix) {
18 $pathInfo =~ s/^($rx)//; 18 $pathInfo =~ s/^($rx)//;
19 } 19 }
20 20
21 local $ENV{PATH_INFO} = $pathInfo; 21 local $ENV{PATH_INFO} = $pathInfo;
22 22
23 scalar $nextHandler->(); 23 scalar $nextHandler->();
24 } 24 }
25 25
26 1; 26 1;