Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/ViewResult.pm @ 213:d6e2ea24af08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Fri, 03 Aug 2012 01:15:15 +0400
parents
children 4683002758aa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
213
sergey
parents:
diff changeset
1 package IMPL::Web::Application::ViewResult;
sergey
parents:
diff changeset
2 use strict;
sergey
parents:
diff changeset
3
sergey
parents:
diff changeset
4 use IMPL::lang qw(:declare);
sergey
parents:
diff changeset
5 use IMPL::declare {
sergey
parents:
diff changeset
6 base => [
sergey
parents:
diff changeset
7 'IMPL::Web::Application::ActionResult' => '@_'
sergey
parents:
diff changeset
8 ]
sergey
parents:
diff changeset
9 };
sergey
parents:
diff changeset
10
sergey
parents:
diff changeset
11 BEGIN {
sergey
parents:
diff changeset
12 public property model => PROP_ALL;
sergey
parents:
diff changeset
13 public property type => PROP_ALL;
sergey
parents:
diff changeset
14 }
sergey
parents:
diff changeset
15
sergey
parents:
diff changeset
16 sub CTOR {
sergey
parents:
diff changeset
17 my $this = shift;
sergey
parents:
diff changeset
18 $this->status('200 OK') unless $this->status;
sergey
parents:
diff changeset
19 }
sergey
parents:
diff changeset
20
sergey
parents:
diff changeset
21
sergey
parents:
diff changeset
22 1;