File Coverage

blib/lib/Business/ISMN/Data.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1 2     2   65 use 5.008;
  2         10  
2              
3             package Business::ISMN::Data;
4 2     2   11 use strict;
  2         4  
  2         98  
5              
6             our $VERSION = '1.202';
7              
8             =encoding utf8
9              
10             =head1 NAME
11              
12             Business::ISMN::Data - data pack for Business::ISMN
13              
14             =head1 SYNOPSIS
15              
16             see Business::ISMN
17              
18             =head1 DESCRIPTION
19              
20             See L.
21              
22             =head1 AUTHOR
23              
24             brian d foy, C<< >>
25              
26             =head1 COPYRIGHT AND LICENSE
27              
28             Copyright © 2005-2021, brian d foy . All rights reserved.
29              
30             This program is free software; you can redistribute it and/or modify
31             it under the terms of the Artistic License 2.0.
32              
33             =cut
34              
35             package Business::ISMN;
36 2     2   12 use strict;
  2         3  
  2         52  
37              
38 2     2   10 use vars qw( %publisher_data @publisher_tuples );
  2         3  
  2         823  
39              
40             %publisher_data = (
41             'AU' => [ ['075', undef], [2700, 2701], [67300, 67310], [720000, 720200], [9009500, 9009799] ],
42             'CA' => [ [53001, 53010], [706001, 706050], [9001301, 9001600] ],
43             'CY' => [ [720300, 720320], [9009800, 9009850] ],
44             'CZ' => [ [2600, 2605], [66050, 66100], [706500, 706600], [9004000, 9005000] ],
45             'DE' => [ ['000', '025'], [2000, 2150], [50000, 52000], [700000, 705000], [9000000, 9001000] ],
46             'DK' => [ [66130, 66140], [706750, 706800], [9001801, 9001900] ],
47             'ES' => [ [3500, 3507], [69200, 69224], [801200, 801219], [9013100, 9013119] ],
48             'FI' => [ ['042', undef], [55001, 55020], [706300, 706349], [9001601, 9001700] ],
49             'FR' => [ ['043', '048'], [2301, 2400], [56000, 56500] ],
50             'GB' => [ ['050', '060'], [2201, 2300], [57000, 57999], [708001, 709000], [9002000, 9002999] ],
51             'GH' => [ [9008000, 9008100] ],
52             'GR' => [ [69150, 69159], [801150, 801179], [9013030, 9013079] ],
53             'HR' => [ [706700, 706710], [9005201, 9005250] ],
54             'HU' => [ [55030, undef], [706251, 706260], [9005251, 9005260], ['080', undef] ],
55             'IT' => [ ['039', '041'], [2151, 2200], [52001, 53000], [705001, 706000], [9001001, 9001300] ],
56             'JP' => [ [65001, undef] ],
57             'LK' => [ [710000, 710100], [9006400, 9006500] ],
58             'LT' => [ [59995, 59999], [706201, 706250] ],
59             'LV' => [ [706650, 706660], [9005001, 9005100] ],
60             'NO' => [ ['065', undef], [2610, 2617], [66101, 66115], [706680, 706690], [9005101, 9005200] ],
61             'PT' => [ [3000, undef], [707700, 707750], [9007500, 9007600] ],
62             'RU' => [ [66000, 66055] ],
63             'SE' => [ ['070', undef], [66150, 66170], [706850, 706900], [9006000, 9006200] ],
64             'SI' => [ [709001, 709100], [9009000, 9009100] ],
65             'SK' => [ [68500, 68520], [9010001, 9010050] ],
66             'TR' => [ ['036', '037'], [3440, 3445], [69080, 69095], [801100, 801120], [9013000, 9013010] ],
67             'UA' => [ [707500, 707600], [9007000, 9007200] ],
68             'US' => [ ['081', '099'], [3005, 3205], [58000, 58199], [60001, 60002], [800000, 800199], [9012000, 9012099] ],
69             );
70              
71             foreach my $key ( keys %publisher_data ) {
72             my @pairs = map { [ $key, @$_ ] } @{ $publisher_data{$key} };
73             push @publisher_tuples, @pairs;
74             }
75              
76             @publisher_tuples = sort { $a->[1] <=> $b->[1] } @publisher_tuples;
77              
78             1;