This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Move file handling to non-exceptional order
[perl5.git] / cpan / HTTP-Tiny / corpus / put-02.txt
1 url
2   http://example.com/callback.txt
3 headers
4   Content-Type: text/plain
5   Content-Length: 42
6 content_cb
7   my @content = qq{abcdefghijklmnopqrstuvwxyz1234567890abcdef};
8   sub { shift @content }
9 ----------
10 PUT /callback.txt HTTP/1.1
11 Host: example.com
12 Connection: close
13 User-Agent: HTTP-Tiny/VERSION
14 Content-Type: text/plain
15 Content-Length: 42
16
17 abcdefghijklmnopqrstuvwxyz1234567890abcdef
18
19 ----------
20 HTTP/1.1 201 Created
21 Date: Thu, 03 Feb 1994 00:00:00 GMT
22 Location: http://example.com/callback.txt
23 Content-Length: 0
24