File Coverage

blib/lib/App/ISBN/Format.pm

Criterion	Covered	Total	%
statement	43	48	89.5
branch	7	10	70.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	2	2	100.0
total	64	74	86.4

package App::ISBN::Format;

use strict;
use warnings;

use Business::ISBN;
use Class::Utils qw(set_params);
use Error::Pure qw(err);
use Getopt::Std;

our $VERSION = 0.03;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Process parameters.
	set_params($self, @params);

	# Object.
	return $self;
}

# Run.
sub run {
	my $self = shift;

	# Process arguments.
	$self->{'_opts'} = {
		'h' => 0,
	};
	if (! getopts('h', $self->{'_opts'}) || @ARGV < 1
		|| $self->{'_opts'}->{'h'}) {

		print STDERR "Usage: $0 [-h] [--version] isbn_string\n";
		print STDERR "\t-h\t\tPrint help.\n";
		print STDERR "\t--version\tPrint version.\n";
		print STDERR "\tisbn_string\tISBN string.\n";
		return 1;
	}
	$self->{'_isbn_string'} = shift @ARGV;

	my $isbn_obj = Business::ISBN->new($self->{'_isbn_string'});
	if (! $isbn_obj) {
		err "ISBN '$self->{'_isbn_string'}' is bad.";
		return 1;
	}

	# Validation.
	if (! $isbn_obj->is_valid) {
		$isbn_obj->fix_checksum;

		# Check again.
		if (! $isbn_obj->is_valid) {
			err "ISBN '$self->{'_isbn_string'}' is not valid.";
			return 1;
		}
	}

	# Construct output.
	my $isbn_concrete;
	my $isbn_without_dash = $self->{'_isbn_string'};
	$isbn_without_dash =~ s/-//msg;
	if (length $isbn_without_dash > 10) {
		$isbn_concrete = $isbn_obj->as_isbn13;
	} else {
		$isbn_concrete = $isbn_obj->as_isbn10;
	}

	print $self->{'_isbn_string'}.' -> '.$isbn_concrete->as_string, "\n";

	return 0;
}

1;

__END__