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