version 1.5, 2010/06/27 01:52:33 |
version 1.6, 2010/06/27 03:33:54 |
|
|
return if !ref $data; |
return if !ref $data; |
|
|
my @data = @{$data}; |
my @data = @{$data}; |
foreach my $param ( $self->param ) { |
|
my $value = $self->param($param); |
my $p = $self->req->params->to_hash; |
|
while ( my ( $param, $value ) = each(%$p) ) { |
@data = grep { |
@data = grep { |
ref $_ ne 'HASH' |
ref $_ ne 'HASH' |
|| ( !exists $_->{$param} ) |
|| ( !exists $_->{$param} ) |
|| $value ~~ $_->{$param} |
|| $value ~~ $_->{$param} |
} @data; |
} @data; |
} |
} |
|
|
$self->render_json( \@data ); |
$self->render_json( \@data ); |
}; |
}; |
|
|