diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-07-17 20:52:59 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-07-17 20:53:47 -0500 |
commit | 0af93c1b4b4e26f88db7974ab6587de9880ef5a3 (patch) | |
tree | c36307690a102d0a8bf569557f0590e07a47c3ad /lib/Web/Response.pm | |
parent | aeb3e2037fddb28293070577e0eb054d0d64c8d3 (diff) | |
download | web-request-0af93c1b4b4e26f88db7974ab6587de9880ef5a3.tar.gz web-request-0af93c1b4b4e26f88db7974ab6587de9880ef5a3.zip |
add some better type constraints and coercions
Diffstat (limited to 'lib/Web/Response.pm')
-rw-r--r-- | lib/Web/Response.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Web/Response.pm b/lib/Web/Response.pm index e7b96c9..970f322 100644 --- a/lib/Web/Response.pm +++ b/lib/Web/Response.pm @@ -3,17 +3,20 @@ use Moose; use HTTP::Headers; +use Web::Response::Types (); + has status => ( is => 'rw', - isa => 'Int', # XXX restrict to /^[1-5][0-9][0-9]$/ + isa => 'Web::Response::Types::HTTPStatus', lazy => 1, default => sub { confess "Status was not supplied" }, ); has headers => ( is => 'rw', - isa => 'HTTP::Headers', # XXX coerce from array/hashref + isa => 'Web::Response::Types::HTTP::Headers', lazy => 1, + coerce => 1, default => sub { HTTP::Headers->new }, handles => { header => 'header', @@ -26,7 +29,9 @@ has headers => ( has body => ( is => 'rw', + isa => 'Web::Response::Types::PSGIBody', lazy => 1, + coerce => 1, default => sub { [] }, ); |