← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 09:58:41 2014
Reported on Tue Jun 24 09:59:12 2014

Filename/usr/local/lib/perl/5.14.2/Params/Validate.pm
StatementsExecuted 30 statements in 1.17ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.85ms11.0msParams::Validate::::BEGIN@12Params::Validate::BEGIN@12
111594µs803µsParams::Validate::::BEGIN@13Params::Validate::BEGIN@13
11140µs40µsParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
11116µs22µsParams::Validate::::BEGIN@8Params::Validate::BEGIN@8
11115µs101µsParams::Validate::::BEGIN@15Params::Validate::BEGIN@15
11115µs51µsParams::Validate::::BEGIN@11Params::Validate::BEGIN@11
11114µs25µsParams::Validate::::BEGIN@9Params::Validate::BEGIN@9
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{
322µs $Params::Validate::VERSION = '1.08';
4}
5
6299µs140µs
# spent 40µs within Params::Validate::BEGIN@6 which was called: # once (40µs+0s) by DateTime::Duration::BEGIN@12 at line 6
use 5.008001;
# spent 40µs making 1 call to Params::Validate::BEGIN@6
7
8245µs229µs
# spent 22µs (16+7) within Params::Validate::BEGIN@8 which was called: # once (16µs+7µs) by DateTime::Duration::BEGIN@12 at line 8
use strict;
# spent 22µs making 1 call to Params::Validate::BEGIN@8 # spent 7µs making 1 call to strict::import
9245µs236µs
# spent 25µs (14+11) within Params::Validate::BEGIN@9 which was called: # once (14µs+11µs) by DateTime::Duration::BEGIN@12 at line 9
use warnings;
# spent 25µs making 1 call to Params::Validate::BEGIN@9 # spent 11µs making 1 call to warnings::import
10
11257µs286µs
# spent 51µs (15+36) within Params::Validate::BEGIN@11 which was called: # once (15µs+36µs) by DateTime::Duration::BEGIN@12 at line 11
use Exporter;
# spent 51µs making 1 call to Params::Validate::BEGIN@11 # spent 36µs making 1 call to Exporter::import
122238µs111.0ms
# spent 11.0ms (1.85+9.10) within Params::Validate::BEGIN@12 which was called: # once (1.85ms+9.10ms) by DateTime::Duration::BEGIN@12 at line 12
use Module::Implementation;
# spent 11.0ms making 1 call to Params::Validate::BEGIN@12
132226µs2952µs
# spent 803µs (594+210) within Params::Validate::BEGIN@13 which was called: # once (594µs+210µs) by DateTime::Duration::BEGIN@12 at line 13
use Params::Validate::Constants;
# spent 803µs making 1 call to Params::Validate::BEGIN@13 # spent 149µs making 1 call to Exporter::import
14
152348µs2187µs
# spent 101µs (15+86) within Params::Validate::BEGIN@15 which was called: # once (15µs+86µs) by DateTime::Duration::BEGIN@12 at line 15
use vars qw( $NO_VALIDATION %OPTIONS $options );
# spent 101µs making 1 call to Params::Validate::BEGIN@15 # spent 86µs making 1 call to vars::import
16
17111µsour @ISA = 'Exporter';
18
1916µsmy %tags = (
20 types => [
21 qw(
22 SCALAR
23 ARRAYREF
24 HASHREF
25 CODEREF
26 GLOB
27 GLOBREF
28 SCALARREF
29 HANDLE
30 BOOLEAN
31 UNDEF
32 OBJECT
33 )
34 ],
35);
36
3712µsour %EXPORT_TAGS = (
38 'all' => [
39 qw( validate validate_pos validation_options validate_with ),
40218µs map { @{ $tags{$_} } } keys %tags
41 ],
42 %tags,
43);
44
4528µsour @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' );
4612µsour @EXPORT = qw( validate validate_pos );
47
4811µs$NO_VALIDATION = $ENV{PERL_NO_VALIDATION};
49
50{
5129µs156µs my $loader = Module::Implementation::build_loader_sub(
# spent 56µs making 1 call to Module::Implementation::build_loader_sub
52 implementations => [ 'XS', 'PP' ],
53 symbols => [
54 qw(
55 validate
56 validate_pos
57 validate_with
58 validation_options
59 set_options
60 ),
61 ],
62 );
63
6411µs $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'PP' if $ENV{PV_TEST_PERL};
65
66110µs11.45ms $loader->();
67}
68
69143µs1;
70
71# ABSTRACT: Validate method/function parameters
72
73__END__