NAME

MARC::Convert::Wikidata::Object::Utils - MARC::Convert::Wikidata::Object utilities.

SYNOPSIS

use MARC::Convert::Wikidata::Object::Utils qw(check_date);

check_date($self, $key);
check_date_order($self, $key1, $key2);

DESCRIPTION

Utilities for checking of data values.

SUBROUTINES

check_date

check_date($self, $key);

Check parameter defined by $key which is date and that date isn't greater than actual year.

Possible dates: - YYYY-MM-DD - YYYY-M-D - YYYY-MM - YYYY-M - YYYY

Put error if check isn't ok.

Returns undef.

check_date_order

check_date_order($self, $key1, $key2);

Check if date with $key1 is lesser than date with $key2.

Put error if check isn't ok.

Returns undef.

ERRORS

check_date():
        Parameter '%s' for date is in bad format.
        Parameter '%s' has year greater than actual year.

check_date_order():
        Parameter '%s' has date greater or same as parameter '%s' date.

EXAMPLE1

use strict;
use warnings;

use MARC::Convert::Wikidata::Object::Utils qw(check_date);

my $self = {
        'key' => '2022-01-15',
};
check_date($self, 'key');

# Print out.
print "ok\n";

# Output:
# ok

EXAMPLE2

use strict;
use warnings;

use Error::Pure;
use MARC::Convert::Wikidata::Object::Utils qw(check_date);

$Error::Pure::TYPE = 'Error';

my $self = {
        'key' => 'foo',
};
check_date($self, 'key');

# Print out.
print "ok\n";

# Output like:
# #Error [..Utils.pm:?] Parameter 'key' is in bad format.

DEPENDENCIES

DateTime, Exporter, Error::Pure, Readonly.

SEE ALSO

Mo::utils

Mo utilities.

REPOSITORY

https://github.com/michal-josef-spacek/MARC-Convert-Wikidata-Object

AUTHOR

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

http://skim.cz

LICENSE AND COPYRIGHT

© Michal Josef Špaček 2021-2023

BSD 2-Clause License

VERSION

0.02

cpanm MARC::Convert::Wikidata::Object

perl -MCPAN -e shell
install MARC::Convert::Wikidata::Object