File Coverage

blib/lib/Data/Sah/Type/any.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1              
2             use strict;
3 2     2   942  
  2         5  
  2         63  
4             use Data::Sah::Util::Role 'has_clause';
5 2     2   10 use Role::Tiny;
  2         3  
  2         102  
6 2     2   10 use Role::Tiny::With;
  2         2  
  2         12  
7 2     2   278  
  2         4  
  2         272  
8             with 'Data::Sah::Type::BaseType';
9              
10             has_clause 'of',
11             v => 2,
12             tags => ['constraint'],
13             schema => ['array' => {req=>1, min_len=>1, each_elem => ['sah::schema', {req=>1}, {}]}],
14             subschema => sub { @{ $_[0] } },
15             allow_expr => 0,
16             ;
17              
18             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
19             our $DATE = '2022-09-30'; # DATE
20             our $DIST = 'Data-Sah'; # DIST
21             our $VERSION = '0.913'; # VERSION
22              
23             1;
24             # ABSTRACT: any type
25              
26              
27             =pod
28              
29             =encoding UTF-8
30              
31             =head1 NAME
32              
33             Data::Sah::Type::any - any type
34              
35             =head1 VERSION
36              
37             This document describes version 0.913 of Data::Sah::Type::any (from Perl distribution Data-Sah), released on 2022-09-30.
38              
39             =for Pod::Coverage ^(clause_.+|clausemeta_.+)$
40              
41             =head1 HOMEPAGE
42              
43             Please visit the project's homepage at L<https://metacpan.org/release/Data-Sah>.
44              
45             =head1 SOURCE
46              
47             Source repository is at L<https://github.com/perlancar/perl-Data-Sah>.
48              
49             =head1 AUTHOR
50              
51             perlancar <perlancar@cpan.org>
52              
53             =head1 CONTRIBUTING
54              
55              
56             To contribute, you can send patches by email/via RT, or send pull requests on
57             GitHub.
58              
59             Most of the time, you don't need to build the distribution yourself. You can
60             simply modify the code, then test via:
61              
62             % prove -l
63              
64             If you want to build the distribution (e.g. to try to install it locally on your
65             system), you can install L<Dist::Zilla>,
66             L<Dist::Zilla::PluginBundle::Author::PERLANCAR>,
67             L<Pod::Weaver::PluginBundle::Author::PERLANCAR>, and sometimes one or two other
68             Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond
69             that are considered a bug and can be reported to me.
70              
71             =head1 COPYRIGHT AND LICENSE
72              
73             This software is copyright (c) 2022, 2021, 2020, 2019, 2018, 2017, 2016, 2015, 2014, 2013, 2012 by perlancar <perlancar@cpan.org>.
74              
75             This is free software; you can redistribute it and/or modify it under
76             the same terms as the Perl 5 programming language system itself.
77              
78             =head1 BUGS
79              
80             Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Data-Sah>
81              
82             When submitting a bug or request, please include a test-file or a
83             patch to an existing test-file that illustrates the bug or desired
84             feature.
85              
86             =cut