brian d foy

NAME

Test::ISBN - Check International Standard Book Numbers

SYNOPSIS

        use Test::More tests => 1;
        use Test::ISBN;

        isbn_ok( $isbn );

DESCRIPTION

This is the 2.x version of Test::ISBN and works with Business::ISBN 2.x.

Functions

isbn_ok( STRING | ISBN )

Ok is the STRING is a valid ISBN, in any format that Business::ISBN accepts. This function only checks the checksum. The publisher and country codes might be invalid even though the checksum is valid.

If the first argument is an ISBN object, it checks that object.

isbn_group_ok( STRING | ISBN, COUNTRY )

Ok is the STRING is a valid ISBN and its country code is the same as COUNTRY. If the first argument is an ISBN object, it checks that object.

isbn_country_ok( STRING | ISBN, COUNTRY )

Deprecated. Use isbn_group_ok. This is still exported, though.

For now it warns and redirects to isbn_group_ok.

If the first argument is an ISBN object, it checks that object.

isbn_publisher_ok( STRING | ISBN, PUBLISHER )

Ok is the STRING is a valid ISBN and its publisher code is the same as PUBLISHER.

If the first argument is an ISBN object, it checks that object.

SOURCE AVAILABILITY

This source is in GitHub:

        https://github.com/briandfoy/Test-ISBN

AUTHOR

brian d foy, <bdfoy@cpan.org>

COPYRIGHT AND LICENSE

Copyright (c) 2002-2014 brian d foy. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.