← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:15 2021

Filename/usr/local/lib/perl5/site_perl/mach/5.32/Params/Validate.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sParams::Validate::::BEGIN@10Params::Validate::BEGIN@10
0000s0sParams::Validate::::BEGIN@11Params::Validate::BEGIN@11
0000s0sParams::Validate::::BEGIN@12Params::Validate::BEGIN@12
0000s0sParams::Validate::::BEGIN@14Params::Validate::BEGIN@14
0000s0sParams::Validate::::BEGIN@3Params::Validate::BEGIN@3
0000s0sParams::Validate::::BEGIN@5Params::Validate::BEGIN@5
0000s0sParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
0000s0sParams::Validate::::__ANON__Params::Validate::__ANON__ (xsub)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Params::Validate;
2
3use 5.008001;
4
5use strict;
6use warnings;
7
8our $VERSION = '1.30';
9
10use Exporter;
11use Module::Implementation;
12use Params::Validate::Constants;
13
14use vars qw( $NO_VALIDATION %OPTIONS $options );
15
16our @ISA = 'Exporter';
17
18my @types = qw(
19 SCALAR
20 ARRAYREF
21 HASHREF
22 CODEREF
23 GLOB
24 GLOBREF
25 SCALARREF
26 HANDLE
27 BOOLEAN
28 UNDEF
29 OBJECT
30);
31
32our %EXPORT_TAGS = (
33 'all' => [
34 qw( validate validate_pos validation_options validate_with ),
35 @types
36 ],
37 types => \@types,
38);
39
40our @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' );
41our @EXPORT = qw( validate validate_pos );
42
43$NO_VALIDATION = $ENV{PERL_NO_VALIDATION};
44
45{
46 my $loader = Module::Implementation::build_loader_sub(
47 implementations => [ 'XS', 'PP' ],
48 symbols => [
49 qw(
50 validate
51 validate_pos
52 validate_with
53 validation_options
54 set_options
55 ),
56 ],
57 );
58
59 $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'PP' if $ENV{PV_TEST_PERL};
60
61 $loader->();
62}
63
641;
65
66# ABSTRACT: Validate method/function parameters
67
68__END__