r14726 - in /branches/upstream/libflickr-api-perl/current: META.yml lib/Flickr/API.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Mon Feb 11 04:45:28 UTC 2008
Author: tincho-guest
Date: Mon Feb 11 04:45:26 2008
New Revision: 14726
URL: http://svn.debian.org/wsvn/?sc=1&rev=14726
Log:
[svn-upgrade] Integrating new upstream version, libflickr-api-perl (0.09)
Modified:
branches/upstream/libflickr-api-perl/current/META.yml
branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm
Modified: branches/upstream/libflickr-api-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libflickr-api-perl/current/META.yml?rev=14726&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/META.yml (original)
+++ branches/upstream/libflickr-api-perl/current/META.yml Mon Feb 11 04:45:26 2008
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Flickr-API
-version: 0.08
+version: 0.09
version_from: lib/Flickr/API.pm
installdirs: site
requires:
Modified: branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm?rev=14726&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm (original)
+++ branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm Mon Feb 11 04:45:26 2008
@@ -10,7 +10,7 @@
our @ISA = qw(LWP::UserAgent);
-our $VERSION = '0.08';
+our $VERSION = '0.09';
sub new {
my $class = shift;
@@ -19,6 +19,12 @@
$self->{api_key} = $options->{key};
$self->{api_secret} = $options->{secret};
+ eval {
+ require Compress::Zlib;
+
+ $self->default_header('Accept-Encoding' => 'gzip');
+ };
+
warn "You must pass an API key to the constructor" unless defined $self->{api_key};
bless $self, $class;
@@ -96,7 +102,7 @@
return $response;
}
- my $tree = XML::Parser::Lite::Tree::instance()->parse($response->{_content});
+ my $tree = XML::Parser::Lite::Tree::instance()->parse($response->decoded_content());
my $rsp_node = $self->_find_tag($tree->{children});
More information about the Pkg-perl-cvs-commits
mailing list