Mercurial > pub > Impl

annotate Lib/IMPL/Web/ViewResult.pm @ 254:fb52014f6931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated web-session creation
author sergey
date Thu, 06 Dec 2012 19:58:42 +0400
parents a02b110da931
children 32aceba4ee6d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
1 package IMPL::Web::ViewResult;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
2 use strict;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
3
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
4 use IMPL::Const qw(:prop);
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
5
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
6 use IMPL::declare {
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
7 base => [
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
8 'IMPL::Object' => undef,
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
9 'IMPL::Object::Autofill' => '@_'
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
10 ],
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
11 props => [
244
a02b110da931 refactoring
sergey
parents: 241
diff changeset
12 model => PROP_RW,
a02b110da931 refactoring
sergey
parents: 241
diff changeset
13 location => PROP_RW
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
14 ]
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
15 };
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
16
244
a02b110da931 refactoring
sergey
parents: 241
diff changeset
17 1;
a02b110da931 refactoring
sergey
parents: 241
diff changeset
18
a02b110da931 refactoring
sergey
parents: 241
diff changeset
19 __END__
a02b110da931 refactoring
sergey
parents: 241
diff changeset
20
a02b110da931 refactoring
sergey
parents: 241
diff changeset
21 =pod
a02b110da931 refactoring
sergey
parents: 241
diff changeset
22
a02b110da931 refactoring
sergey
parents: 241
diff changeset
23 =head1 NAME
a02b110da931 refactoring
sergey
parents: 241
diff changeset
24
a02b110da931 refactoring
sergey
parents: 241
diff changeset
25 C<IMPL::Web::ViewResult> - описание представления результата.
a02b110da931 refactoring
sergey
parents: 241
diff changeset
26
a02b110da931 refactoring
sergey
parents: 241
diff changeset
27 =head1 SYNOPSIS
a02b110da931 refactoring
sergey
parents: 241
diff changeset
28
a02b110da931 refactoring
sergey
parents: 241
diff changeset
29 =begin code
a02b110da931 refactoring
sergey
parents: 241
diff changeset
30
a02b110da931 refactoring
sergey
parents: 241
diff changeset
31 sub HttpGet {
a02b110da931 refactoring
sergey
parents: 241
diff changeset
32 my ($this, $action) = @_;
a02b110da931 refactoring
sergey
parents: 241
diff changeset
33
a02b110da931 refactoring
sergey
parents: 241
diff changeset
34 return IMPL::Web::ViewResult->new(
a02b110da931 refactoring
sergey
parents: 241
diff changeset
35 model => $model,
a02b110da931 refactoring
sergey
parents: 241
diff changeset
36 location => $this->location
a02b110da931 refactoring
sergey
parents: 241
diff changeset
37 );
a02b110da931 refactoring
sergey
parents: 241
diff changeset
38 }
a02b110da931 refactoring
sergey
parents: 241
diff changeset
39
a02b110da931 refactoring
sergey
parents: 241
diff changeset
40 =end code
a02b110da931 refactoring
sergey
parents: 241
diff changeset
41
a02b110da931 refactoring
sergey
parents: 241
diff changeset
42 =head1 DESCRIPTION
a02b110da931 refactoring
sergey
parents: 241
diff changeset
43
a02b110da931 refactoring
sergey
parents: 241
diff changeset
44 Сожержит в себе информацию для представления модели.
a02b110da931 refactoring
sergey
parents: 241
diff changeset
45
a02b110da931 refactoring
sergey
parents: 241
diff changeset
46 =head1 MEMBERS
a02b110da931 refactoring
sergey
parents: 241
diff changeset
47
a02b110da931 refactoring
sergey
parents: 241
diff changeset
48 =head2 C<[get,set]model>
a02b110da931 refactoring
sergey
parents: 241
diff changeset
49
a02b110da931 refactoring
sergey
parents: 241
diff changeset
50 Модель ресурса, как правило это результат выполнения C<Http> метода.
a02b110da931 refactoring
sergey
parents: 241
diff changeset
51
a02b110da931 refactoring
sergey
parents: 241
diff changeset
52 =head2 C<[get,set]location>
a02b110da931 refactoring
sergey
parents: 241
diff changeset
53
a02b110da931 refactoring
sergey
parents: 241
diff changeset
54 Текущий абсолютный адрес ресурса.
a02b110da931 refactoring
sergey
parents: 241
diff changeset
55
a02b110da931 refactoring
sergey
parents: 241
diff changeset
56 =cut