LWP ->set_cookie

[Andy Lester]

What's goin' on here?

#!/usr/bin/perl
use HTTP::Cookies;

use Data::Dumper;

my $cj = HTTP::Cookies->new;

$cj->set_cookie(
    1,                     # version
    'username',            # key
    'joe',                 # value
    '',                    # path
    'tparsons.co.uk',      # domain
    '80',                  # port
    '/blah',                     # path_spec
    0,                     # secure
    3600,                  # maxage
    0,                     # discard
);
print $cj->as_string, "\n";
{use Data::Dumper; local $Data::Dumper::Sortkeys=1;
    print Dumper( $cj)}


Why does the cookie not set?  And why does ->set_cookie() never return  
anything to show failure?  And why does ->set_cookie() never get  
exercised in the test suite?

Should ->set_cookie() go away?  How else would one set a cookie?

Thanks,
xoxo,
Andy

--
Andy Lester => a...@petdance.com => www.theworkinggeek.com => AIM:petdance