- #syslog ('info', "TEST1 " . Dumper($info));
-
- my $param = {};
- my $i = 0;
- for (; $i < $regexlen; $i++) {
- my $comp = $stack->[$i];
- my $re = $info->{match_re}->[$i];
- #print "COMPARE $comp $info->{match_re}->[$i]\n";
- my ($match) = $stack->[$i] =~ m/^($re)$/;
- last if !defined($match);
- if (my $name = $info->{match_name}->[$i]) {
- $param->{$name} = $match;
- }
- }
-
- next if $i != $regexlen;
-
- #print "MATCH $info->{name}\n";
-
- foreach my $p (keys %$param) {
- $uri_param->{$p} = $param->{$p};
- }
-
- return $info;
- }
-}
-
-sub __find_handler_full {
- my ($class, $method, $stack, $uri_param, $pathmatchref) = @_;
-
- my $info;
- eval {
- $info = $class->map_method($stack, $method, $uri_param);
- };
- syslog('err', $@) if $@;
-
- return undef if !$info;
-
- $$pathmatchref .= '/' . $info->{path};