view Lib/IMPL/Web/Handler/JSONView.pm @ 376:a54a2faf2f7e

added localizable string maps
author cin
date Mon, 13 Jan 2014 17:52:04 +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