WebPAC/Normalize/ISBN.pm

package WebPAC::Normalize::ISBN;
use Exporter 'import';
@EXPORT = qw/
        isbn_13
        isbn_10
/;

use warnings;
use strict;

use Data::Dump qw/dump/;
use Carp qw/confess/;

use Business::ISBN;

my $debug = 0;

=head1 NAME

WebPAC::Normalize::ISBN - work with ISBN numbers

=cut

=head1 FUNCTIONS

=head2 isbn_13

  my @isbns = isbn_13( rec('10') );

=cut

sub isbn_13 {
        my @out;

        foreach my $isbn ( @_ ) {

                next unless $isbn =~ m/\d/;

                my $i = Business::ISBN->new( $isbn );
                if ( ! $i ) {
                        warn "ERROR: ISBN not valid: $isbn\n";
                } else {
                        push @out, $i->as_isbn13->as_string;
                }
        }

        warn "### isbn13",dump( @_ )," => ",dump( @out ) if $debug;

        return @out;
}

=head2 isbn_10

  my @isbns = isbn_10( rec('10') );

=cut

sub isbn_10 {
        my @out;

        foreach my $isbn ( @_ ) {

                next unless $isbn =~ m/\d/;

                my $i = Business::ISBN->new( $isbn );
                if ( ! $i ) {
                        warn "ERROR: ISBN not valid: $isbn\n";
                } else {
                        push @out, $i->as_isbn10->as_string;
                }
        }

        warn "### isbn10",dump( @_ )," => ",dump( @out ) if $debug;

        return @out;
}

1;
1	dpavlin	960	package WebPAC::Normalize::ISBN;
2			use Exporter 'import';
3			@EXPORT = qw/
4			isbn_13
5			isbn_10
6			/;
7
8			use warnings;
9			use strict;
10
11			use Data::Dump qw/dump/;
12			use Carp qw/confess/;
13
14			use Business::ISBN;
15
16			my $debug = 0;
17
18			=head1 NAME
19
20			WebPAC::Normalize::ISBN - work with ISBN numbers
21
22			=cut
23
24			=head1 FUNCTIONS
25
26			=head2 isbn_13
27
28			my @isbns = isbn_13( rec('10') );
29
30			=cut
31
32			sub isbn_13 {
33			my @out;
34
35			foreach my $isbn ( @_ ) {
36
37	dpavlin	1004	next unless $isbn =~ m/\d/;
38
39	dpavlin	960	my $i = Business::ISBN->new( $isbn );
40			if ( ! $i ) {
41			warn "ERROR: ISBN not valid: $isbn\n";
42			} else {
43			push @out, $i->as_isbn13->as_string;
44			}
45			}
46
47			warn "### isbn13",dump( @_ )," => ",dump( @out ) if $debug;
48
49			return @out;
50			}
51
52			=head2 isbn_10
53
54			my @isbns = isbn_10( rec('10') );
55
56			=cut
57
58			sub isbn_10 {
59			my @out;
60
61			foreach my $isbn ( @_ ) {
62
63	dpavlin	1004	next unless $isbn =~ m/\d/;
64
65	dpavlin	960	my $i = Business::ISBN->new( $isbn );
66			if ( ! $i ) {
67			warn "ERROR: ISBN not valid: $isbn\n";
68			} else {
69			push @out, $i->as_isbn10->as_string;
70			}
71			}
72
73			warn "### isbn10",dump( @_ )," => ",dump( @out ) if $debug;
74
75			return @out;
76			}
77
78			1;