blob: d695dfa23125ab52760547ba506ea79915464d32 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
package Net::HTTP::Spore::Response;
use strict;
use warnings;
use overload '@{}' => \&finalize;
use HTTP::Headers;
sub new {
my ( $class, $rc, $headers, $body ) = @_;
my $self = bless {}, $class;
$self->status($rc) if defined $rc;
if (defined $body) {
$self->body($body);
$self->raw_body($body);
}
$self->headers($headers || []);
$self;
}
sub code { shift->status(@_) }
sub content { shift->body(@_) }
sub content_type { shift->headers->content_type(@_) }
sub content_length { shift->headers->content_length(@_) }
sub status {
my $self = shift;
if (@_) {
$self->{status} = shift;
}
else {
return $self->{status};
}
}
sub body {
my $self = shift;
if (@_) {
$self->{body} = shift;
}
else {
return $self->{body};
}
}
sub raw_body {
my $self = shift;
if (@_) {
$self->{raw_body} = shift;
}else{
return $self->{raw_body};
}
}
sub headers {
my $self = shift;
if (@_) {
my $headers = shift;
if ( ref $headers eq 'ARRAY' ) {
$headers = HTTP::Headers->new(@$headers);
}
elsif ( ref $headers eq 'HASH' ) {
$headers = HTTP::Headers->new(%$headers);
}
$self->{headers} = $headers;
}
else {
return $self->{headers} ||= HTTP::Headers->new();
}
}
sub request {
my $self = shift;
if (@_) {
$self->{request} = shift;
}else{
return $self->{request};
}
}
sub header {
my $self = shift;
$self->headers->header(@_);
}
sub finalize {
my $self = shift;
return [
$self->status,
+[
map {
my $k = $_;
map { ( $k => $_ ) } $self->headers->header($_);
} $self->headers->header_field_names
],
$self->body,
];
}
1;
|