r7479 - in /branches/upstream/libbusiness-isbn-data-perl/current: Changes Data.pm MANIFEST META.yml t/check_data_structure.t t/test_manifest

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Wed Sep 12 13:08:40 UTC 2007


Author: dmn
Date: Wed Sep 12 13:08:40 2007
New Revision: 7479

URL: http://svn.debian.org/wsvn/?sc=1&rev=7479
Log:
[svn-upgrade] Integrating new upstream version, libbusiness-isbn-data-perl (1.15)

Added:
    branches/upstream/libbusiness-isbn-data-perl/current/t/check_data_structure.t
Modified:
    branches/upstream/libbusiness-isbn-data-perl/current/Changes
    branches/upstream/libbusiness-isbn-data-perl/current/Data.pm
    branches/upstream/libbusiness-isbn-data-perl/current/MANIFEST
    branches/upstream/libbusiness-isbn-data-perl/current/META.yml
    branches/upstream/libbusiness-isbn-data-perl/current/t/test_manifest

Modified: branches/upstream/libbusiness-isbn-data-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-data-perl/current/Changes?rev=7479&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-data-perl/current/Changes (original)
+++ branches/upstream/libbusiness-isbn-data-perl/current/Changes Wed Sep 12 13:08:40 2007
@@ -1,4 +1,7 @@
-# $Id: Changes,v 1.17 2007/05/18 16:28:06 comdog Exp $
+# $Id: Changes,v 1.18 2007/08/31 07:19:34 comdog Exp $
+
+1.15 - Fri Aug 31 02:19:06 2007
+	[BUGFIX] RT #29078: Fix publihser ranges for Greece
 
 1.14 - Fri May 18 11:27:36 2007
 	* *Added 7000-8499 range from Greece (960) to fix RT #27107

Modified: branches/upstream/libbusiness-isbn-data-perl/current/Data.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-data-perl/current/Data.pm?rev=7479&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-data-perl/current/Data.pm (original)
+++ branches/upstream/libbusiness-isbn-data-perl/current/Data.pm Wed Sep 12 13:08:40 2007
@@ -1,9 +1,9 @@
-# $Id: Data.pm,v 1.14 2007/05/18 16:26:50 comdog Exp $
+# $Id: Data.pm,v 1.15 2007/08/31 07:18:04 comdog Exp $
 package Business::ISBN::Data;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = sprintf "%d.%02d", q$Revision: 1.14 $ =~ m/ (\d+) \. (\d+) /xg;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.15 $ =~ m/ (\d+) \. (\d+) /xg;
 
 =head1 NAME
 
@@ -40,6 +40,8 @@
 
 If you make updates, please send them to me so I can include them in
 future releases.
+
+=head2 Utility functions
 
 =head1 SOURCE AVAILABILITY
 
@@ -98,7 +100,7 @@
   957 => [ 'Taiwan, China',             [ '00' => '02', '0300' => '0499', '05' => 19, 2000 => 2099, 21 => 27, 28000 => 30999, 31 => 43, 440 => 819, 8200 => 9699, 97000 => 99999 ] ],
   958 => [ 'Colombia',                  [ '00' => 59, 600 => 799, 8000 => 9499, 95000 => 99999 ] ],
   959 => [ 'Cuba',                      [ '00' => 19, 200 => 699, 7000 => 8499 ] ],
-  960 => [ 'Greece',                    [ '00' => 19, 200 => 659, 6600 => 6899, 690 => 699, 7000 - 8499, 85000 => 99999 ] ],
+  960 => [ 'Greece',                    [ '00' => 19, 200 => 659, 6600 => 6899, 690 => 699, 7000 => 8499, 85000 => 99999 ] ],
   961 => [ 'Slovenia',                  [ '00' => 19, 200 => 599, 6000 => 8999, 90000 => 94999 ] ],
   962 => [ 'Hong Kong',                 [ '00' => 19, 200 => 699, 7000 => 8499, 85000 => 86999, 8700 => 8999, 900 => 999 ] ],
   963 => [ 'Hungary',                   [ '00' => 19, 200 => 699, 7000 => 8499, 85000 => 89999, 9000 => 9999 ] ],
@@ -224,5 +226,14 @@
 	( sort { $a <=> $b } keys %country_data )[-1]
 	);
 
+sub isbn_group_code_string_from_number
+	{
+	return $Business::ISBN::country_data{ $_[0] }[0] || '';
+	}
+
+sub isbn_publisher_ranges_from_group_number
+	{
+	return $Business::ISBN::country_data{ $_[0] }[1] || [];
+	}
 
 1;

Modified: branches/upstream/libbusiness-isbn-data-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-data-perl/current/MANIFEST?rev=7479&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-data-perl/current/MANIFEST (original)
+++ branches/upstream/libbusiness-isbn-data-perl/current/MANIFEST Wed Sep 12 13:08:40 2007
@@ -7,6 +7,7 @@
 MANIFEST			This list of files
 META.yml			Module meta-data (added by MakeMaker)
 README
+t/check_data_structure.t
 t/load.t
 t/pod.t
 t/pod_coverage.t

Modified: branches/upstream/libbusiness-isbn-data-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-data-perl/current/META.yml?rev=7479&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-data-perl/current/META.yml (original)
+++ branches/upstream/libbusiness-isbn-data-perl/current/META.yml Wed Sep 12 13:08:40 2007
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Business-ISBN-Data
-version:             1.14
+version:             1.15
 abstract:            ~
 license:             perl
 generated_by:        ExtUtils::MakeMaker version 6.32

Added: branches/upstream/libbusiness-isbn-data-perl/current/t/check_data_structure.t
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-data-perl/current/t/check_data_structure.t?rev=7479&op=file
==============================================================================
--- branches/upstream/libbusiness-isbn-data-perl/current/t/check_data_structure.t (added)
+++ branches/upstream/libbusiness-isbn-data-perl/current/t/check_data_structure.t Wed Sep 12 13:08:40 2007
@@ -1,0 +1,18 @@
+#!/usr/bin/perl
+
+use Test::More 'no_plan';
+
+use_ok( 'Business::ISBN::Data' );
+ok( defined %Business::ISBN::country_data );
+
+foreach my $key ( sort { $a <=> $b } keys %Business::ISBN::country_data )
+	{
+	my $value = $Business::ISBN::country_data{$key};
+	isa_ok( $value, ref [], "Value is array ref for country $key" );
+	
+	my( $country, $ranges ) = @$value;
+	
+	my $count = @$ranges;
+
+	ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" );
+	}

Modified: branches/upstream/libbusiness-isbn-data-perl/current/t/test_manifest
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-data-perl/current/t/test_manifest?rev=7479&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-data-perl/current/t/test_manifest (original)
+++ branches/upstream/libbusiness-isbn-data-perl/current/t/test_manifest Wed Sep 12 13:08:40 2007
@@ -1,5 +1,6 @@
-# $Id: test_manifest,v 1.3 2005/03/08 22:07:12 comdog Exp $
+# $Id: test_manifest,v 1.4 2007/08/31 07:18:04 comdog Exp $
 load.t
 pod.t
 pod_coverage.t
 prereq.t
+check_data_structure.t




More information about the Pkg-perl-cvs-commits mailing list