File Coverage

blib/lib/Sah/Schema/str_or_aos1.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


line stmt bran cond sub pod time code
1             package Sah::Schema::str_or_aos1;
2              
3 1     1   264630 use strict;
  1         4  
  1         174  
4              
5             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
6             our $DATE = '2024-02-06'; # DATE
7             our $DIST = 'Sah-Schemas-Str'; # DIST
8             our $VERSION = '0.018'; # VERSION
9              
10             our $schema = [any => {
11             summary => 'String or array (1+ length) of (defined) string',
12             of => [
13             ['str', {}],
14             ['aos', {min_len=>1}],
15             ],
16              
17             examples => [
18             {value=>'', valid=>1},
19             {value=>'a', valid=>1},
20             {value=>{}, valid=>0, summary=>'Not string or array'},
21             {value=>[], valid=>0, summary=>'Empty array'},
22             {value=>['a'], valid=>1},
23             {value=>['a',undef], valid=>0, summary=>'Has undef element'},
24             {value=>['a',[]], valid=>0, summary=>'Has non-string element'},
25             ],
26              
27             }];
28              
29             1;
30             # ABSTRACT:
31              
32             __END__