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

sync
author sergey
date Fri, 03 Aug 2012 01:15:15 +0400
parents
children 4683002758aa
comparison
equal deleted inserted replaced
212:292226770180 213:d6e2ea24af08
1 package IMPL::Web::Application::ViewResult;
2 use strict;
3
4 use IMPL::lang qw(:declare);
5 use IMPL::declare {
6 base => [
7 'IMPL::Web::Application::ActionResult' => '@_'
8 ]
9 };
10
11 BEGIN {
12 public property model => PROP_ALL;
13 public property type => PROP_ALL;
14 }
15
16 sub CTOR {
17 my $this = shift;
18 $this->status('200 OK') unless $this->status;
19 }
20
21
22 1;