NAME

App::ISBN::Check - Base class for isbn-check script.

SYNOPSIS

 use App::ISBN::Check;

 my $app = App::ISBN::Check->new;
 my $exit_code = $app->run;

METHODS

new

 my $app = App::ISBN::Check->new;

Constructor.

run

 my $exit_code = $app->run;

Run.

Returns 1 for error, 0 for success.

ERRORS

 new():
         From Class::Utils::set_params():
                 Unknown parameter '%s'.

EXAMPLE1

 use strict;
 use warnings;

 use App::ISBN::Check;
 use File::Temp;
 use IO::Barf qw(barf);

 # ISBNs for test.
 my $isbns = <<'END';
 978-80-253-4336-4
 9788025343363
 9788025343364
 978802534336
 9656123456
 END

 # Temporary file.
 my $temp_file = File::Temp->new->filename;

 # Barf out.
 barf($temp_file, $isbns);

 # Arguments.
 @ARGV = (
         $temp_file,
 );

 # Run.
 exit App::ISBN::Check->new->run;

 # Output:
 # 9788025343363: Different after format (978-80-253-4336-4).
 # 9788025343364: Different after format (978-80-253-4336-4).
 # 978802534336: Cannot parse.
 # 9656123456: Not valid.

EXAMPLE2

 use strict;
 use warnings;

 use App::ISBN::Check;

 # Arguments.
 @ARGV = (
         -h,
 );

 # Run.
 exit App::ISBN::Check->new->run;

 # Output:
 # Usage: ./print_help.pl [-h] [--version] file_with_isbns
 #         -h              Print help.
 #         --version       Print version.
 #         file_with_isbns File with ISBN strings, one per line.

DEPENDENCIES

Business::ISBN, Class::Utils, Error::Pure, Getopt::Std, Perl6::Slurp.

REPOSITORY

https://github.com/michal-josef-spacek/App-ISBN-Check

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2024 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.01