Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

TOBYINK / Benchmark-Featureset-ParamCheck-0.003 / lib / Benchmark / Featureset / ParamCheck.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
—
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

              
use v5.12;
use strict;
use warnings;
package Benchmark::Featureset::ParamCheck;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.003';
use IO::String ();
sub implementations {
        qw(
                Benchmark::Featureset::ParamCheck::Implementation::DataValidator::Moose
                Benchmark::Featureset::ParamCheck::Implementation::DataValidator::Mouse
                Benchmark::Featureset::ParamCheck::Implementation::DataValidator::TypeTiny
                Benchmark::Featureset::ParamCheck::Implementation::MXPV::Moose
                Benchmark::Featureset::ParamCheck::Implementation::MXPV::TypeTiny
                Benchmark::Featureset::ParamCheck::Implementation::ParamsCheck::Perl
                Benchmark::Featureset::ParamCheck::Implementation::ParamsCheck::TypeTiny
                Benchmark::Featureset::ParamCheck::Implementation::Perl
                Benchmark::Featureset::ParamCheck::Implementation::PV
                Benchmark::Featureset::ParamCheck::Implementation::PV::TypeTiny
                Benchmark::Featureset::ParamCheck::Implementation::PVC::Moose
                Benchmark::Featureset::ParamCheck::Implementation::PVC::Specio
                Benchmark::Featureset::ParamCheck::Implementation::PVC::TypeTiny
                Benchmark::Featureset::ParamCheck::Implementation::RefUtilXS
                Benchmark::Featureset::ParamCheck::Implementation::TypeParams
        );
}
my $io = 'IO::String'->new;
my %trivial = ( integer => 0, hashes => [], object => $io );
my %complex = (
        integer => 1_234_567_890,
        hashes  => [ map { +{} } 1..10 ],
        object => $io,
);
sub trivial_named_data { \%trivial }
sub complex_named_data { \%complex }
my @trivial = map $trivial{$_}, qw(integer hashes object);
my @complex = map $complex{$_}, qw(integer hashes object);
sub trivial_positional_data { \@trivial }
sub complex_positional_data { \@complex }
1;
__END__
=pod
=encoding utf-8
=head1 NAME
Benchmark::Featureset::ParamCheck - compare different parameter validation modules
=head1 SYNOPSIS
  use Benchmark::Featureset::ParamCheck;
  use Module::Runtime qw(use_module);
   
  my @impl     = Benchmark::Featureset::ParamCheck->implementations;
  my $testdata = Benchmark::Featureset::ParamCheck->trivial_named_data;
   
  for my $i (@impl) {
    # Check the data 10,000 times.
    use_module($i)->run_named_check(10_000, $testdata);
  }
=head1 DESCRIPTION
A whole bunch of implementations for sub paramater checking.
Each implementation provides a method to check a hash of the form shown
in the example. It should have three keys, 'integer' (value should be
an integer), 'hashes' (value should be an arrayref of hashrefs), and
'object' (value should be an object with C<print> and C<close> methods).
This is intended for benchmarking.
=head2 Class Methods
=over
=item * C<implementations>
List of implementations. Each implementation is a subclass of
Benchmark::Featureset::ParamCheck::Base
=item * C<trivial_named_data>, C<trivial_positional_data>
Returns trivial test data.
=item * C<complex_named_data>, C<complex_positional_data>
Returns complex test data.
=back
=head2 Benchmark::Featureset::ParamCheck::Base
This class provides the following class methods:
=over
=item * C<< accept_array >>
=item * C<< accept_arrayref >>
=item * C<< accept_hash >>
=item * C<< accept_hashref >>
=item * C<< run_named_check($times, %parameters) >>, C<< run_named_check($times, \%parameters) >>
=item * C<< run_postional_check($times, @parameters) >>
=back
=head1 BUGS
Please report any bugs to
L<http://rt.cpan.org/Dist/Display.html?Queue=Benchmark-Featureset-ParamCheck>.
=head1 SEE ALSO
B<< Parameter validation libraries: >>
L<Data::Validator>,
L<MooseX::Params::Validate>,
L<Params::Check>,
L<Params::Validate>,
L<Params::ValidationCompiler>,
L<Ref::Util::XS>,
L<Type::Params>.
B<< Type constraint libraries: >>
L<Moose>,
L<Mouse>,
L<Specio>,
L<Type::Tiny>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2017 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.