r13014 - in /branches/upstream/libnet-amazon-perl/current: ./ lib/Net/ lib/Net/Amazon/ lib/Net/Amazon/Property/ t/
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri Jan 18 22:45:03 UTC 2008
Author: gregoa-guest
Date: Fri Jan 18 22:45:03 2008
New Revision: 13014
URL: http://svn.debian.org/wsvn/?sc=1&rev=13014
Log:
[svn-upgrade] Integrating new upstream version, libnet-amazon-perl (0.48)
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/DVD.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
branches/upstream/libnet-amazon-perl/current/t/018Actor.t
branches/upstream/libnet-amazon-perl/current/t/022Director.t
branches/upstream/libnet-amazon-perl/current/t/023Title.t
Modified: branches/upstream/libnet-amazon-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/Changes?rev=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/Changes (original)
+++ branches/upstream/libnet-amazon-perl/current/Changes Fri Jan 18 22:45:03 2008
@@ -1,4 +1,9 @@
Revision history for Perl extension Net::Amazon:
+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
+ is now separate from the release date function.
+
0.47 (12/16/2007)
(cb) Fix an issue on Darwin with Perl 5.10. Yet another issue found
by CPAN testers - thanks!
Modified: branches/upstream/libnet-amazon-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/META.yml?rev=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/META.yml (original)
+++ branches/upstream/libnet-amazon-perl/current/META.yml Fri Jan 18 22:45:03 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.47
+version: 0.48
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=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/README (original)
+++ branches/upstream/libnet-amazon-perl/current/README Fri Jan 18 22:45:03 2008
@@ -1,5 +1,5 @@
######################################################################
- Net::Amazon 0.47
+ Net::Amazon 0.48
######################################################################
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=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm Fri Jan 18 22:45:03 2008
@@ -8,7 +8,7 @@
use strict;
use warnings;
-our $VERSION = '0.47';
+our $VERSION = '0.48';
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=13014&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 Jan 18 22:45:03 2008
@@ -41,7 +41,8 @@
SmallImageWidth => [qw(SmallImage Width content)],
SmallImageHeight => [qw(SmallImage Height content)],
SuperSaverShipping => [qw(Offers Offer OfferListing IsEligibleForSuperSaverShipping)],
- Title => [qw(Title)],
+ Title => [qw(ItemAttributes Title)],
+ title => [qw(ItemAttributes Title)],
ThirdPartyNewCount => [qw(OfferSummary TotalNew)],
ThirdPartyNewPrice => [qw(OfferSummary LowestNewPrice FormattedPrice)],
TotalOffers => [qw(Offers TotalOffers)],
@@ -49,11 +50,12 @@
UsedPrice => [qw(OfferSummary LowestUsedPrice FormattedPrice)],
RawListPrice => [qw(ItemAttributes ListPrice Amount)],
CurrencyCode => [qw(ItemAttributes ListPrice CurrencyCode)],
+ ReleaseDate => [qw(ItemAttributes ReleaseDate)],
);
our @DEFAULT_ATTRIBUTES = qw(
SalesRank ASIN DetailPageURL ProductDescription
- NumMedia ReleaseDate NumberOfOfferings
+ NumMedia NumberOfOfferings
);
our %COMPATIBLE_ATTRIBUTES = (
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=13014&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 Jan 18 22:45:03 2008
@@ -5,7 +5,7 @@
use strict;
use base qw(Net::Amazon::Property);
-__PACKAGE__->make_accessor($_) for qw(title publisher binding isbn
+__PACKAGE__->make_accessor($_) for qw(publisher binding isbn
dewey_decimal numpages edition ean publication_date);
__PACKAGE__->make_array_accessor($_) for qw(authors);
@@ -37,8 +37,6 @@
$self->binding($ref->{Binding});
$self->dewey_decimal($ref->{DeweyDecimalNumber});
$self->numpages($ref->{NumberOfPages});
- $self->title($ref->{Title});
- $self->Title($ref->{Title});
$self->publisher($ref->{Publisher});
$self->isbn($ref->{ISBN});
$self->edition($ref->{Edition});
@@ -51,8 +49,6 @@
$self->year($year);
$self->publication_date($ref->{PublicationDate});
-
- $self->ReleaseDate($ref->{ReleaseDate});
}
##################################################
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=13014&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 Jan 18 22:45:03 2008
@@ -6,7 +6,7 @@
use base qw(Net::Amazon::Property);
__PACKAGE__->make_accessor($_) for qw(brand ean label manufacturer model mpn
- publisher studio title upc warranty);
+ publisher studio upc warranty);
__PACKAGE__->make_array_accessor($_) for qw(platforms features);
@@ -44,8 +44,6 @@
$self->platforms($ref->{Platform} || 'UNKNOWN');
$self->publisher($ref->{Publisher});
$self->studio($ref->{Studio});
- $self->title($ref->{Title});
- $self->Title($ref->{Title});
$self->upc($ref->{UPC});
$self->warranty($ref->{Warranty});
Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/DVD.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/DVD.pm?rev=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/DVD.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon/Property/DVD.pm Fri Jan 18 22:45:03 2008
@@ -5,8 +5,8 @@
use strict;
use base qw(Net::Amazon::Property);
-__PACKAGE__->make_accessor($_) for qw(title studio theatrical_release_date
- media nummedia upc mpaa_rating region_code label running_time publisher ean);
+__PACKAGE__->make_accessor($_) for qw(studio media nummedia upc mpaa_rating
+region_code label running_time publisher ean theatrical_release_date);
__PACKAGE__->make_array_accessor($_) for qw(actors directors features starring);
##################################################
@@ -73,10 +73,8 @@
$self->region_code($ref->{RegionCode});
$self->running_time($ref->{RunningTime}->{content});
$self->studio($ref->{Studio});
+ $self->upc($ref->{UPC});
$self->theatrical_release_date($ref->{TheatricalReleaseDate});
- $self->title($ref->{Title});
- $self->Title($ref->{Title});
- $self->upc($ref->{UPC});
$self->media($ref->{Binding});
@@ -88,8 +86,6 @@
my $year = (split(/\-/, $ref->{TheatricalReleaseDate}))[0];
$self->year($year);
}
-
- $self->ReleaseDate($ref->{TheatricalReleaseDate});
}
1;
@@ -166,6 +162,14 @@
Returns the DVD's features as a list of strings. Examples:
"Color", "Closed-captioned", "Widescreen".
+=item ReleaseDate()
+
+Returns the release date.
+
+For historical reasons, this method used to return the theatrical release date.
+However, as of version Net::Amazon 0.48 the release date is returned, and
+a separate L</theatrical_release_date()> method is available.
+
=item new(xmlref => $xmlref)
Initializes an object by passing a hash of hashes structure containing
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=13014&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 Jan 18 22:45:03 2008
@@ -54,7 +54,6 @@
$self->artists(\@artists);
$self->album($ref->{Title});
- $self->Title($ref->{Title});
$self->ean($ref->{EAN});
$self->label($ref->{Label});
$self->media($ref->{Binding});
@@ -80,7 +79,6 @@
$year = (split(/\-/, $ref->{ReleaseDate}))[0];
}
$self->year($year);
- $self->ReleaseDate($ref->{ReleaseDate});
}
##################################################
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=13014&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 Jan 18 22:45:03 2008
@@ -7,8 +7,7 @@
use Log::Log4perl qw(:easy get_logger);
__PACKAGE__->make_accessor($_) for qw(brand ean esrb_rating label media
- manufacturer nummedia publisher studio
- title);
+ manufacturer nummedia publisher studio);
__PACKAGE__->make_array_accessor($_) for qw(platforms);
@@ -44,8 +43,6 @@
$self->platforms($ref->{Platform});
$self->publisher($ref->{Publisher});
$self->studio($ref->{Studio});
- $self->title($ref->{Title});
- $self->Title($ref->{Title});
$self->media($ref->{Binding});
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=13014&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 Jan 18 22:45:03 2008
@@ -6,8 +6,8 @@
use base qw(Net::Amazon::Property);
use Log::Log4perl qw(:easy get_logger);
-__PACKAGE__->make_accessor($_) for qw(brand ean esrb_rating label upc manufacturer media nummedia
- publisher studio title);
+__PACKAGE__->make_accessor($_) for qw(brand ean esrb_rating label upc
+manufacturer media nummedia publisher studio);
__PACKAGE__->make_array_accessor($_) for qw(platforms authors);
@@ -44,8 +44,6 @@
$self->publisher($ref->{Publisher});
$self->manufacturer($ref->{Publisher});
$self->studio($ref->{Studio});
- $self->title($ref->{Title});
- $self->Title($ref->{Title});
$self->upc($ref->{UPC});
$self->media($ref->{NumberOfItems});
Modified: branches/upstream/libnet-amazon-perl/current/t/018Actor.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/t/018Actor.t?rev=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/t/018Actor.t (original)
+++ branches/upstream/libnet-amazon-perl/current/t/018Actor.t Fri Jan 18 22:45:03 2008
@@ -4,7 +4,7 @@
use warnings;
use strict;
-use Test::More tests => 23;
+use Test::More tests => 24;
BEGIN { use_ok('Net::Amazon') };
#use Log::Log4perl qw(:easy);
@@ -50,6 +50,7 @@
is($properties[$i]->director, "Dennis Dugan", "Check director");
like($properties[$i]->title, qr/I Now Pronounce You Chuck/, "Check title");
is($properties[$i]->studio, "Universal Studios Home Entertainment", "Check studio");
+is($properties[$i]->ReleaseDate, "2007-11-06", "Check release date");
is($properties[$i]->theatrical_release_date, "2007-07-20", "Check theatrical release date");
is($properties[$i]->media, "HD DVD", "Check media");
is($properties[$i]->Media, "HD DVD", "Check Media");
Modified: branches/upstream/libnet-amazon-perl/current/t/022Director.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/t/022Director.t?rev=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/t/022Director.t (original)
+++ branches/upstream/libnet-amazon-perl/current/t/022Director.t Fri Jan 18 22:45:03 2008
@@ -49,7 +49,7 @@
is($properties[$i]->director, "Hayao Miyazaki", "Check director");
like($properties[$i]->title, qr/Howl's Moving Castle/, "Check title");
is($properties[$i]->studio, "Walt Disney Home Entertainment", "Check studio");
-is($properties[$i]->theatrical_release_date, "2004", "Check theatrical release date");
+is($properties[$i]->ReleaseDate, "2006-03-07", "Check release date");
is($properties[$i]->media, "DVD", "Check media");
is($properties[$i]->Media, "DVD", "Check Media");
is($properties[$i]->nummedia, 2, "Check nummedia");
Modified: branches/upstream/libnet-amazon-perl/current/t/023Title.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-amazon-perl/current/t/023Title.t?rev=13014&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/t/023Title.t (original)
+++ branches/upstream/libnet-amazon-perl/current/t/023Title.t Fri Jan 18 22:45:03 2008
@@ -47,7 +47,7 @@
# is($properties[0]->director, "Hayao Miyazaki", "Check director");
# like($properties[0]->title, qr/Castle of Cagliostro/, "Check title");
# is($properties[0]->studio, "Manga Video", "Check studio");
-# is($properties[0]->theatrical_release_date, "1991-04-03", "Check theatrical release date");
+# is($properties[0]->ReleaseDate, "1991-04-03", "Check release date");
# is($properties[0]->media, "DVD", "Check media");
# is($properties[0]->Media, "DVD", "Check Media");
# is($properties[0]->nummedia, 1, "Check nummedia");
More information about the Pkg-perl-cvs-commits
mailing list