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