File Coverage

blib/lib/Sah/Schema/uppercase_str.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Sah::Schema::uppercase_str;

use strict;

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 => 'String containing only zero or more uppercase letters',
    'x.perl.coerce_rules' => ['From_str::to_upper'],
    description => <<'_',

Uppercase letters will be coerced to lowercase.

_
    examples => [
        {value=>'', valid=>1},
        {value=>[], valid=>0, summary=>'Not a string'},
        {value=>'12_3', valid=>1},
        {value=>'Abz', valid=>1, validated_value=>'ABZ'},
    ],

}];

1;
# ABSTRACT:

__END__