File Coverage

blib/lib/Sah/Schema/percent_str.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Sah::Schema::percent_str;

use strict;

use Regexp::Pattern::Float;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-02-06'; # DATE
our $DIST = 'Sah-Schemas-Str'; # DIST
our $VERSION = '0.018'; # VERSION

our $schema = [str => {
    summary => 'A number in percent form, e.g. "10.5%"',
    match => qr/\A$Regexp::Pattern::Float::RE{float_decimal}{pat}%\z/,

    description => <<'_',

This schema accepts floating number followed by percent sign. Unlike the
`percent` schema from , The percent sign will not be
removed nor the number be converted to decimal (e.g. 50% to 0.5).

_
    examples => [
        {value=>'', valid=>0, summary=>'No percent sign'},
        {value=>'1', valid=>0, summary=>'No percent sign'},
        {value=>'1%', valid=>1},
        {value=>'1 %', valid=>0, summary=>'Whitespace before percent sign is currently not allowed'},
        {value=>'-1.23%', valid=>1},
        {value=>'%', valid=>0, summary=>'Percent sign only'},
    ],

}];

1;
# ABSTRACT:

__END__