Business-ISBN-Data-20140910.003/000755 000765 000024 00000000000 12634003352 015704 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/Changes000644 000765 000024 00000004772 12634003346 017214 0ustar00brianstaff000000 000000 Revision history for Perl module 20140910.003 2015-12-15T12:25:58Z * Hide the Business::ISBN namespace 20140910.02 - 2014-09-22 * Look in the current directory for RangeMessage.xml if it's not in other locations. This can help with various Perl app packagers. (But, also try ISBN_RANGE_MESSAGE env var) 20140910.001 - 2014-09-18 * Update to the latest data (2014-09-10) 20120719.01 - 2012-07-26 Specify the Test::More version so I can use subtest. No code or feature changes 20120719 - 2012-07-23 * Support data from RangeMessage.xml. You can use the latest data from ISBN without updating this module. 20120718 - 2012-07-23 * Daniel Jakubik updated the data for July 18, 2012 20081208 - 2008-12-05 * Latest data update. 20081020 - 2008-10-20 * Updated publisher codes thanks to Yakov Shafranovich * Version number is now the update date of the module, in YYYYMMDD. This not the date of the ISBN Agency updates though. 1.17 - 2007-10-27 * Update to docs to point to latest URL for ISBN International 1.16 - 2007-10-25 * distro cleanups. No need to upgrade.:wq 1.15 - 2007-08-31 [BUGFIX] RT #29078: Fix publihser ranges for Greece 1.14 - 2007-05-18 * *Added 7000-8499 range from Greece (960) to fix RT #27107 1.13 - 2007-01-09 * updated copyright and license info * no code changes, so no need to upgrade 1.12 - 2007-01-09 * updated copyright and license info * no code changes, so no need to upgrade 1.11 - 2006-05-18 * Updated distro and kwalitee. No need to upgrade. 1.10 - 2005-03-08 * Doc fixup, no big whoop: no need to upgrade 1.09 - 2005-03-08 * added POD coverage test and fixed up the problems it found 1.09 - 2004-12-14 * updated the publisher ranges and the country prefixes for the latest data as of November 2004. See http://www.isbn-international.or * Added the script I used to take the raw data and turn it into the module * I recommend this update for everyone. Lots of publisher ranges have changed 1.08 - 2004-10-08 * no change in functionality or data: no need to upgrade * added strictures to the package 1.07 - 2004-09-14 * distro cleanup: no need to upgrade 1.06 - 2004-09-14 * small clean-ups for distribution bits---no need to upgrade 1.05 - 2003-11-27 * updated publisher codes 1.05 - 2003-11-27 * update publisher ranges 1.05 - 2003-11-27 * Updated publisher ranges 1.03 - 2002-11-25 * fixed Makefile to install in right place 1.02 - 2002-11-25 * this is the first release as a separate module * added additional publishers (4xxx) for english countries Business-ISBN-Data-20140910.003/examples/000755 000765 000024 00000000000 12634003352 017522 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/INSTALL.SKIP000644 000765 000024 00000000156 12634003346 017507 0ustar00brianstaff000000 000000 README\.pod README.* # things that might be in local directories after fooling # around with them \.DS_Store Business-ISBN-Data-20140910.003/lib/000755 000765 000024 00000000000 12634003352 016452 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/LICENSE000644 000765 000024 00000017413 12634003346 016722 0ustar00brianstaff000000 000000 The Business::ISBN::Data module is licensed under the same terms as perl itself, under the Artistic License 2.0. Artistic License 2.0 Copyright (c) 2000-2006, The Perl Foundation. http://www.perlfoundation.org/artistic_license_2_0 Preamble This license establishes the terms under which a given free software Package may be copied, modified, distributed, and/or redistributed. The intent is that the Copyright Holder maintains some artistic control over the development of that Package while still keeping the Package available as open source and free software. You are always permitted to make arrangements wholly outside of this license directly with the Copyright Holder of a given Package. If the terms of this license do not permit the full use that you propose to make of the Package, you should contact the Copyright Holder and seek a different licensing arrangement. Definitions "Copyright Holder" means the individual(s) or organization(s) named in the copyright notice for the entire Package. "Contributor" means any party that has contributed code or other material to the Package, in accordance with the Copyright Holder's procedures. "You" and "your" means any person who would like to copy, distribute, or modify the Package. "Package" means the collection of files distributed by the Copyright Holder, and derivatives of that collection and/or of those files. A given Package may consist of either the Standard Version, or a Modified Version. "Distribute" means providing a copy of the Package or making it accessible to anyone else, or in the case of a company or organization, to others outside of your company or organization. "Distributor Fee" means any fee that you charge for Distributing this Package or providing support for this Package to another party. It does not mean licensing fees. "Standard Version" refers to the Package if it has not been modified, or has been modified only in ways explicitly requested by the Copyright Holder. "Modified Version" means the Package, if it has been changed, and such changes were not explicitly requested by the Copyright Holder. "Original License" means this Artistic License as Distributed with the Standard Version of the Package, in its current version or as it may be modified by The Perl Foundation in the future. "Source" form means the source code, documentation source, and configuration files for the Package. "Compiled" form means the compiled bytecode, object code, binary, or any other form resulting from mechanical transformation or translation of the Source form. Permission for Use and Modification Without Distribution (1) You are permitted to use the Standard Version and create and use Modified Versions for any purpose without restriction, provided that you do not Distribute the Modified Version. Permissions for Redistribution of the Standard Version (2) You may Distribute verbatim copies of the Source form of the Standard Version of this Package in any medium without restriction, either gratis or for a Distributor Fee, provided that you duplicate all of the original copyright notices and associated disclaimers. At your discretion, such verbatim copies may or may not include a Compiled form of the Package. (3) You may apply any bug fixes, portability changes, and other modifications made available from the Copyright Holder. The resulting Package will still be considered the Standard Version, and as such will be subject to the Original License. Distribution of Modified Versions of the Package as Source (4) You may Distribute your Modified Version as Source (either gratis or for a Distributor Fee, and with or without a Compiled form of the Modified Version) provided that you clearly document how it differs from the Standard Version, including, but not limited to, documenting any non-standard features, executables, or modules, and provided that you do at least ONE of the following: (a) make the Modified Version available to the Copyright Holder of the Standard Version, under the Original License, so that the Copyright Holder may include your modifications in the Standard Version. (b) ensure that installation of your Modified Version does not prevent the user installing or running the Standard Version. In addition, the Modified Version must bear a name that is different from the name of the Standard Version. (c) allow anyone who receives a copy of the Modified Version to make the Source form of the Modified Version available to others under (i) the Original License or (ii) a license that permits the licensee to freely copy, modify and redistribute the Modified Version using the same licensing terms that apply to the copy that the licensee received, and requires that the Source form of the Modified Version, and of any works derived from it, be made freely available in that license fees are prohibited but Distributor Fees are allowed. Distribution of Compiled Forms of the Standard Version or Modified Versions without the Source (5) You may Distribute Compiled forms of the Standard Version without the Source, provided that you include complete instructions on how to get the Source of the Standard Version. Such instructions must be valid at the time of your distribution. If these instructions, at any time while you are carrying out such distribution, become invalid, you must provide new instructions on demand or cease further distribution. If you provide valid instructions or cease distribution within thirty days after you become aware that the instructions are invalid, then you do not forfeit any of your rights under this license. (6) You may Distribute a Modified Version in Compiled form without the Source, provided that you comply with Section 4 with respect to the Source of the Modified Version. Aggregating or Linking the Package (7) You may aggregate the Package (either the Standard Version or Modified Version) with other packages and Distribute the resulting aggregation provided that you do not charge a licensing fee for the Package. Distributor Fees are permitted, and licensing fees for other components in the aggregation are permitted. The terms of this license apply to the use and Distribution of the Standard or Modified Versions as included in the aggregation. (8) You are permitted to link Modified and Standard Versions with other works, to embed the Package in a larger work of your own, or to build stand-alone binary or bytecode versions of applications that include the Package, and Distribute the result without restriction, provided the result does not expose a direct interface to the Package. Items That are Not Considered Part of a Modified Version (9) Works (including, but not limited to, modules and scripts) that merely extend or make use of the Package, do not, by themselves, cause the Package to be a Modified Version. In addition, such works are not considered parts of the Package itself, and are not subject to the terms of this license. General Provisions (10) Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license. (11) If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license. (12) This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder. (13) This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation Business-ISBN-Data-20140910.003/make_data.pl000644 000765 000024 00000001420 12634003346 020147 0ustar00brianstaff000000 000000 #!/usr/local/bin/perl5.10.0 use 5.010; use strict; use warnings; use lib qw(lib); use Business::ISBN::Data; my %data = Business::ISBN::Data->_get_data(); foreach my $group ( sort { $a <=> $b } keys %data ) { next if $group =~ /\A_/; my $array = $data{$group}; my( $group_name, $ranges ) = @$array; $group_name =~ s/'/\\'/g; printf "%-5s => [ %s => [ ", $group, qq|'$group_name'|; ; unless( @$ranges ) { print " ] ],\n"; next; } @$ranges = map { qq('$_') } @$ranges; foreach my $i ( 0 .. $#$ranges - 1 ) { print $ranges->[$i], ( " => ", ", " )[$i % 2]; } print $ranges->[-1], "] ],\n"; } # 0 => ['English', ['00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '949999', '9500000' => '9999999' ] ], Business-ISBN-Data-20140910.003/Makefile.PL000644 000765 000024 00000005313 12634003346 017663 0ustar00brianstaff000000 000000 package Business::ISBN::Data; use strict; use warnings; =encoding utf8 =head1 The build file for Business::ISBN::Data This build file is a modulino; it works as both a build script and a module. To build the distribution, run this file normally: % perl Makefile.PL But, it's more interesting than that. You can load it with C and call C to get the data structure it passes to C: my $package = require '/path/to/Makefile.PL'; my $arguments = $package->arguments; Note that C-ing a file makes an entry in C<%INC> for exactly that name. If you try to C another file with the same name, even from a different path, C thinks it has already loaded the file. As such, I recommend you always require the full path to the file. The return value of the C is a package name (in this case, the name of the main module. Use that to call the C method. Even if this distribution needs a higher version of Perl, this bit only needs v5.8. You can play with the data structure with a primitive Perl. =cut use File::Spec::Functions qw(catfile); my $module = __PACKAGE__; ( my $dist = $module ) =~ s/::/-/g; my $github = 'https://github.com/briandfoy/business-isbn-data'; my $main_file = catfile( 'lib', split /::/, "$module.pm" ); my %WriteMakefile = ( 'MIN_PERL_VERSION' => '5.008', 'NAME' => $module, 'ABSTRACT_FROM' => $main_file, 'VERSION_FROM' => $main_file, 'LICENSE' => 'perl', 'AUTHOR' => 'brian d foy ', 'CONFIGURE_REQUIRES' => { 'ExtUtils::MakeMaker' => '6.64', 'File::Spec::Functions' => '0', }, 'TEST_REQUIRES' => { 'Test::More' => '0.95', }, 'BUILD_REQUIRES' => { }, 'PREREQ_PM' => { 'Carp' => '0', 'File::Basename' => '0', 'File::Spec::Functions' => '0', }, 'META_MERGE' => { 'meta-spec' => { version => 2 }, resources => { repository => { type => 'git', url => "$github.git", web => $github, }, bugtracker => { web => "$github/issues", }, homepage => $github, }, }, clean => { FILES => "$dist-*" }, ); sub arguments { \%WriteMakefile } do_it() unless caller; sub do_it { require File::Spec; my $MM ='ExtUtils::MakeMaker'; my $MM_version = eval{ "$MM " . $WriteMakefile{'CONFIGURE_REQUIRES'}{'ExtUtils::MakeMaker'} } || "$MM 6.64"; eval "use $MM_version; 1" or die "Could not load $MM_version: $@"; eval "use Test::Manifest 1.21" if -e File::Spec->catfile( qw(t test_manifest) ); my $arguments = arguments(); my $minimum_perl = $arguments->{MIN_PERL_VERSION} || '5.008'; eval "require $minimum_perl;" or die $@; WriteMakefile( %$arguments ); } no warnings; __PACKAGE__; Business-ISBN-Data-20140910.003/MANIFEST000644 000765 000024 00000000672 12634003352 017042 0ustar00brianstaff000000 000000 Changes examples/README INSTALL.SKIP lib/Business/ISBN/Data.pm lib/Business/ISBN/RangeMessage.xml LICENSE make_data.pl Makefile.PL MANIFEST This list of files MANIFEST.SKIP README.pod t/check_data_structure.t t/load.t t/pod.t t/pod_coverage.t t/test_manifest xt/changes.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) Business-ISBN-Data-20140910.003/MANIFEST.SKIP000644 000765 000024 00000002022 12634003346 017601 0ustar00brianstaff000000 000000 #!start included /usr/local/perls/perl-5.18.1/lib/5.18.1/ExtUtils/MANIFEST.SKIP # Avoid version control files. \bRCS\b \bCVS\b \bSCCS\b ,v$ \B\.svn\b \B\.git\b \B\.gitignore\b \b_darcs\b \B\.cvsignore$ # Avoid VMS specific MakeMaker generated files \bDescrip.MMS$ \bDESCRIP.MMS$ \bdescrip.mms$ # Avoid Makemaker generated and utility files. \bMANIFEST\.bak \bMakefile$ \bblib/ \bMakeMaker-\d \bpm_to_blib\.ts$ \bpm_to_blib$ \bblibdirs\.ts$ # 6.18 through 6.25 generated this # Avoid Module::Build generated and utility files. \bBuild$ \b_build/ \bBuild.bat$ \bBuild.COM$ \bBUILD.COM$ \bbuild.com$ # Avoid temp and backup files. ~$ \.old$ \#$ \b\.# \.bak$ \.tmp$ \.# \.rej$ # Avoid OS-specific files/dirs # Mac OSX metadata \B\.DS_Store # Mac OSX SMB mount metadata files \B\._ # Avoid Devel::Cover and Devel::CoverX::Covered files. \bcover_db\b \bcovered\b # Avoid MYMETA files ^MYMETA\. #!end included /usr/local/perls/perl-5.18.1/lib/5.18.1/ExtUtils/MANIFEST.SKIP \.travis\.yml \.releaserc \.lwpcookies Business-.* hacks/ Business-ISBN-Data-20140910.003/META.json000664 000765 000024 00000002704 12634003352 017332 0ustar00brianstaff000000 000000 { "abstract" : "data pack for Business::ISBN", "author" : [ "brian d foy " ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.140640", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "Business-ISBN-Data", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : {} }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "6.64", "File::Spec::Functions" : "0" } }, "runtime" : { "requires" : { "Carp" : "0", "File::Basename" : "0", "File::Spec::Functions" : "0", "perl" : "5.008" } }, "test" : { "requires" : { "Test::More" : "0.95" } } }, "release_status" : "stable", "resources" : { "bugtracker" : { "web" : "https://github.com/briandfoy/business-isbn-data/issues" }, "homepage" : "https://github.com/briandfoy/business-isbn-data", "repository" : { "type" : "git", "url" : "https://github.com/briandfoy/business-isbn-data.git", "web" : "https://github.com/briandfoy/business-isbn-data" } }, "version" : "20140910.003" } Business-ISBN-Data-20140910.003/META.yml000664 000765 000024 00000001441 12634003352 017157 0ustar00brianstaff000000 000000 --- abstract: 'data pack for Business::ISBN' author: - 'brian d foy ' build_requires: Test::More: '0.95' configure_requires: ExtUtils::MakeMaker: '6.64' File::Spec::Functions: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.140640' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Business-ISBN-Data no_index: directory: - t - inc requires: Carp: '0' File::Basename: '0' File::Spec::Functions: '0' perl: '5.008' resources: bugtracker: https://github.com/briandfoy/business-isbn-data/issues homepage: https://github.com/briandfoy/business-isbn-data repository: https://github.com/briandfoy/business-isbn-data.git version: '20140910.003' Business-ISBN-Data-20140910.003/README.pod000644 000765 000024 00000006236 12634003346 017357 0ustar00brianstaff000000 000000 =pod =encoding utf8 =head1 The Business::ISBN::Data module This is the I for the L Perl module. You're probably looking at this because you don't know where else to find what you're looking for. Read this once and you might never have to read one again for any Perl module. =head2 Documentation To read about L, look at the embedded documentation in the module itself. Inside the distribution, you can format it with L: % perldoc lib/Business/ISBN/Data.pm If you have already installed the module, you can specify the module name instead of the file location: % perldoc Business::ISBN::Data You can read the documentation and inspect the meta data on one of the CPAN web interfaces, such as L or L: =over 4 =item * L =item * L =back The standard module documentation has example uses in the SYNOPSIS section, but you can also look in the I directory (if it's there), or look at the test files in I. =head2 Installation You can install this module with a CPAN client, which will resolve and install the dependencies: % cpan Business::ISBN::Data % cpanm Business::ISBN::Data You can also install directly from the distribution directory, which will also install the dependencies: % cpan . % cpanm . You could install just this module manually: % perl Makefile.PL % make % make test % make install You probably don't want to do that unless you're fiddling with the module and only want to run the tests without installing anything. =head2 Source location The meta data, such as the source repository and bug tracker, is in I or the I files it creates. You can find that on those CPAN web interfaces, but you can also look at files directly in the source repository: =over 4 =item * L =back If you find a problem, file a ticket in the L: =over 4 =item * L =back =head2 Getting help Although I'm happy to hear from module users in private email, that's the best way for me to forget to do something. Besides the issue trackers, you can find help at L or L, both of which have many competent Perlers who can answer your question, almost in real time. They might not know the particulars of this module, but they can help you diagnose your problem. You might like to read L. =head2 Copyright and License You should have received a I file, but the license is also noted in the module files. About the only thing you can't do is pretend that you wrote code that you didn't. =head2 Good luck! Enjoy, brian d foy, bdfoy@cpan.org =cut Business-ISBN-Data-20140910.003/t/000755 000765 000024 00000000000 12634003352 016147 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/xt/000755 000765 000024 00000000000 12634003352 016337 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/xt/changes.t000644 000765 000024 00000000203 12634003346 020132 0ustar00brianstaff000000 000000 use Test::More; eval 'use Test::CPAN::Changes'; plan skip_all => 'Test::CPAN::Changes required for this test' if $@; changes_ok(); Business-ISBN-Data-20140910.003/t/check_data_structure.t000644 000765 000024 00000004211 12634003346 022523 0ustar00brianstaff000000 000000 #!/usr/bin/perl use Test::More 0.95; use File::Spec::Functions qw(catfile); subtest 'setup' => sub { use_ok( 'Business::ISBN::Data' ); ok( %Business::ISBN::country_data ); }; subtest 'current_data' => sub { # Test with included RangeMessage.xml in the same spot as the module like( $Business::ISBN::country_data{_source}, qr/RangeMessage\.xml/ ); like( $Business::ISBN::country_data{_source}, qr/blib/ ); foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } 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" ); } }; subtest 'current_data' => sub { # Test with RangeMessage.xml set in ISBN_RANGE_MESSAGE local $ENV{ISBN_RANGE_MESSAGE} = catfile( qw(lib Business ISBN RangeMessage.xml) ); local %Business::ISBN::country_data = Business::ISBN::Data::_get_data(); ok( -e $ENV{ISBN_RANGE_MESSAGE}, 'Alternate RangeMessage.xml exists' ); unlike( $Business::ISBN::country_data{_source}, qr/blib/ ); like( $Business::ISBN::country_data{_source}, qr/RangeMessage\.xml/ ); foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } 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" ); } }; subtest 'current_data' => sub { # Test with default data local %Business::ISBN::country_data = Business::ISBN::Data::_default_data(); like( $Business::ISBN::country_data{_source}, qr/Data\.pm/ ); foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } 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" ); } }; done_testing(); Business-ISBN-Data-20140910.003/t/load.t000644 000765 000024 00000000306 12634003346 017255 0ustar00brianstaff000000 000000 BEGIN { @classes = qw(Business::ISBN::Data); } use Test::More tests => scalar @classes; foreach my $class ( @classes ) { print "bail out! $class did not compile!" unless use_ok( $class ); } Business-ISBN-Data-20140910.003/t/pod.t000644 000765 000024 00000000201 12634003346 017112 0ustar00brianstaff000000 000000 use Test::More; eval "use Test::Pod 1.00"; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; all_pod_files_ok(); Business-ISBN-Data-20140910.003/t/pod_coverage.t000644 000765 000024 00000000322 12634003346 020771 0ustar00brianstaff000000 000000 use Test::More; eval "use Test::Pod::Coverage"; if( $@ ) { plan skip_all => "Test::Pod::Coverage required for testing POD"; } else { plan tests => 1; pod_coverage_ok( "Business::ISBN::Data" ); } Business-ISBN-Data-20140910.003/t/test_manifest000644 000765 000024 00000000063 12634003346 020741 0ustar00brianstaff000000 000000 load.t pod.t pod_coverage.t check_data_structure.t Business-ISBN-Data-20140910.003/lib/Business/000755 000765 000024 00000000000 12634003352 020245 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/lib/Business/ISBN/000755 000765 000024 00000000000 12634003352 021000 5ustar00brianstaff000000 000000 Business-ISBN-Data-20140910.003/lib/Business/ISBN/Data.pm000644 000765 000024 00000070066 12634003346 022223 0ustar00brianstaff000000 000000 package Business::ISBN::Data; use strict; use vars qw($VERSION); use Carp qw(carp); use File::Basename qw(dirname); use File::Spec::Functions qw(catfile); $VERSION = '20140910.003'; =encoding utf8 =head1 NAME Business::ISBN::Data - data pack for Business::ISBN =head1 SYNOPSIS see L =head1 DESCRIPTION You don't need to load this module yourself in most cases. C will load it when it loads. These data are generated from the F file provided by the ISBN Agency. You can retrieve this yourself at L. This file is included as part of the distribution and should be installed at F<~lib/Business/ISBN/Data/RangeMessage.xml>. If you want to use a different F file, you can set the C environment variable to the alternate location before you load C. This way, you can use the latest (or even earlier) data without having to install something new or wait for an update to this module. If the default F or your alternate one is not available, the module falls back to data included in F. However, that data is likely to be older data. If it does not find that file, it looks for F in the current directory. The data are in C<%Business::ISBN::country_data> (although the "country" part is historical). If you want to see where the data are from, check C<$Business::ISBN::country_data{_source}>. =head1 SOURCE AVAILABILITY This module lives in the Github repository with Business::ISBN: git://github.com/briandfoy/business--isbn.git If you have something to add, create a fork on Github and send a pull request. =head1 AUTHOR brian d foy, C<< >> Yakov Shafranovich updated the data in October 2008. Daniel Jakubik updated the data in July 2012. Markus Spann suggested looking for F in the current directory to make it work with Perl app bundlers. =head1 COPYRIGHT AND LICENSE Copyright © 2002-2015, brian d foy . All rights reserved. You may redistribute this under the same terms as Perl itself. =cut sub _default_data { ( _source => __FILE__, _data_date => '20140910', 0 => [ 'English language' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '949999', '9500000' => '9999999'] ], 1 => [ 'English language' => [ '00' => '09', '100' => '329', '330' => '399', '4000' => '5499', '55000' => '86979', '869800' => '998999', '9990000' => '9999999'] ], 2 => [ 'French language' => [ '00' => '19', '200' => '349', '35000' => '39999', '400' => '699', '7000' => '8399', '84000' => '89999', '900000' => '949999', '9500000' => '9999999'] ], 3 => [ 'German language' => [ '00' => '02', '030' => '033', '0340' => '0369', '03700' => '03999', '04' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '949999', '9500000' => '9539999', '95400' => '96999', '9700000' => '9899999', '99000' => '99499', '99500' => '99999'] ], 4 => [ 'Japan' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '949999', '9500000' => '9999999'] ], 5 => [ 'former U.S.S.R' => [ '00000' => '00499', '0050' => '0099', '01' => '19', '200' => '420', '4210' => '4299', '430' => '430', '4310' => '4399', '440' => '440', '4410' => '4499', '450' => '699', '7000' => '8499', '85000' => '89999', '900000' => '909999', '91000' => '91999', '9200' => '9299', '93000' => '94999', '9500000' => '9500999', '9501' => '9799', '98000' => '98999', '9900000' => '9909999', '9910' => '9999'] ], 7 => [ 'China, People\'s Republic' => [ '00' => '09', '100' => '499', '5000' => '7999', '80000' => '89999', '900000' => '999999'] ], 10 => [ 'France' => [ '00' => '19', '200' => '699', '7000' => '8999', '90000' => '97599', '976000' => '999999'] ], 11 => [ 'Korea, Republic' => [ '00' => '24', '250' => '549', '5500' => '8499', '85000' => '94999', '950000' => '999999'] ], 12 => [ 'Italy' => [ '200' => '200'] ], 80 => [ 'former Czechoslovakia' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '999999'] ], 81 => [ 'India' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '999999'] ], 82 => [ 'Norway' => [ '00' => '19', '200' => '689', '690000' => '699999', '7000' => '8999', '90000' => '98999', '990000' => '999999'] ], 83 => [ 'Poland' => [ '00' => '19', '200' => '599', '60000' => '69999', '7000' => '8499', '85000' => '89999', '900000' => '999999'] ], 84 => [ 'Spain' => [ '00' => '13', '140' => '149', '15000' => '19999', '200' => '699', '7000' => '8499', '85000' => '89999', '9000' => '9199', '920000' => '923999', '92400' => '92999', '930000' => '949999', '95000' => '96999', '9700' => '9999'] ], 85 => [ 'Brazil' => [ '00' => '19', '200' => '549', '5500' => '5999', '60000' => '69999', '7000' => '8499', '85000' => '89999', '900000' => '979999', '98000' => '99999'] ], 86 => [ 'former Yugoslavia' => [ '00' => '29', '300' => '599', '6000' => '7999', '80000' => '89999', '900000' => '999999'] ], 87 => [ 'Denmark' => [ '00' => '29', '400' => '649', '7000' => '7999', '85000' => '94999', '970000' => '999999'] ], 88 => [ 'Italy' => [ '00' => '19', '200' => '599', '6000' => '8499', '85000' => '89999', '900000' => '909999', '910' => '929', '9300' => '9399', '940000' => '949999', '95000' => '99999'] ], 89 => [ 'Korea, Republic' => [ '00' => '24', '250' => '549', '5500' => '8499', '85000' => '94999', '950000' => '969999', '97000' => '98999', '990' => '999'] ], 90 => [ 'Netherlands' => [ '00' => '19', '200' => '499', '5000' => '6999', '70000' => '79999', '800000' => '849999', '8500' => '8999', '90' => '90', '94' => '94'] ], 91 => [ 'Sweden' => [ '0' => '1', '20' => '49', '500' => '649', '7000' => '7999', '85000' => '94999', '970000' => '999999'] ], 92 => [ 'International NGO Publishers and EU Organizations' => [ '0' => '5', '60' => '79', '800' => '899', '9000' => '9499', '95000' => '98999', '990000' => '999999'] ], 93 => [ 'India' => [ '00' => '09', '100' => '499', '5000' => '7999', '80000' => '94999', '950000' => '999999'] ], 94 => [ 'Netherlands' => [ '000' => '599', '6000' => '8999', '90000' => '99999'] ], 600 => [ 'Iran' => [ '00' => '09', '100' => '499', '5000' => '8999', '90000' => '99999'] ], 601 => [ 'Kazakhstan' => [ '00' => '19', '200' => '699', '7000' => '7999', '80000' => '84999', '85' => '99'] ], 602 => [ 'Indonesia' => [ '00' => '08', '0900' => '1099', '1100' => '1199', '1200' => '1399', '14000' => '14999', '1500' => '1699', '17000' => '17999', '18000' => '18999', '19000' => '19999', '200' => '699', '70000' => '74999', '7500' => '7999', '8000' => '9499', '95000' => '99999'] ], 603 => [ 'Saudi Arabia' => [ '00' => '04', '05' => '49', '500' => '799', '8000' => '8999', '90000' => '99999'] ], 604 => [ 'Vietnam' => [ '0' => '4', '50' => '89', '900' => '979', '9800' => '9999'] ], 605 => [ 'Turkey' => [ '01' => '09', '100' => '399', '4000' => '5999', '60000' => '89999', '9000' => '9999'] ], 606 => [ 'Romania' => [ '0' => '0', '10' => '49', '500' => '799', '8000' => '9199', '92000' => '99999'] ], 607 => [ 'Mexico' => [ '00' => '39', '400' => '749', '7500' => '9499', '95000' => '99999'] ], 608 => [ 'Macedonia' => [ '0' => '0', '10' => '19', '200' => '449', '4500' => '6499', '65000' => '69999', '7' => '9'] ], 609 => [ 'Lithuania' => [ '00' => '39', '400' => '799', '8000' => '9499', '95000' => '99999'] ], 611 => [ 'Thailand' => [ ] ], 612 => [ 'Peru' => [ '00' => '29', '300' => '399', '4000' => '4499', '45000' => '49999', '50' => '99'] ], 613 => [ 'Mauritius' => [ '0' => '9'] ], 614 => [ 'Lebanon' => [ '00' => '39', '400' => '799', '8000' => '9499', '95000' => '99999'] ], 615 => [ 'Hungary' => [ '00' => '09', '100' => '499', '5000' => '7999', '80000' => '89999'] ], 616 => [ 'Thailand' => [ '00' => '19', '200' => '699', '7000' => '8999', '90000' => '99999'] ], 617 => [ 'Ukraine' => [ '00' => '49', '500' => '699', '7000' => '8999', '90000' => '99999'] ], 618 => [ 'Greece' => [ '00' => '19', '200' => '499', '5000' => '7999', '80000' => '99999'] ], 619 => [ 'Bulgaria' => [ '00' => '14', '150' => '699', '7000' => '8999', '90000' => '99999'] ], 620 => [ 'Mauritius' => [ '0' => '9'] ], 621 => [ 'Philippines' => [ '00' => '29', '400' => '599', '8000' => '8999', '95000' => '99999'] ], 950 => [ 'Argentina' => [ '00' => '49', '500' => '899', '9000' => '9899', '99000' => '99999'] ], 951 => [ 'Finland' => [ '0' => '1', '20' => '54', '550' => '889', '8900' => '9499', '95000' => '99999'] ], 952 => [ 'Finland' => [ '00' => '19', '200' => '499', '5000' => '5999', '60' => '65', '6600' => '6699', '67000' => '69999', '7000' => '7999', '80' => '94', '9500' => '9899', '99000' => '99999'] ], 953 => [ 'Croatia' => [ '0' => '0', '10' => '14', '150' => '509', '51' => '54', '55000' => '59999', '6000' => '9499', '95000' => '99999'] ], 954 => [ 'Bulgaria' => [ '00' => '28', '2900' => '2999', '300' => '799', '8000' => '8999', '90000' => '92999', '9300' => '9999'] ], 955 => [ 'Sri Lanka' => [ '0000' => '1999', '20' => '40', '41000' => '43999', '44000' => '44999', '4500' => '4999', '50000' => '54999', '550' => '749', '7500' => '7999', '8000' => '9499', '95000' => '99999'] ], 956 => [ 'Chile' => [ '00' => '19', '200' => '699', '7000' => '9999'] ], 957 => [ 'Taiwan' => [ '00' => '02', '0300' => '0499', '05' => '19', '2000' => '2099', '21' => '27', '28000' => '30999', '31' => '43', '440' => '819', '8200' => '9699', '97000' => '99999'] ], 958 => [ 'Colombia' => [ '00' => '56', '57000' => '59999', '600' => '799', '8000' => '9499', '95000' => '99999'] ], 959 => [ 'Cuba' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '99999'] ], 960 => [ 'Greece' => [ '00' => '19', '200' => '659', '6600' => '6899', '690' => '699', '7000' => '8499', '85000' => '92999', '93' => '93', '9400' => '9799', '98000' => '99999'] ], 961 => [ 'Slovenia' => [ '00' => '19', '200' => '599', '6000' => '8999', '90000' => '94999'] ], 962 => [ 'Hong Kong, China' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '86999', '8700' => '8999', '900' => '999'] ], 963 => [ 'Hungary' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '9000' => '9999'] ], 964 => [ 'Iran' => [ '00' => '14', '150' => '249', '2500' => '2999', '300' => '549', '5500' => '8999', '90000' => '96999', '970' => '989', '9900' => '9999'] ], 965 => [ 'Israel' => [ '00' => '19', '200' => '599', '7000' => '7999', '90000' => '99999'] ], 966 => [ 'Ukraine' => [ '00' => '12', '130' => '139', '14' => '14', '1500' => '1699', '170' => '199', '2000' => '2789', '279' => '289', '2900' => '2999', '300' => '699', '7000' => '8999', '90000' => '90999', '910' => '949', '95000' => '97999', '980' => '999'] ], 967 => [ 'Malaysia' => [ '00' => '00', '0100' => '0999', '10000' => '19999', '300' => '499', '5000' => '5999', '60' => '89', '900' => '989', '9900' => '9989', '99900' => '99999'] ], 968 => [ 'Mexico' => [ '01' => '39', '400' => '499', '5000' => '7999', '800' => '899', '9000' => '9999'] ], 969 => [ 'Pakistan' => [ '0' => '1', '20' => '22', '23000' => '23999', '24' => '39', '400' => '749', '7500' => '9999'] ], 970 => [ 'Mexico' => [ '01' => '59', '600' => '899', '9000' => '9099', '91000' => '96999', '9700' => '9999'] ], 971 => [ 'Philippines' => [ '000' => '015', '0160' => '0199', '02' => '02', '0300' => '0599', '06' => '49', '500' => '849', '8500' => '9099', '91000' => '95999', '9600' => '9699', '97' => '98', '9900' => '9999'] ], 972 => [ 'Portugal' => [ '0' => '1', '20' => '54', '550' => '799', '8000' => '9499', '95000' => '99999'] ], 973 => [ 'Romania' => [ '0' => '0', '100' => '169', '1700' => '1999', '20' => '54', '550' => '759', '7600' => '8499', '85000' => '88999', '8900' => '9499', '95000' => '99999'] ], 974 => [ 'Thailand' => [ '00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '90000' => '94999', '9500' => '9999'] ], 975 => [ 'Turkey' => [ '00000' => '01999', '02' => '24', '250' => '599', '6000' => '9199', '92000' => '98999', '990' => '999'] ], 976 => [ 'Caribbean Community' => [ '0' => '3', '40' => '59', '600' => '799', '8000' => '9499', '95000' => '99999'] ], 977 => [ 'Egypt' => [ '00' => '19', '200' => '499', '5000' => '6999', '700' => '849', '85000' => '89999', '90' => '99'] ], 978 => [ 'Nigeria' => [ '000' => '199', '2000' => '2999', '30000' => '79999', '8000' => '8999', '900' => '999'] ], 979 => [ 'Indonesia' => [ '000' => '099', '1000' => '1499', '15000' => '19999', '20' => '29', '3000' => '3999', '400' => '799', '8000' => '9499', '95000' => '99999'] ], 980 => [ 'Venezuela' => [ '00' => '19', '200' => '599', '6000' => '9999'] ], 981 => [ 'Singapore' => [ '00' => '11', '17000' => '19999', '200' => '289', '290' => '299', '3000' => '3099', '310' => '399', '4000' => '9999'] ], 982 => [ 'South Pacific' => [ '00' => '09', '100' => '699', '70' => '89', '9000' => '9799', '98000' => '99999'] ], 983 => [ 'Malaysia' => [ '00' => '01', '020' => '199', '2000' => '3999', '40000' => '44999', '45' => '49', '50' => '79', '800' => '899', '9000' => '9899', '99000' => '99999'] ], 984 => [ 'Bangladesh' => [ '00' => '39', '400' => '799', '8000' => '8999', '90000' => '99999'] ], 985 => [ 'Belarus' => [ '00' => '39', '400' => '599', '6000' => '8999', '90000' => '99999'] ], 986 => [ 'Taiwan' => [ '00' => '11', '120' => '559', '5600' => '7999', '80000' => '99999'] ], 987 => [ 'Argentina' => [ '00' => '09', '1000' => '1999', '20000' => '29999', '30' => '35', '3600' => '3999', '40' => '44', '45000' => '49999', '500' => '899', '9000' => '9499', '95000' => '99999'] ], 988 => [ 'Hong Kong, China' => [ '00' => '11', '12000' => '14999', '15000' => '16999', '17000' => '19999', '200' => '799', '8000' => '9699', '97000' => '99999'] ], 989 => [ 'Portugal' => [ '0' => '1', '20' => '54', '550' => '799', '8000' => '9499', '95000' => '99999'] ], 9926 => [ 'Bosnia and Herzegovina' => [ '0' => '1', '20' => '39', '400' => '799', '8000' => '9999'] ], 9927 => [ 'Qatar' => [ '00' => '09', '100' => '399', '4000' => '4999'] ], 9928 => [ 'Albania' => [ '00' => '09', '100' => '399', '4000' => '4999'] ], 9929 => [ 'Guatemala' => [ '0' => '3', '40' => '54', '550' => '799', '8000' => '9999'] ], 9930 => [ 'Costa Rica' => [ '00' => '49', '500' => '939', '9400' => '9999'] ], 9931 => [ 'Algeria' => [ '00' => '29', '300' => '899', '9000' => '9999'] ], 9932 => [ 'Lao People\'s Democratic Republic' => [ '00' => '39', '400' => '849', '8500' => '9999'] ], 9933 => [ 'Syria' => [ '0' => '0', '10' => '39', '400' => '899', '9000' => '9999'] ], 9934 => [ 'Latvia' => [ '0' => '0', '10' => '49', '500' => '799', '8000' => '9999'] ], 9935 => [ 'Iceland' => [ '0' => '0', '10' => '39', '400' => '899', '9000' => '9999'] ], 9936 => [ 'Afghanistan' => [ '0' => '1', '20' => '39', '400' => '799', '8000' => '9999'] ], 9937 => [ 'Nepal' => [ '0' => '2', '30' => '49', '500' => '799', '8000' => '9999'] ], 9938 => [ 'Tunisia' => [ '00' => '79', '800' => '949', '9500' => '9999'] ], 9939 => [ 'Armenia' => [ '0' => '4', '50' => '79', '800' => '899', '9000' => '9999'] ], 9940 => [ 'Montenegro' => [ '0' => '1', '20' => '49', '500' => '899', '9000' => '9999'] ], 9941 => [ 'Georgia' => [ '0' => '0', '10' => '39', '400' => '899', '9000' => '9999'] ], 9942 => [ 'Ecuador' => [ '00' => '84', '8500' => '8999', '900' => '984', '9850' => '9999'] ], 9943 => [ 'Uzbekistan' => [ '00' => '29', '300' => '399', '4000' => '9749', '975' => '999'] ], 9944 => [ 'Turkey' => [ '0000' => '0999', '100' => '499', '5000' => '5999', '60' => '69', '700' => '799', '80' => '89', '900' => '999'] ], 9945 => [ 'Dominican Republic' => [ '00' => '00', '010' => '079', '08' => '39', '400' => '569', '57' => '57', '580' => '849', '8500' => '9999'] ], 9946 => [ 'Korea, P.D.R.' => [ '0' => '1', '20' => '39', '400' => '899', '9000' => '9999'] ], 9947 => [ 'Algeria' => [ '0' => '1', '20' => '79', '800' => '999'] ], 9948 => [ 'United Arab Emirates' => [ '00' => '39', '400' => '849', '8500' => '9999'] ], 9949 => [ 'Estonia' => [ '0' => '0', '10' => '39', '400' => '749', '75' => '89', '9000' => '9999'] ], 9950 => [ 'Palestine' => [ '00' => '29', '300' => '849', '8500' => '9999'] ], 9951 => [ 'Kosova' => [ '00' => '39', '400' => '849', '8500' => '9999'] ], 9952 => [ 'Azerbaijan' => [ '0' => '1', '20' => '39', '400' => '799', '8000' => '9999'] ], 9953 => [ 'Lebanon' => [ '0' => '0', '10' => '39', '400' => '599', '60' => '89', '9000' => '9999'] ], 9954 => [ 'Morocco' => [ '0' => '1', '20' => '39', '400' => '799', '8000' => '9999'] ], 9955 => [ 'Lithuania' => [ '00' => '39', '400' => '929', '9300' => '9999'] ], 9956 => [ 'Cameroon' => [ '0' => '0', '10' => '39', '400' => '899', '9000' => '9999'] ], 9957 => [ 'Jordan' => [ '00' => '39', '400' => '699', '70' => '84', '8500' => '8799', '88' => '99'] ], 9958 => [ 'Bosnia and Herzegovina' => [ '00' => '01', '020' => '029', '0300' => '0399', '040' => '089', '0900' => '0999', '10' => '18', '1900' => '1999', '20' => '49', '500' => '899', '9000' => '9999'] ], 9959 => [ 'Libya' => [ '0' => '1', '20' => '79', '800' => '949', '9500' => '9699', '970' => '979', '98' => '99'] ], 9960 => [ 'Saudi Arabia' => [ '00' => '59', '600' => '899', '9000' => '9999'] ], 9961 => [ 'Algeria' => [ '0' => '2', '30' => '69', '700' => '949', '9500' => '9999'] ], 9962 => [ 'Panama' => [ '00' => '54', '5500' => '5599', '56' => '59', '600' => '849', '8500' => '9999'] ], 9963 => [ 'Cyprus' => [ '0' => '1', '2000' => '2499', '250' => '279', '2800' => '2999', '30' => '54', '550' => '734', '7350' => '7499', '7500' => '9999'] ], 9964 => [ 'Ghana' => [ '0' => '6', '70' => '94', '950' => '999'] ], 9965 => [ 'Kazakhstan' => [ '00' => '39', '400' => '899', '9000' => '9999'] ], 9966 => [ 'Kenya' => [ '000' => '149', '1500' => '1999', '20' => '69', '7000' => '7499', '750' => '959', '9600' => '9999'] ], 9967 => [ 'Kyrgyz Republic' => [ '00' => '39', '400' => '899', '9000' => '9999'] ], 9968 => [ 'Costa Rica' => [ '00' => '49', '500' => '939', '9400' => '9999'] ], 9970 => [ 'Uganda' => [ '00' => '39', '400' => '899', '9000' => '9999'] ], 9971 => [ 'Singapore' => [ '0' => '5', '60' => '89', '900' => '989', '9900' => '9999'] ], 9972 => [ 'Peru' => [ '00' => '09', '1' => '1', '200' => '249', '2500' => '2999', '30' => '59', '600' => '899', '9000' => '9999'] ], 9973 => [ 'Tunisia' => [ '00' => '05', '060' => '089', '0900' => '0999', '10' => '69', '700' => '969', '9700' => '9999'] ], 9974 => [ 'Uruguay' => [ '0' => '2', '30' => '54', '550' => '749', '7500' => '9499', '95' => '99'] ], 9975 => [ 'Moldova' => [ '0' => '0', '100' => '299', '3000' => '3999', '4000' => '4499', '45' => '89', '900' => '949', '9500' => '9999'] ], 9976 => [ 'Tanzania' => [ '0' => '5', '60' => '89', '900' => '989', '9900' => '9999'] ], 9977 => [ 'Costa Rica' => [ '00' => '89', '900' => '989', '9900' => '9999'] ], 9978 => [ 'Ecuador' => [ '00' => '29', '300' => '399', '40' => '94', '950' => '989', '9900' => '9999'] ], 9979 => [ 'Iceland' => [ '0' => '4', '50' => '64', '650' => '659', '66' => '75', '760' => '899', '9000' => '9999'] ], 9980 => [ 'Papua New Guinea' => [ '0' => '3', '40' => '89', '900' => '989', '9900' => '9999'] ], 9981 => [ 'Morocco' => [ '00' => '09', '100' => '159', '1600' => '1999', '20' => '79', '800' => '949', '9500' => '9999'] ], 9982 => [ 'Zambia' => [ '00' => '79', '800' => '989', '9900' => '9999'] ], 9983 => [ 'Gambia' => [ '80' => '94', '950' => '989', '9900' => '9999'] ], 9984 => [ 'Latvia' => [ '00' => '49', '500' => '899', '9000' => '9999'] ], 9985 => [ 'Estonia' => [ '0' => '4', '50' => '79', '800' => '899', '9000' => '9999'] ], 9986 => [ 'Lithuania' => [ '00' => '39', '400' => '899', '9000' => '9399', '940' => '969', '97' => '99'] ], 9987 => [ 'Tanzania' => [ '00' => '39', '400' => '879', '8800' => '9999'] ], 9988 => [ 'Ghana' => [ '0' => '2', '30' => '54', '550' => '749', '7500' => '9999'] ], 9989 => [ 'Macedonia' => [ '0' => '0', '100' => '199', '2000' => '2999', '30' => '59', '600' => '949', '9500' => '9999'] ], 99901 => [ 'Bahrain' => [ '00' => '49', '500' => '799', '80' => '99'] ], 99902 => [ 'Gabon (reserved)' => [ ] ], 99903 => [ 'Mauritius' => [ '0' => '1', '20' => '89', '900' => '999'] ], 99904 => [ 'CuraÁao' => [ '0' => '5', '60' => '89', '900' => '999'] ], 99905 => [ 'Bolivia' => [ '0' => '3', '40' => '79', '800' => '999'] ], 99906 => [ 'Kuwait' => [ '0' => '2', '30' => '59', '600' => '699', '70' => '89', '90' => '94', '950' => '999'] ], 99908 => [ 'Malawi' => [ '0' => '0', '10' => '89', '900' => '999'] ], 99909 => [ 'Malta' => [ '0' => '3', '40' => '94', '950' => '999'] ], 99910 => [ 'Sierra Leone' => [ '0' => '2', '30' => '89', '900' => '999'] ], 99911 => [ 'Lesotho' => [ '00' => '59', '600' => '999'] ], 99912 => [ 'Botswana' => [ '0' => '3', '400' => '599', '60' => '89', '900' => '999'] ], 99913 => [ 'Andorra' => [ '0' => '2', '30' => '35', '600' => '604'] ], 99914 => [ 'Suriname' => [ '0' => '4', '50' => '89', '900' => '999'] ], 99915 => [ 'Maldives' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99916 => [ 'Namibia' => [ '0' => '2', '30' => '69', '700' => '999'] ], 99917 => [ 'Brunei Darussalam' => [ '0' => '2', '30' => '89', '900' => '999'] ], 99918 => [ 'Faroe Islands' => [ '0' => '3', '40' => '79', '800' => '999'] ], 99919 => [ 'Benin' => [ '0' => '2', '300' => '399', '40' => '69', '70' => '79', '800' => '849', '850' => '899', '900' => '999'] ], 99920 => [ 'Andorra' => [ '0' => '4', '50' => '89', '900' => '999'] ], 99921 => [ 'Qatar' => [ '0' => '1', '20' => '69', '700' => '799', '8' => '8', '90' => '99'] ], 99922 => [ 'Guatemala' => [ '0' => '3', '40' => '69', '700' => '999'] ], 99923 => [ 'El Salvador' => [ '0' => '1', '20' => '79', '800' => '999'] ], 99924 => [ 'Nicaragua' => [ '0' => '1', '20' => '79', '800' => '999'] ], 99925 => [ 'Paraguay' => [ '0' => '3', '40' => '79', '800' => '999'] ], 99926 => [ 'Honduras' => [ '0' => '0', '10' => '59', '600' => '869', '87' => '89', '90' => '99'] ], 99927 => [ 'Albania' => [ '0' => '2', '30' => '59', '600' => '999'] ], 99928 => [ 'Georgia' => [ '0' => '0', '10' => '79', '800' => '999'] ], 99929 => [ 'Mongolia' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99930 => [ 'Armenia' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99931 => [ 'Seychelles' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99932 => [ 'Malta' => [ '0' => '0', '10' => '59', '600' => '699', '7' => '7', '80' => '99'] ], 99933 => [ 'Nepal' => [ '0' => '2', '30' => '59', '600' => '999'] ], 99934 => [ 'Dominican Republic' => [ '0' => '1', '20' => '79', '800' => '999'] ], 99935 => [ 'Haiti' => [ '0' => '2', '30' => '59', '600' => '699', '7' => '8', '90' => '99'] ], 99936 => [ 'Bhutan' => [ '0' => '0', '10' => '59', '600' => '999'] ], 99937 => [ 'Macau' => [ '0' => '1', '20' => '59', '600' => '999'] ], 99938 => [ 'Srpska, Republic of' => [ '0' => '1', '20' => '59', '600' => '899', '90' => '99'] ], 99939 => [ 'Guatemala' => [ '0' => '5', '60' => '89', '900' => '999'] ], 99940 => [ 'Georgia' => [ '0' => '0', '10' => '69', '700' => '999'] ], 99941 => [ 'Armenia' => [ '0' => '2', '30' => '79', '800' => '999'] ], 99942 => [ 'Sudan' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99943 => [ 'Albania' => [ '0' => '2', '30' => '59', '600' => '999'] ], 99944 => [ 'Ethiopia' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99945 => [ 'Namibia' => [ '0' => '5', '60' => '89', '900' => '999'] ], 99946 => [ 'Nepal' => [ '0' => '2', '30' => '59', '600' => '999'] ], 99947 => [ 'Tajikistan' => [ '0' => '2', '30' => '69', '700' => '999'] ], 99948 => [ 'Eritrea' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99949 => [ 'Mauritius' => [ '0' => '1', '20' => '89', '900' => '999'] ], 99950 => [ 'Cambodia' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99951 => [ 'Congo, The Democratic Republic' => [ ] ], 99952 => [ 'Mali' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99953 => [ 'Paraguay' => [ '0' => '2', '30' => '79', '800' => '939', '94' => '99'] ], 99954 => [ 'Bolivia' => [ '0' => '2', '30' => '69', '700' => '879', '88' => '99'] ], 99955 => [ 'Srpska, Republic of' => [ '0' => '1', '20' => '59', '600' => '799', '80' => '99'] ], 99956 => [ 'Albania' => [ '00' => '59', '600' => '859', '86' => '99'] ], 99957 => [ 'Malta' => [ '0' => '1', '20' => '79', '800' => '999'] ], 99958 => [ 'Bahrain' => [ '0' => '4', '50' => '93', '940' => '949', '950' => '999'] ], 99959 => [ 'Luxembourg' => [ '0' => '2', '30' => '59', '600' => '999'] ], 99960 => [ 'Malawi' => [ '0' => '0', '10' => '94', '950' => '999'] ], 99961 => [ 'El Salvador' => [ '0' => '3', '40' => '89', '900' => '999'] ], 99962 => [ 'Mongolia' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99963 => [ 'Cambodia' => [ '00' => '49', '500' => '919', '92' => '99'] ], 99964 => [ 'Nicaragua' => [ '0' => '1', '20' => '79', '800' => '999'] ], 99965 => [ 'Macau' => [ '0' => '3', '40' => '69', '700' => '999'] ], 99966 => [ 'Kuwait' => [ '0' => '2', '30' => '69', '700' => '799', '80' => '94'] ], 99967 => [ 'Paraguay' => [ '0' => '1', '20' => '59', '600' => '899'] ], 99968 => [ 'Botswana' => [ '0' => '3', '400' => '599', '60' => '89', '900' => '999'] ], 99969 => [ 'Oman' => [ '0' => '4', '50' => '79', '800' => '999'] ], 99970 => [ 'Haiti' => [ '0' => '4', '50' => '89', '900' => '999'] ], 99971 => [ 'Myanmar' => [ '0' => '5', '60' => '84', '850' => '999'] ], 99972 => [ 'Faroe Islands' => [ '0' => '4', '50' => '89', '900' => '999'] ], 99973 => [ 'Mongolia' => [ '0' => '3', '40' => '79', '800' => '999'] ], 99974 => [ 'Bolivia' => [ '40' => '79', '800' => '999'] ], 99975 => [ 'Tajikistan' => [ '0' => '3', '40' => '79', '800' => '999'] ], 99976 => [ 'Srpska, Republic of' => [ '0' => '1', '20' => '59', '600' => '799'] ], ); } sub _get_data { # eventually fetch this from the internet # http://www.isbn-international.org/agency?rmxml=1 if( defined $ENV{ISBN_RANGE_MESSAGE} and ! -e $ENV{ISBN_RANGE_MESSAGE} ) { carp "ISBN_RANGE_MESSAGE is set to [$ENV{ISBN_RANGE_MESSAGE}] but that file does not exist!\nTrying to use the default locations\n"; } my $file = 'RangeMessage.xml'; no warnings 'uninitialized'; my @candidates = grep { -e } ( $ENV{ISBN_RANGE_MESSAGE}, # env catfile( dirname( __FILE__ ), $file ), # next to the module $file, # current directory ); my $hash = _parse_range_message( $candidates[0] ); if( defined $hash ) { return %$hash } else { _default_data() } } sub _parse_range_message { my( $file ) = @_; open my $fh, '<:utf8', $file or do { carp "Could not open $file to get ISBN range data [$!]\n"; return }; my $data = do { local $/; <$fh> }; my $ds; my( $serial_number ) = $data =~ m|(.*?)|; my( $date ) = $data =~ m|(.*?)|; $ds->{'_source'} = $file; $ds->{'_serial'} = $serial_number; $ds->{'_date'} = $date; my( $registration_groups ) = $data =~ m|(.*?)|s; my @groups = $registration_groups =~ m|(.*?)|sg; foreach my $group ( @groups ) { my( $prefix ) = $group =~ m|(?:97[89]-)?([0-9]+?)|; my( $agency ) = $group =~ m|(.*?)|; my @rules = map { my( $range ) = m|(.*?)|; my( $length ) = m|(.*?)|; my( $low, $high ) = split /-/, $range, 2; ( substr($low, 0, $length), substr($high, 0, $length) ); } grep { ! m|0| } $group =~ m|(.*?)|sg; $ds->{$prefix} = [ $agency => \@rules ]; } $ds; } %Business::ISBN::country_data = _get_data(); # I cheat a little bit here. I know that that the max length is # 5, and that I know that those will start with 999xx. :) # however, if the data changes I should think about this again. $Business::ISBN::MAX_COUNTRY_CODE_LENGTH = length( ( sort { $a <=> $b } grep { ! /\A_/ } keys %Business::ISBN::country_data )[-1] ); package # Hide from PAUSE Business::ISBN; sub isbn_group_code_string_from_number { return if $_[0] =~ /\A_/; return $Business::ISBN::country_data{ $_[0] }[0] || ''; } sub isbn_publisher_ranges_from_group_number { return if $_[0] =~ /\A_/; return $Business::ISBN::country_data{ $_[0] }[1] || []; } sub isbn_data_source { return $Business::ISBN::country_data{ '_source' } || __FILE__ } 1; Business-ISBN-Data-20140910.003/lib/Business/ISBN/RangeMessage.xml000644 000765 000024 00000413026 12634003346 024074 0ustar00brianstaff000000 000000 ]> International ISBN Agency e2f06122-927b-4ad0-8b3f-0413cc95303e Wed, 10 Sep 2014 17:55:37 CEST 978 International ISBN Agency 0000000-5999999 1 6000000-6499999 3 6500000-6999999 0 7000000-7999999 1 8000000-9499999 2 9500000-9899999 3 9900000-9989999 4 9990000-9999999 5 979 International ISBN Agency 0000000-0999999 0 1000000-1299999 2 1300000-9999999 0 978-0 English language 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9499999 6 9500000-9999999 7 978-1 English language 0000000-0999999 2 1000000-3299999 3 3300000-3999999 3 4000000-5499999 4 5500000-8697999 5 8698000-9989999 6 9990000-9999999 7 978-2 French language 0000000-1999999 2 2000000-3499999 3 3500000-3999999 5 4000000-6999999 3 7000000-8399999 4 8400000-8999999 5 9000000-9499999 6 9500000-9999999 7 978-3 German language 0000000-0299999 2 0300000-0339999 3 0340000-0369999 4 0370000-0399999 5 0400000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9499999 6 9500000-9539999 7 9540000-9699999 5 9700000-9899999 7 9900000-9949999 5 9950000-9999999 5 978-4 Japan 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9499999 6 9500000-9999999 7 978-5 former U.S.S.R 0000000-0049999 5 0050000-0099999 4 0100000-1999999 2 2000000-4209999 3 4210000-4299999 4 4300000-4309999 3 4310000-4399999 4 4400000-4409999 3 4410000-4499999 4 4500000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9099999 6 9100000-9199999 5 9200000-9299999 4 9300000-9499999 5 9500000-9500999 7 9501000-9799999 4 9800000-9899999 5 9900000-9909999 7 9910000-9999999 4 978-600 Iran 0000000-0999999 2 1000000-4999999 3 5000000-8999999 4 9000000-9999999 5 978-601 Kazakhstan 0000000-1999999 2 2000000-6999999 3 7000000-7999999 4 8000000-8499999 5 8500000-9999999 2 978-602 Indonesia 0000000-0899999 2 0900000-1099999 4 1100000-1199999 4 1200000-1399999 4 1400000-1499999 5 1500000-1699999 4 1700000-1799999 5 1800000-1899999 5 1900000-1999999 5 2000000-6999999 3 7000000-7499999 5 7500000-7999999 4 8000000-9499999 4 9500000-9999999 5 978-603 Saudi Arabia 0000000-0499999 2 0500000-4999999 2 5000000-7999999 3 8000000-8999999 4 9000000-9999999 5 978-604 Vietnam 0000000-4999999 1 5000000-8999999 2 9000000-9799999 3 9800000-9999999 4 978-605 Turkey 0000000-0099999 0 0100000-0999999 2 1000000-3999999 3 4000000-5999999 4 6000000-8999999 5 9000000-9999999 4 978-606 Romania 0000000-0999999 1 1000000-4999999 2 5000000-7999999 3 8000000-9199999 4 9200000-9999999 5 978-607 Mexico 0000000-3999999 2 4000000-7499999 3 7500000-9499999 4 9500000-9999999 5 978-608 Macedonia 0000000-0999999 1 1000000-1999999 2 2000000-4499999 3 4500000-6499999 4 6500000-6999999 5 7000000-9999999 1 978-609 Lithuania 0000000-3999999 2 4000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-611 Thailand 0000000-9999999 0 978-612 Peru 0000000-2999999 2 3000000-3999999 3 4000000-4499999 4 4500000-4999999 5 5000000-9999999 2 978-613 Mauritius 0000000-9999999 1 978-614 Lebanon 0000000-3999999 2 4000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-615 Hungary 0000000-0999999 2 1000000-4999999 3 5000000-7999999 4 8000000-8999999 5 9000000-9999999 0 978-616 Thailand 0000000-1999999 2 2000000-6999999 3 7000000-8999999 4 9000000-9999999 5 978-617 Ukraine 0000000-4999999 2 5000000-6999999 3 7000000-8999999 4 9000000-9999999 5 978-618 Greece 0000000-1999999 2 2000000-4999999 3 5000000-7999999 4 8000000-9999999 5 978-619 Bulgaria 0000000-1499999 2 1500000-6999999 3 7000000-8999999 4 9000000-9999999 5 978-620 Mauritius 0000000-9999999 1 978-621 Philippines 0000000-2999999 2 3000000-3999999 0 4000000-5999999 3 6000000-7999999 0 8000000-8999999 4 9000000-9499999 0 9500000-9999999 5 978-7 China, People's Republic 0000000-0999999 2 1000000-4999999 3 5000000-7999999 4 8000000-8999999 5 9000000-9999999 6 978-80 former Czechoslovakia 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9999999 6 978-81 India 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9999999 6 978-82 Norway 0000000-1999999 2 2000000-6899999 3 6900000-6999999 6 7000000-8999999 4 9000000-9899999 5 9900000-9999999 6 978-83 Poland 0000000-1999999 2 2000000-5999999 3 6000000-6999999 5 7000000-8499999 4 8500000-8999999 5 9000000-9999999 6 978-84 Spain 0000000-1399999 2 1400000-1499999 3 1500000-1999999 5 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9199999 4 9200000-9239999 6 9240000-9299999 5 9300000-9499999 6 9500000-9699999 5 9700000-9999999 4 978-85 Brazil 0000000-1999999 2 2000000-5499999 3 5500000-5999999 4 6000000-6999999 5 7000000-8499999 4 8500000-8999999 5 9000000-9799999 6 9800000-9999999 5 978-86 former Yugoslavia 0000000-2999999 2 3000000-5999999 3 6000000-7999999 4 8000000-8999999 5 9000000-9999999 6 978-87 Denmark 0000000-2999999 2 3000000-3999999 0 4000000-6499999 3 6500000-6999999 0 7000000-7999999 4 8000000-8499999 0 8500000-9499999 5 9500000-9699999 0 9700000-9999999 6 978-88 Italy 0000000-1999999 2 2000000-5999999 3 6000000-8499999 4 8500000-8999999 5 9000000-9099999 6 9100000-9299999 3 9300000-9399999 4 9400000-9499999 6 9500000-9999999 5 978-89 Korea, Republic 0000000-2499999 2 2500000-5499999 3 5500000-8499999 4 8500000-9499999 5 9500000-9699999 6 9700000-9899999 5 9900000-9999999 3 978-90 Netherlands 0000000-1999999 2 2000000-4999999 3 5000000-6999999 4 7000000-7999999 5 8000000-8499999 6 8500000-8999999 4 9000000-9099999 2 9100000-9399999 0 9400000-9499999 2 9500000-9999999 0 978-91 Sweden 0000000-1999999 1 2000000-4999999 2 5000000-6499999 3 6500000-6999999 0 7000000-7999999 4 8000000-8499999 0 8500000-9499999 5 9500000-9699999 0 9700000-9999999 6 978-92 International NGO Publishers and EU Organizations 0000000-5999999 1 6000000-7999999 2 8000000-8999999 3 9000000-9499999 4 9500000-9899999 5 9900000-9999999 6 978-93 India 0000000-0999999 2 1000000-4999999 3 5000000-7999999 4 8000000-9499999 5 9500000-9999999 6 978-94 Netherlands 0000000-5999999 3 6000000-8999999 4 9000000-9999999 5 978-950 Argentina 0000000-4999999 2 5000000-8999999 3 9000000-9899999 4 9900000-9999999 5 978-951 Finland 0000000-1999999 1 2000000-5499999 2 5500000-8899999 3 8900000-9499999 4 9500000-9999999 5 978-952 Finland 0000000-1999999 2 2000000-4999999 3 5000000-5999999 4 6000000-6599999 2 6600000-6699999 4 6700000-6999999 5 7000000-7999999 4 8000000-9499999 2 9500000-9899999 4 9900000-9999999 5 978-953 Croatia 0000000-0999999 1 1000000-1499999 2 1500000-5099999 3 5100000-5499999 2 5500000-5999999 5 6000000-9499999 4 9500000-9999999 5 978-954 Bulgaria 0000000-2899999 2 2900000-2999999 4 3000000-7999999 3 8000000-8999999 4 9000000-9299999 5 9300000-9999999 4 978-955 Sri Lanka 0000000-1999999 4 2000000-4099999 2 4100000-4399999 5 4400000-4499999 5 4500000-4999999 4 5000000-5499999 5 5500000-7499999 3 7500000-7999999 4 8000000-9499999 4 9500000-9999999 5 978-956 Chile 0000000-1999999 2 2000000-6999999 3 7000000-9999999 4 978-957 Taiwan 0000000-0299999 2 0300000-0499999 4 0500000-1999999 2 2000000-2099999 4 2100000-2799999 2 2800000-3099999 5 3100000-4399999 2 4400000-8199999 3 8200000-9699999 4 9700000-9999999 5 978-958 Colombia 0000000-5699999 2 5700000-5999999 5 6000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-959 Cuba 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-9999999 5 978-960 Greece 0000000-1999999 2 2000000-6599999 3 6600000-6899999 4 6900000-6999999 3 7000000-8499999 4 8500000-9299999 5 9300000-9399999 2 9400000-9799999 4 9800000-9999999 5 978-961 Slovenia 0000000-1999999 2 2000000-5999999 3 6000000-8999999 4 9000000-9499999 5 9500000-9999999 0 978-962 Hong Kong, China 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8699999 5 8700000-8999999 4 9000000-9999999 3 978-963 Hungary 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9999999 4 978-964 Iran 0000000-1499999 2 1500000-2499999 3 2500000-2999999 4 3000000-5499999 3 5500000-8999999 4 9000000-9699999 5 9700000-9899999 3 9900000-9999999 4 978-965 Israel 0000000-1999999 2 2000000-5999999 3 6000000-6999999 0 7000000-7999999 4 8000000-8999999 0 9000000-9999999 5 978-966 Ukraine 0000000-1299999 2 1300000-1399999 3 1400000-1499999 2 1500000-1699999 4 1700000-1999999 3 2000000-2789999 4 2790000-2899999 3 2900000-2999999 4 3000000-6999999 3 7000000-8999999 4 9000000-9099999 5 9100000-9499999 3 9500000-9799999 5 9800000-9999999 3 978-967 Malaysia 0000000-0099999 2 0100000-0999999 4 1000000-1999999 5 2000000-2999999 0 3000000-4999999 3 5000000-5999999 4 6000000-8999999 2 9000000-9899999 3 9900000-9989999 4 9990000-9999999 5 978-968 Mexico 0100000-3999999 2 4000000-4999999 3 5000000-7999999 4 8000000-8999999 3 9000000-9999999 4 978-969 Pakistan 0000000-1999999 1 2000000-2299999 2 2300000-2399999 5 2400000-3999999 2 4000000-7499999 3 7500000-9999999 4 978-970 Mexico 0100000-5999999 2 6000000-8999999 3 9000000-9099999 4 9100000-9699999 5 9700000-9999999 4 978-971 Philippines 0000000-0159999 3 0160000-0199999 4 0200000-0299999 2 0300000-0599999 4 0600000-4999999 2 5000000-8499999 3 8500000-9099999 4 9100000-9599999 5 9600000-9699999 4 9700000-9899999 2 9900000-9999999 4 978-972 Portugal 0000000-1999999 1 2000000-5499999 2 5500000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-973 Romania 0000000-0999999 1 1000000-1699999 3 1700000-1999999 4 2000000-5499999 2 5500000-7599999 3 7600000-8499999 4 8500000-8899999 5 8900000-9499999 4 9500000-9999999 5 978-974 Thailand 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9499999 5 9500000-9999999 4 978-975 Turkey 0000000-0199999 5 0200000-2499999 2 2500000-5999999 3 6000000-9199999 4 9200000-9899999 5 9900000-9999999 3 978-976 Caribbean Community 0000000-3999999 1 4000000-5999999 2 6000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-977 Egypt 0000000-1999999 2 2000000-4999999 3 5000000-6999999 4 7000000-8499999 3 8500000-8999999 5 9000000-9999999 2 978-978 Nigeria 0000000-1999999 3 2000000-2999999 4 3000000-7999999 5 8000000-8999999 4 9000000-9999999 3 978-979 Indonesia 0000000-0999999 3 1000000-1499999 4 1500000-1999999 5 2000000-2999999 2 3000000-3999999 4 4000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-980 Venezuela 0000000-1999999 2 2000000-5999999 3 6000000-9999999 4 978-981 Singapore 0000000-1199999 2 1200000-1699999 0 1700000-1999999 5 2000000-2899999 3 2900000-2999999 3 3000000-3099999 4 3100000-3999999 3 4000000-9999999 4 978-982 South Pacific 0000000-0999999 2 1000000-6999999 3 7000000-8999999 2 9000000-9799999 4 9800000-9999999 5 978-983 Malaysia 0000000-0199999 2 0200000-1999999 3 2000000-3999999 4 4000000-4499999 5 4500000-4999999 2 5000000-7999999 2 8000000-8999999 3 9000000-9899999 4 9900000-9999999 5 978-984 Bangladesh 0000000-3999999 2 4000000-7999999 3 8000000-8999999 4 9000000-9999999 5 978-985 Belarus 0000000-3999999 2 4000000-5999999 3 6000000-8999999 4 9000000-9999999 5 978-986 Taiwan 0000000-1199999 2 1200000-5599999 3 5600000-7999999 4 8000000-9999999 5 978-987 Argentina 0000000-0999999 2 1000000-1999999 4 2000000-2999999 5 3000000-3599999 2 3600000-3999999 4 4000000-4499999 2 4500000-4999999 5 5000000-8999999 3 9000000-9499999 4 9500000-9999999 5 978-988 Hong Kong, China 0000000-1199999 2 1200000-1499999 5 1500000-1699999 5 1700000-1999999 5 2000000-7999999 3 8000000-9699999 4 9700000-9999999 5 978-989 Portugal 0000000-1999999 1 2000000-5499999 2 5500000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-9926 Bosnia and Herzegovina 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9927 Qatar 0000000-0999999 2 1000000-3999999 3 4000000-4999999 4 5000000-9999999 0 978-9928 Albania 0000000-0999999 2 1000000-3999999 3 4000000-4999999 4 5000000-9999999 0 978-9929 Guatemala 0000000-3999999 1 4000000-5499999 2 5500000-7999999 3 8000000-9999999 4 978-9930 Costa Rica 0000000-4999999 2 5000000-9399999 3 9400000-9999999 4 978-9931 Algeria 0000000-2999999 2 3000000-8999999 3 9000000-9999999 4 978-9932 Lao People's Democratic Republic 0000000-3999999 2 4000000-8499999 3 8500000-9999999 4 978-9933 Syria 0000000-0999999 1 1000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9934 Latvia 0000000-0999999 1 1000000-4999999 2 5000000-7999999 3 8000000-9999999 4 978-9935 Iceland 0000000-0999999 1 1000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9936 Afghanistan 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9937 Nepal 0000000-2999999 1 3000000-4999999 2 5000000-7999999 3 8000000-9999999 4 978-9938 Tunisia 0000000-7999999 2 8000000-9499999 3 9500000-9999999 4 978-9939 Armenia 0000000-4999999 1 5000000-7999999 2 8000000-8999999 3 9000000-9999999 4 978-9940 Montenegro 0000000-1999999 1 2000000-4999999 2 5000000-8999999 3 9000000-9999999 4 978-9941 Georgia 0000000-0999999 1 1000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9942 Ecuador 0000000-8499999 2 8500000-8999999 4 9000000-9849999 3 9850000-9999999 4 978-9943 Uzbekistan 0000000-2999999 2 3000000-3999999 3 4000000-9749999 4 9750000-9999999 3 978-9944 Turkey 0000000-0999999 4 1000000-4999999 3 5000000-5999999 4 6000000-6999999 2 7000000-7999999 3 8000000-8999999 2 9000000-9999999 3 978-9945 Dominican Republic 0000000-0099999 2 0100000-0799999 3 0800000-3999999 2 4000000-5699999 3 5700000-5799999 2 5800000-8499999 3 8500000-9999999 4 978-9946 Korea, P.D.R. 0000000-1999999 1 2000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9947 Algeria 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-9948 United Arab Emirates 0000000-3999999 2 4000000-8499999 3 8500000-9999999 4 978-9949 Estonia 0000000-0999999 1 1000000-3999999 2 4000000-7499999 3 7500000-8999999 2 9000000-9999999 4 978-9950 Palestine 0000000-2999999 2 3000000-8499999 3 8500000-9999999 4 978-9951 Kosova 0000000-3999999 2 4000000-8499999 3 8500000-9999999 4 978-9952 Azerbaijan 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9953 Lebanon 0000000-0999999 1 1000000-3999999 2 4000000-5999999 3 6000000-8999999 2 9000000-9999999 4 978-9954 Morocco 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9955 Lithuania 0000000-3999999 2 4000000-9299999 3 9300000-9999999 4 978-9956 Cameroon 0000000-0999999 1 1000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9957 Jordan 0000000-3999999 2 4000000-6999999 3 7000000-8499999 2 8500000-8799999 4 8800000-9999999 2 978-9958 Bosnia and Herzegovina 0000000-0199999 2 0200000-0299999 3 0300000-0399999 4 0400000-0899999 3 0900000-0999999 4 1000000-1899999 2 1900000-1999999 4 2000000-4999999 2 5000000-8999999 3 9000000-9999999 4 978-9959 Libya 0000000-1999999 1 2000000-7999999 2 8000000-9499999 3 9500000-9699999 4 9700000-9799999 3 9800000-9999999 2 978-9960 Saudi Arabia 0000000-5999999 2 6000000-8999999 3 9000000-9999999 4 978-9961 Algeria 0000000-2999999 1 3000000-6999999 2 7000000-9499999 3 9500000-9999999 4 978-9962 Panama 0000000-5499999 2 5500000-5599999 4 5600000-5999999 2 6000000-8499999 3 8500000-9999999 4 978-9963 Cyprus 0000000-1999999 1 2000000-2499999 4 2500000-2799999 3 2800000-2999999 4 3000000-5499999 2 5500000-7349999 3 7350000-7499999 4 7500000-9999999 4 978-9964 Ghana 0000000-6999999 1 7000000-9499999 2 9500000-9999999 3 978-9965 Kazakhstan 0000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9966 Kenya 0000000-1499999 3 1500000-1999999 4 2000000-6999999 2 7000000-7499999 4 7500000-9599999 3 9600000-9999999 4 978-9967 Kyrgyz Republic 0000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9968 Costa Rica 0000000-4999999 2 5000000-9399999 3 9400000-9999999 4 978-9970 Uganda 0000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9971 Singapore 0000000-5999999 1 6000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9972 Peru 0000000-0999999 2 1000000-1999999 1 2000000-2499999 3 2500000-2999999 4 3000000-5999999 2 6000000-8999999 3 9000000-9999999 4 978-9973 Tunisia 0000000-0599999 2 0600000-0899999 3 0900000-0999999 4 1000000-6999999 2 7000000-9699999 3 9700000-9999999 4 978-9974 Uruguay 0000000-2999999 1 3000000-5499999 2 5500000-7499999 3 7500000-9499999 4 9500000-9999999 2 978-9975 Moldova 0000000-0999999 1 1000000-2999999 3 3000000-3999999 4 4000000-4499999 4 4500000-8999999 2 9000000-9499999 3 9500000-9999999 4 978-9976 Tanzania 0000000-5999999 1 6000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9977 Costa Rica 0000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9978 Ecuador 0000000-2999999 2 3000000-3999999 3 4000000-9499999 2 9500000-9899999 3 9900000-9999999 4 978-9979 Iceland 0000000-4999999 1 5000000-6499999 2 6500000-6599999 3 6600000-7599999 2 7600000-8999999 3 9000000-9999999 4 978-9980 Papua New Guinea 0000000-3999999 1 4000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9981 Morocco 0000000-0999999 2 1000000-1599999 3 1600000-1999999 4 2000000-7999999 2 8000000-9499999 3 9500000-9999999 4 978-9982 Zambia 0000000-7999999 2 8000000-9899999 3 9900000-9999999 4 978-9983 Gambia 0000000-7999999 0 8000000-9499999 2 9500000-9899999 3 9900000-9999999 4 978-9984 Latvia 0000000-4999999 2 5000000-8999999 3 9000000-9999999 4 978-9985 Estonia 0000000-4999999 1 5000000-7999999 2 8000000-8999999 3 9000000-9999999 4 978-9986 Lithuania 0000000-3999999 2 4000000-8999999 3 9000000-9399999 4 9400000-9699999 3 9700000-9999999 2 978-9987 Tanzania 0000000-3999999 2 4000000-8799999 3 8800000-9999999 4 978-9988 Ghana 0000000-2999999 1 3000000-5499999 2 5500000-7499999 3 7500000-9999999 4 978-9989 Macedonia 0000000-0999999 1 1000000-1999999 3 2000000-2999999 4 3000000-5999999 2 6000000-9499999 3 9500000-9999999 4 978-99901 Bahrain 0000000-4999999 2 5000000-7999999 3 8000000-9999999 2 978-99902 Gabon (reserved) 0000000-9999999 0 978-99903 Mauritius 0000000-1999999 1 2000000-8999999 2 9000000-9999999 3 978-99904 Curaçao 0000000-5999999 1 6000000-8999999 2 9000000-9999999 3 978-99905 Bolivia 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99906 Kuwait 0000000-2999999 1 3000000-5999999 2 6000000-6999999 3 7000000-8999999 2 9000000-9499999 2 9500000-9999999 3 978-99908 Malawi 0000000-0999999 1 1000000-8999999 2 9000000-9999999 3 978-99909 Malta 0000000-3999999 1 4000000-9499999 2 9500000-9999999 3 978-99910 Sierra Leone 0000000-2999999 1 3000000-8999999 2 9000000-9999999 3 978-99911 Lesotho 0000000-5999999 2 6000000-9999999 3 978-99912 Botswana 0000000-3999999 1 4000000-5999999 3 6000000-8999999 2 9000000-9999999 3 978-99913 Andorra 0000000-2999999 1 3000000-3599999 2 3600000-5999999 0 6000000-6049999 3 6050000-9999999 0 978-99914 Suriname 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99915 Maldives 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99916 Namibia 0000000-2999999 1 3000000-6999999 2 7000000-9999999 3 978-99917 Brunei Darussalam 0000000-2999999 1 3000000-8999999 2 9000000-9999999 3 978-99918 Faroe Islands 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99919 Benin 0000000-2999999 1 3000000-3999999 3 4000000-6999999 2 7000000-7999999 2 8000000-8499999 3 8500000-8999999 3 9000000-9999999 3 978-99920 Andorra 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99921 Qatar 0000000-1999999 1 2000000-6999999 2 7000000-7999999 3 8000000-8999999 1 9000000-9999999 2 978-99922 Guatemala 0000000-3999999 1 4000000-6999999 2 7000000-9999999 3 978-99923 El Salvador 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99924 Nicaragua 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99925 Paraguay 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99926 Honduras 0000000-0999999 1 1000000-5999999 2 6000000-8699999 3 8700000-8999999 2 9000000-9999999 2 978-99927 Albania 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99928 Georgia 0000000-0999999 1 1000000-7999999 2 8000000-9999999 3 978-99929 Mongolia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99930 Armenia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99931 Seychelles 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99932 Malta 0000000-0999999 1 1000000-5999999 2 6000000-6999999 3 7000000-7999999 1 8000000-9999999 2 978-99933 Nepal 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99934 Dominican Republic 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99935 Haiti 0000000-2999999 1 3000000-5999999 2 6000000-6999999 3 7000000-8999999 1 9000000-9999999 2 978-99936 Bhutan 0000000-0999999 1 1000000-5999999 2 6000000-9999999 3 978-99937 Macau 0000000-1999999 1 2000000-5999999 2 6000000-9999999 3 978-99938 Srpska, Republic of 0000000-1999999 1 2000000-5999999 2 6000000-8999999 3 9000000-9999999 2 978-99939 Guatemala 0000000-5999999 1 6000000-8999999 2 9000000-9999999 3 978-99940 Georgia 0000000-0999999 1 1000000-6999999 2 7000000-9999999 3 978-99941 Armenia 0000000-2999999 1 3000000-7999999 2 8000000-9999999 3 978-99942 Sudan 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99943 Albania 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99944 Ethiopia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99945 Namibia 0000000-5999999 1 6000000-8999999 2 9000000-9999999 3 978-99946 Nepal 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99947 Tajikistan 0000000-2999999 1 3000000-6999999 2 7000000-9999999 3 978-99948 Eritrea 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99949 Mauritius 0000000-1999999 1 2000000-8999999 2 9000000-9999999 3 978-99950 Cambodia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99951 Congo, The Democratic Republic 0000000-9999999 0 978-99952 Mali 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99953 Paraguay 0000000-2999999 1 3000000-7999999 2 8000000-9399999 3 9400000-9999999 2 978-99954 Bolivia 0000000-2999999 1 3000000-6999999 2 7000000-8799999 3 8800000-9999999 2 978-99955 Srpska, Republic of 0000000-1999999 1 2000000-5999999 2 6000000-7999999 3 8000000-9999999 2 978-99956 Albania 0000000-5999999 2 6000000-8599999 3 8600000-9999999 2 978-99957 Malta 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99958 Bahrain 0000000-4999999 1 5000000-9399999 2 9400000-9499999 3 9500000-9999999 3 978-99959 Luxembourg 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99960 Malawi 0000000-0999999 1 1000000-9499999 2 9500000-9999999 3 978-99961 El Salvador 0000000-3999999 1 4000000-8999999 2 9000000-9999999 3 978-99962 Mongolia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99963 Cambodia 0000000-4999999 2 5000000-9199999 3 9200000-9999999 2 978-99964 Nicaragua 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99965 Macau 0000000-3999999 1 4000000-6999999 2 7000000-9999999 3 978-99966 Kuwait 0000000-2999999 1 3000000-6999999 2 7000000-7999999 3 8000000-9499999 2 9500000-9999999 0 978-99967 Paraguay 0000000-1999999 1 2000000-5999999 2 6000000-8999999 3 9000000-9999999 0 978-99968 Botswana 0000000-3999999 1 4000000-5999999 3 6000000-8999999 2 9000000-9999999 3 978-99969 Oman 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99970 Haiti 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99971 Myanmar 0000000-5999999 1 6000000-8499999 2 8500000-9999999 3 978-99972 Faroe Islands 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99973 Mongolia 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99974 Bolivia 0000000-3999999 0 4000000-7999999 2 8000000-9999999 3 978-99975 Tajikistan 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99976 Srpska, Republic of 0000000-1999999 1 2000000-5999999 2 6000000-7999999 3 8000000-9999999 0 979-10 France 0000000-1999999 2 2000000-6999999 3 7000000-8999999 4 9000000-9759999 5 9760000-9999999 6 979-11 Korea, Republic 0000000-2499999 2 2500000-5499999 3 5500000-8499999 4 8500000-9499999 5 9500000-9999999 6 979-12 Italy 0000000-1999999 0 2000000-2009999 3 2010000-9999999 0 Business-ISBN-Data-20140910.003/examples/README000644 000765 000024 00000000105 12634003346 020401 0ustar00brianstaff000000 000000 See the tests in the t/ directory for examples until I add some more.