← 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:05 2021

Filename/usr/local/lib/perl5/site_perl/Params/ValidationCompiler.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sParams::ValidationCompiler::::BEGIN@10Params::ValidationCompiler::BEGIN@10
0000s0sParams::ValidationCompiler::::BEGIN@19Params::ValidationCompiler::BEGIN@19
0000s0sParams::ValidationCompiler::::BEGIN@3Params::ValidationCompiler::BEGIN@3
0000s0sParams::ValidationCompiler::::BEGIN@4Params::ValidationCompiler::BEGIN@4
0000s0sParams::ValidationCompiler::::BEGIN@8Params::ValidationCompiler::BEGIN@8
0000s0sParams::ValidationCompiler::::__ANON__Params::ValidationCompiler::__ANON__ (xsub)
0000s0sParams::ValidationCompiler::::source_forParams::ValidationCompiler::source_for
0000s0sParams::ValidationCompiler::::validation_forParams::ValidationCompiler::validation_for
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Params::ValidationCompiler;
2
3use strict;
4use warnings;
5
6our $VERSION = '0.30';
7
8use Params::ValidationCompiler::Compiler;
9
10use Exporter qw( import );
11
12our @EXPORT_OK = qw( compile source_for validation_for );
13
14sub validation_for {
15 return Params::ValidationCompiler::Compiler->new(@_)->subref;
16}
17
18## no critic (TestingAndDebugging::ProhibitNoWarnings)
19no warnings 'once';
20*compile = \&validation_for;
21## use critic
22
23sub source_for {
24 return Params::ValidationCompiler::Compiler->new(@_)->source;
25}
26
271;
28
29# ABSTRACT: Build an optimized subroutine parameter validator once, use it forever
30
31__END__