Mercurial > pub > Impl

annotate Lib/IMPL/Web/ViewResult.pm @ 251:9f394b27dccf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
require can handle recursive module references
author sergey
date Fri, 16 Nov 2012 16:44:16 +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