Mercurial > pub > Impl
view Lib/IMPL/Web/Handler/JSONView.pm @ 325:34a110d1f06c
added security check for the query transformation
author | cin |
---|---|
date | Mon, 27 May 2013 02:49:58 +0400 |
parents | 52aae1b85084 |
children |
line wrap: on
line source
package IMPL::Web::Handler::JSONView; use strict; use JSON; use IMPL::lang qw(is); use IMPL::Const qw(:prop); use IMPL::declare { require => { HttpResponse => 'IMPL::Web::HttpResponse', ViewResult => '-IMPL::Web::ViewResult', Loader => 'IMPL::Code::Loader' }, base => [ 'IMPL::Object' => undef, 'IMPL::Object::Serializable' => undef, 'IMPL::Object::Autofill' => '@_' ], props => [ transform => PROP_RW ] }; sub contentType { 'application/json' } sub Invoke { my ($this,$action,$next) = @_; my $result = $next ? $next->($action) : undef; my $model = ( ref $result and is($result,ViewResult) ) ? $result->model : $result; $model = [$model] unless ref $model; if (my $factory = $this->transform) { Loader->safe->Require($factory) unless ref $factory; my $t = $this->transform->new(); $model = $t->Transform($model); } my %params = ( type => $this->contentType, charset => 'utf-8', body => JSON->new->utf8->pretty->encode($model) ); if(is($result,ViewResult)) { $params{status} = $result->status if $result->status; $params{headers} = $result->headers if $result->headers; $params{cookies} = $result->cookies if $result->cookies; } return HttpResponse->new( %params ); } 1; __END__ =pod =head1 =cut