Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/JSONView.pm @ 370:cbf4febf0930

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ObjectMeta, Tests, migrating to the new metadata model.
author sergey
date Tue, 10 Dec 2013 03:02:01 +0400
parents 52aae1b85084
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
1 package IMPL::Web::Handler::JSONView;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
2 use strict;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
3 use JSON;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
4
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
5 use IMPL::lang qw(is);
297
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
6 use IMPL::Const qw(:prop);
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
7 use IMPL::declare {
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 206
diff changeset
8 require => {
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
9 HttpResponse => 'IMPL::Web::HttpResponse',
297
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
10 ViewResult => '-IMPL::Web::ViewResult',
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
11 Loader => 'IMPL::Code::Loader'
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 206
diff changeset
12 },
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 206
diff changeset
13 base => [
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
14 'IMPL::Object' => undef,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
15 'IMPL::Object::Serializable' => undef,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
16 'IMPL::Object::Autofill' => '@_'
297
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
17 ],
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
18 props => [
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
19 transform => PROP_RW
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 206
diff changeset
20 ]
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
21 };
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
22
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 199
diff changeset
23 sub contentType {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 199
diff changeset
24 'application/json'
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 199
diff changeset
25 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 199
diff changeset
26
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
27 sub Invoke {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
28 my ($this,$action,$next) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
29
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 199
diff changeset
30 my $result = $next ? $next->($action) : undef;
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
31
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
32
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
33 my $model = ( ref $result and is($result,ViewResult) )
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
34 ? $result->model
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
35 : $result;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
36
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
37 $model = [$model] unless ref $model;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
38
297
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
39 if (my $factory = $this->transform) {
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
40 Loader->safe->Require($factory) unless ref $factory;
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
41 my $t = $this->transform->new();
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
42 $model = $t->Transform($model);
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
43 }
52aae1b85084 Added transformations support to JSONView
cin
parents: 256
diff changeset
44
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
45 my %params = (
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 206
diff changeset
46 type => $this->contentType,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 206
diff changeset
47 charset => 'utf-8',
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 233
diff changeset
48 body => JSON->new->utf8->pretty->encode($model)
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
49 );
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
50
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
51 if(is($result,ViewResult)) {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
52 $params{status} = $result->status if $result->status;
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
53 $params{headers} = $result->headers if $result->headers;
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
54 $params{cookies} = $result->cookies if $result->cookies;
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
55 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
56
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
57 return HttpResponse->new(
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
58 %params
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 241
diff changeset
59 );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
60 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
61
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
62 1;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
63
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
64 __END__
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
65
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
66 =pod
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
67
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
68 =head1
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
69
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents:
diff changeset
70 =cut