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 ( @_ ) {

                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 ( @_ ) {

                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			my $i = Business::ISBN->new( $isbn );
38			if ( ! $i ) {
39			warn "ERROR: ISBN not valid: $isbn\n";
40			} else {
41			push @out, $i->as_isbn13->as_string;
42			}
43			}
44
45			warn "### isbn13",dump( @_ )," => ",dump( @out ) if $debug;
46
47			return @out;
48			}
49
50			=head2 isbn_10
51
52			my @isbns = isbn_10( rec('10') );
53
54			=cut
55
56			sub isbn_10 {
57			my @out;
58
59			foreach my $isbn ( @_ ) {
60
61			my $i = Business::ISBN->new( $isbn );
62			if ( ! $i ) {
63			warn "ERROR: ISBN not valid: $isbn\n";
64			} else {
65			push @out, $i->as_isbn10->as_string;
66			}
67			}
68
69			warn "### isbn10",dump( @_ )," => ",dump( @out ) if $debug;
70
71			return @out;
72			}
73
74			1;