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 <ga...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to