Mercurial > pub > Impl
comparison Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm @ 194:4d0e1962161c
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; |