3 # Created by: Adam Jacob, Marchex, <adam@marchex.com>
4 # Created on: 10/16/2006 11:11:25 AM PDT
14 use Params::Validate qw(:all);
20 content_type => { type => SCALAR },
24 'ua' => LWP::UserAgent->new,
25 'content_type' => $p{'content_type'},
34 url => { type => SCALAR },
37 my $req = HTTP::Request->new('GET' => $p{'url'});
38 $req->content_type($self->{'content_type'});
46 url => { type => SCALAR },
49 my $req = HTTP::Request->new('DELETE' => $p{'url'});
50 $req->content_type($self->{'content_type'});
58 url => { type => SCALAR },
62 my $req = HTTP::Request->new('PUT' => $p{'url'});
63 $req->content_type($self->{'content_type'});
64 $req->content_length(do { use bytes; length($p{'data'}) });
65 $req->content($p{'data'});
73 url => { type => SCALAR },
74 data => { required => 1 },
77 my $req = HTTP::Request->new('POST' => $p{'url'});
78 $req->content_type($self->{'content_type'});
79 $req->content_length(do { use bytes; length($p{'data'}) });
80 $req->content($p{'data'});