#!/usr/bin/env perl

use strict;
use warnings;

use App::MARC::Leader;

our $VERSION = 0.11;

# Run.
exit App::MARC::Leader->new->run;

# Print version.
sub VERSION_MESSAGE {
	print $VERSION."\n";
	exit 0;
}

__END__

=pod

=encoding utf8

=head1 NAME

marc-leader - Tool to decode MARC leader from file or string.

=head1 SYNOPSIS

 marc-leader [-a] [-d] [-f marc_xml_file] [-h] [-l lang_code] [-v] [--version] [leader_string]

=head1 DESCRIPTION

It supports MARC XML files now.

=head1 ARGUMENTS

=over 8

=item * C<-a>

Print with ANSI colors.
Or use C<NO_COLOR>/C<COLOR> env variables.

=item * C<-d>

Don't print description.

=item * C<-f marc_xml_file>

Use MARC XML file name to decode of leader instead of leader string.

=item * C<-h>

Print help.

=item * C<-l lang_code>

ISO 639-1 language code of output language.

Default value is from locales.

=item * C<-v>

Verbose mode.

=item * C<--version>

Print version of script.

=item * C<[leader_string]>

MARC leader string to decode. It's optional to -f option.

=back

=head1 EXAMPLE1

 marc-leader -f __MARC.xml__

=head1 EXAMPLE2

 marc-leader '00621ncm a2200217 a 4500'

=head1 REPOSITORY

L<https://github.com/michal-josef-spacek/App-MARC-Leader>

=head1 AUTHOR

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

L<http://skim.cz>

=head1 LICENSE AND COPYRIGHT

© 2023-2026 Michal Josef Špaček

BSD 2-Clause License

=head1 VERSION

0.11

=cut
