Mercurial > pub > Impl
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; |
