1package SimpleCookieJar;
2
3use strict;
4use warnings;
5
6sub new {
7    my $class = shift;
8    return bless {} => $class;
9}
10
11sub add {
12    my ($self, $url, $cookie) = @_;
13
14    my ($kv) = split qr/;/, $cookie;
15    my ($k, $v) = split qr/\s*=\s*/, $kv, 2;
16
17    $self->{$url}{$k} = $v;
18}
19
20sub cookie_header {
21    my ($self, $url) = @_;
22
23    my $cookies = $self->{$url}
24        or return '';
25
26    return join( "; ", map{ "$_=$cookies->{$_}" } sort keys %$cookies );
27}
28
291;
30