[libflickr-api-perl] 38/40: replace indirect by direct call in the code as well

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to tag 1.08
in repository libflickr-api-perl.

commit 192f1128c53fd78ffc571f4e1b1d62eae5d69bc2
Author: Gabor Szabo <gabor at szabgab.com>
Date:   Wed Jun 19 09:24:50 2013 +0300

    replace indirect by direct call in the code as well
---
 lib/Flickr/API.pm          | 4 ++--
 lib/Flickr/API/Request.pm  | 2 +-
 lib/Flickr/API/Response.pm | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Flickr/API.pm b/lib/Flickr/API.pm
index fd268dd..35d6b7f 100644
--- a/lib/Flickr/API.pm
+++ b/lib/Flickr/API.pm
@@ -29,7 +29,7 @@ sub new {
 			}
 		}
 	}
-	$self = new LWP::UserAgent unless $self;
+	$self = LWP::UserAgent->new unless $self;
 
 	$self->{api_key}	= $options->{key};
 	$self->{api_secret}	= $options->{secret};
@@ -93,7 +93,7 @@ sub request_auth_url {
 sub execute_method {
 	my ($self, $method, $args) = @_;
 
-	my $request = new Flickr::API::Request({
+	my $request = Flickr::API::Request->new({
 		'method'	=> $method,
 		'args'		=> $args,
 		'rest_uri'	=> $self->{rest_uri},
diff --git a/lib/Flickr/API/Request.pm b/lib/Flickr/API/Request.pm
index c095096..3027196 100644
--- a/lib/Flickr/API/Request.pm
+++ b/lib/Flickr/API/Request.pm
@@ -12,7 +12,7 @@ our $VERSION = '0.03';
 sub new {
 	my $class = shift;
 	my $options = shift;
-	my $self = new HTTP::Request;
+	my $self = HTTP::Request->new;
 	$self->{api_method}	= $options->{method};
 	$self->{api_args}	= $options->{args};
 	$self->{rest_uri}	= $options->{rest_uri} || 'http://api.flickr.com/services/rest/';
diff --git a/lib/Flickr/API/Response.pm b/lib/Flickr/API/Response.pm
index 7593c98..2f09df4 100644
--- a/lib/Flickr/API/Response.pm
+++ b/lib/Flickr/API/Response.pm
@@ -10,7 +10,7 @@ our $VERSION = '0.02';
 
 sub new {
 	my $class = shift;
-	my $self = new HTTP::Response;
+	my $self = HTTP::Response->new;
 	my $options = shift;
 	bless $self, $class;
 	return $self;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libflickr-api-perl.git