Mercurial > pub > Impl
comparison Lib/IMPL/Web/Application/ControllerUnit.pm @ 160:3f09584bf189
Corrected web application modules
author | wizard |
---|---|
date | Mon, 27 Dec 2010 19:41:36 +0300 |
parents | e6447ad85cb4 |
children | 4267a2ac3d46 |
comparison
equal
deleted
inserted
replaced
159:f8de52d3c112 | 160:3f09584bf189 |
---|---|
209 | 209 |
210 while (my ($method,$info) = each %$methods) { | 210 while (my ($method,$info) = each %$methods) { |
211 my %methodInfo = ( | 211 my %methodInfo = ( |
212 name => $method | 212 name => $method |
213 ); | 213 ); |
214 $methodInfo{parameters} = $info->{parameters} if $info->{parameters}; | 214 $methodInfo{parameters} = [ grep /^[^\:]/, @{ $info->{parameters} } ] if ref $info->{parameters} eq 'ARRAY'; |
215 push @{$smd{methods}},\%methodInfo; | 215 push @{$smd{methods}},\%methodInfo; |
216 } | 216 } |
217 return \%smd; | 217 return \%smd; |
218 } | 218 } |
219 | 219 |