lib/Net/Twitter/Role/API/Lists.pm @@ -2,7 +2,7 @@ NAME Net::Twitter - A perl interface to the Twitter API VERSION - This document describes Net::Twitter version 3.07004 + This document describes Net::Twitter version 3.07999_01 SYNOPSIS use Net::Twitter; README @@ -17,7 +17,7 @@ use Data::Visitor::Callback; use namespace::autoclean; # use *all* digits for fBSD ports -our $VERSION = '3.07004'; +our $VERSION = '3.07999_01'; $VERSION = eval $VERSION; # numify for warning-free dev releases @@ -103,9 +103,9 @@ sub _authenticated_request { $self->_encode_args($args); - if ( $http_method eq 'GET' ) { + if ( $http_method =~ /^(?:GET|DELETE)$/ ) { $uri->query_form($args); - $msg = GET($uri); + $msg = HTTP::Request->new($http_method, $uri); } elsif ( $http_method eq 'POST' ) { # if any of the arguments are (array) refs, use form-data lib/Net/Twitter/Core.pm @@ -170,8 +170,8 @@ override _authenticated_request => sub { extra_params => $is_multipart ? {} : $args, ); - if ( $http_method eq 'GET' ) { - $msg = GET($request->to_url); + if ( $http_method =~ /^(?:GET|DELETE)$/ ) { + $msg = HTTP::Request->new($http_method, $request->to_url); } elsif ( $http_method eq 'POST' ) { $msg = $is_multipart @@ -187,11 +187,11 @@ override _authenticated_request => sub { croak "unexpected http_method: $http_method"; } } - elsif ( $http_method eq 'GET' ) { + elsif ( $http_method =~ /^(?:GET|DELETE)$/ ) { $self->_encode_args($args); $uri->query_form($args); $args = {}; - $msg = GET($uri); + $msg = HTTP::Request->new($http_method, $uri); } elsif ( $http_method eq 'POST' ) { $self->_encode_args($args); lib/Net/Twitter/Role/OAuth.pm @@ -90,6 +90,7 @@ twittervision ua un unfollow +Unsubscribes url useragent username t/99-pod_spelling.t c2d6da77e51f0365a1317babe8d612915af031c9 b22732ab7b5b7c9e921dfadf9ec97fb702207fa4 Marc Mims marc@questright.com http://github.com/semifor/Net-Twitter/commit/14998de040e397b7b4807ae14d9d0fae4949fc99 14998de040e397b7b4807ae14d9d0fae4949fc99 2009-11-02T09:40:50-08:00 2009-11-02T09:40:50-08:00 Merge branch 'lists-api' Conflicts: Changes 787aa1c9c13f195104c337eb90348070f667ecbe Marc Mims marc@questright.com