view release on metacpan or  search on metacpan

lib/ActiveResource/Connection.pm  view on Meta::CPAN

    my $request = HTTP::Request->new("POST", $url);
    $request->header("Content-Type" => "text/xml");
    $request->content($body);
    return ua->request($request);
}

sub put {
    my ($self, $path, $body) = @_;
    my $url = $self->url($path);

    my $request = HTTP::Request->new("PUT", $url);
    $request->header("Content-Type" => "text/xml");
    $request->content($body);
    return ua->request($request);
}

1;