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