r19164 - in /branches/upstream/libnet-amazon-perl/current: ./ lib/Net/ lib/Net/Amazon/ lib/Net/Amazon/Property/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Apr 25 21:43:05 UTC 2008
Author: gregoa
Date: Fri Apr 25 21:43:04 2008
New Revision: 19164
URL: http://svn.debian.org/wsvn/?sc=1&rev=19164
Log:
[svn-upgrade] Integrating new upstream version, libnet-amazon-perl (0.49)
Modified:
branches/upstream/libnet-amazon-perl/current/Changes
branches/upstream/libnet-amazon-perl/current/META.yml
branches/upstream/libnet-amazon-perl/current/README
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property.pm
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Book.pm
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/CE.pm
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Music.pm
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Software.pm
branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/VideoGames.pm
Modified: branches/upstream/libnet-amazon-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/Changes?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/Changes (original)
+++ branches/upstream/libnet-amazon-perl/current/Changes Fri Apr 25 21:43:04 2008
@@ -1,4 +1,10 @@
Revision history for Perl extension Net::Amazon:
+0.49 (04/24/2008)
+ (cb) Make an effort to return the price of an item. Check for the
+ price of an item in the following order: Amazon's price, third
+ party new, and then third party used. This issue was reported
+ by a least two different people via Mike Schilli.
+
0.48 (01/13/2008)
(cb) Fix from MATSUU Takuto for ReleaseDate, and Title. These methods
have been moved to the base class. The theatrical release date
Modified: branches/upstream/libnet-amazon-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/META.yml?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/META.yml (original)
+++ branches/upstream/libnet-amazon-perl/current/META.yml Fri Apr 25 21:43:04 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: Net-Amazon
-version: 0.48
+version: 0.49
version_from: lib/Net/Amazon.pm
installdirs: site
requires:
Modified: branches/upstream/libnet-amazon-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/README?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/README (original)
+++ branches/upstream/libnet-amazon-perl/current/README Fri Apr 25 21:43:04 2008
@@ -1,5 +1,5 @@
######################################################################
- Net::Amazon 0.48
+ Net::Amazon 0.49
######################################################################
NAME
Net::Amazon - Framework for accessing amazon.com via REST
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm Fri Apr 25 21:43:04 2008
@@ -8,7 +8,7 @@
use strict;
use warnings;
-our $VERSION = '0.48';
+our $VERSION = '0.49';
our $WSDL_DATE = '2007-10-29';
our $Locale = 'us';
our @CANNED_RESPONSES = ();
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property.pm Fri Apr 25 21:43:04 2008
@@ -139,11 +139,32 @@
}
$result .= $self->year() . ", " if $self->year();
- $result .= $self->OurPrice() . ", ";
+
+ $result .= $self->_best_effort_price() . ", ";
$result .= $self->ASIN();
return $result;
}
+
+##################################################
+sub _best_effort_price {
+##################################################
+ my($self) = @_;
+
+ my $price;
+ if ($self->OurPrice()) {
+ $price = $self->OurPrice();
+ } elsif ($self->ThirdPartyNewPrice()) {
+ $price = $self->ThirdPartyNewPrice();
+ } elsif ($self->UsedPrice()) {
+ $price = $self->UsedPrice();
+ } else {
+ $price = '[$unknown]';
+ }
+
+ return $price;
+}
+
##################################################
sub factory {
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Book.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Book.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Book.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Book.pm Fri Apr 25 21:43:04 2008
@@ -70,7 +70,7 @@
return join('/', @a) . ", " .
'"' . $self->title . '"' . ", " .
$self->year . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/CE.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/CE.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/CE.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/CE.pm Fri Apr 25 21:43:04 2008
@@ -76,7 +76,7 @@
return join('/', $self->platforms) . ", " .
'"' . $self->title . '"' . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Music.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Music.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Music.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Music.pm Fri Apr 25 21:43:04 2008
@@ -89,7 +89,7 @@
return join('/', $self->artists) . ", " .
'"' . $self->album . '"' . ", " .
$self->year . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->Asin;
}
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Software.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Software.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Software.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/Software.pm Fri Apr 25 21:43:04 2008
@@ -68,7 +68,7 @@
return join('/', @a) . ", " .
'"' . $self->title . '"' . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/VideoGames.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/VideoGames.pm?rev=19164&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/VideoGames.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/VideoGames.pm Fri Apr 25 21:43:04 2008
@@ -84,7 +84,7 @@
return join('/', $self->platforms) . ", " .
'"' . $self->title . '"' . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
More information about the Pkg-perl-cvs-commits
mailing list