NAME
Sah::Schema::domain::name - Domain name
VERSION
This document describes version 0.005 of Sah::Schema::domain::name (from Perl distribution Sah-Schemas-Domain), released on 2020-03-08.
SYNOPSIS
Using with Data::Sah:
use Data::Sah qw(gen_validator);
my $vdr = gen_validator("domain::name*");
say $vdr->($data) ? "valid" : "INVALID!";
# Data::Sah can also create a validator to return error message, coerced value,
# even validators in other languages like JavaScript, from the same schema.
# See its documentation for more details.
Using in Rinci function metadata (to be used with Perinci::CmdLine, etc):
package MyApp;
our %SPEC;
$SPEC{myfunc} = {
v => 1.1,
summary => 'Routine to do blah ...',
args => {
arg1 => {
summary => 'The blah blah argument',
schema => ['domain::name*'],
},
...
},
};
sub myfunc {
my %args = @_;
...
}
Sample data:
"FOO-BAR.COM" # valid, becomes "foo-bar.com"
"foobar" # INVALID (At least two parts are needed)
"foo-.com" # INVALID
"-foo.com" # INVALID
"foo!.com" # INVALID
"foo_bar.com" # INVALID
DESCRIPTION
This schema is currently very simple, it just checks for strings with this pattern:
/^[0-9a-z]([0-9a-z-]*[0-9a-z])?
(\.[0-9a-z]([0-9a-z-]*[0-9a-z]?))+$/x
and coerced to lowercase. Does not allow internationalized domain name (but you can use its Punycode (xn--) representation. Does not check for valid public suffixes.
HOMEPAGE
Please visit the project's homepage at https://metacpan.org/release/Sah-Schemas-Domain.
SOURCE
Source repository is at https://github.com/perlancar/perl-Sah-Schemas-Domain.
BUGS
Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=Sah-Schemas-Domain
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.
AUTHOR
perlancar <perlancar@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2020, 2019, 2018 by perlancar@cpan.org.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.