Mercurial > pub > Impl
comparison Lib/IMPL/Web/Response.pm @ 52:15d720913562
security in work
author | wizard@linux-odin.local |
---|---|
date | Tue, 02 Mar 2010 20:12:02 +0300 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
51:a1498298d3ee | 52:15d720913562 |
---|---|
1 package IMPL::Web::Response; | |
2 | |
3 use base qw(IMPL::Object); | |
4 | |
5 require IMPL::Exception; | |
6 | |
7 use IMPL::Class::Property; | |
8 use HTTP::Response; | |
9 | |
10 BEGIN { | |
11 public property request => prop_get; # cgi query | |
12 public property contentType => prop_all, { validator => \&_checkHeaderPrinted }; # String | |
13 public property buffered => prop_get; # Boolean | |
14 public property cookies => prop_all, { validator => \&_checkHeaderPrinted }; # Hash | |
15 public property streamBody => { get => \&getStreamBody }; # stream | |
16 | |
17 private property _streamBody => prop_all; # stream | |
18 private property _streamOut => prop_all; # stream | |
19 private property _isHeaderPrinted => prop_all; # Boolean | |
20 } | |
21 | |
22 sub _checkHeaderPrinted { | |
23 my ($this,$value) = @_; | |
24 | |
25 die new IMPL::InvalidOperationException() if $this->_isHeaderPrinted; | |
26 } | |
27 | |
28 sub getStreamBody { | |
29 my ($this) = @_; | |
30 | |
31 return $this->_streamBody if $this->buffered; | |
32 | |
33 | |
34 } | |
35 | |
36 sub _PrintHeader { | |
37 my ($this) = @_; | |
38 | |
39 unless ($this->_isHeaderPrinted) { | |
40 $this->_isHeaderPrinted(1); | |
41 | |
42 | |
43 } | |
44 } | |
45 | |
46 sub Send { | |
47 | |
48 } | |
49 | |
50 1; | |
51 | |
52 __END__ | |
53 | |
54 =pod | |
55 | |
56 | |
57 | |
58 =cut |