File Coverage

blib/lib/Data/Sah/Compiler/Prog/TH/any.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 27 29 93.1


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