File Coverage

blib/lib/App/Kramerius/URI.pm

Criterion	Covered	Total	%
statement	12	40	30.0
branch	0	8	0.0
condition	0	9	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	65	27.6

package App::Kramerius::URI;

use strict;
use warnings;

use Getopt::Std;
use Text::DSV;

our $VERSION = 0.01;

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

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

	# 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] kramerius_id\n";
		print STDERR "\t-h\t\tHelp.\n";
		print STDERR "\t--version\tPrint version.\n";
		print STDERR "\tkramerius_id\tKramerius system id. e.g. ".
			"mzk\n";
		return 1;
	}
	$self->{'_kramerius_id'} = shift @ARGV;

	# Read data.
	my $kramerius_data;
	while (my $data = ) {
		$kramerius_data .= $data;
	}
	my @kramerius = Text::DSV->new->parse($kramerius_data);

	# Get URL.
	my ($library_url, $kramerius_version);
	my $num = 0;
	foreach my $library_ar (@kramerius) {
		$num++;
		if ($num > 0) {
			if ($self->{'_kramerius_id'} eq $library_ar->[1]) {
				$library_url = $library_ar->[3];
				$kramerius_version = $library_ar->[0];
				last;
			}
		}
	}

	# Print URL.
	if (defined $library_url && $kramerius_version) {
		print $library_url.' '.$kramerius_version."\n";
	}

	return 0;
}

1;

=pod

=encoding utf8

=head1 NAME

App::Kramerius::URI - Base class for kramerius-uri script.

=head1 SYNOPSIS

 use App::Kramerius::URI;

 my $app = App::Kramerius::URI->new;
 my $exit_code = $app->run;

=head1 METHODS

=head2 C

 my $app = App::Kramerius::URI->new;

Constructor.

Returns instance of object.

=head2 C

 my $exit_code = $app->run;

Run.

Returns 1 for error, 0 for success.

=head1 EXAMPLE

 use strict;
 use warnings;

 use App::Kramerius::URI;

 # Arguments.
 @ARGV = (
         'mzk',
 );

 # Run.
 exit App::Kramerius::URI->new->run;

 # Output like:
 # http://kramerius.mzk.cz/ 4

=head1 DEPENDENCIES

L,
L.

=head1 REPOSITORY

L

=head1 AUTHOR

Michal Josef Špaček L

L

=head1 LICENSE AND COPYRIGHT

© 2021 Michal Josef Špaček

BSD 2-Clause License

=head1 VERSION

0.01

=cut

__DATA__