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 |
