Profile of Params/ValidateXS.pm

Filename	/usr/lib/perl5/Params/ValidateXS.pm
Statements	Executed 17 statements in 1.13ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
499	6	5	29.4ms	29.6ms	Params::Validate::::_validateParams::Validate::_validate (xsub)
423	2	1	13.4ms	13.4ms	Params::Validate::::_validate_posParams::Validate::_validate_pos (xsub)
1	1	1	42µs	42µs	Params::Validate::::BEGIN@41Params::Validate::BEGIN@41
1	1	1	39µs	48µs	Params::Validate::::BEGIN@3.2Params::Validate::BEGIN@3.2
1	1	1	20µs	56µs	Params::Validate::::BEGIN@4Params::Validate::BEGIN@4
0	0	0	0s	0s	Params::Validate::::__ANON__[:11]Params::Validate::__ANON__[:11]
0	0	0	0s	0s	Params::Validate::_check_regex_from_xs
0	0	0	0s	0s	Params::Validate::::validation_optionsParams::Validate::validation_options

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Params::Validate;
2
3	3	55µs	2	57µs	# spent 48µs (39+9) within Params::Validate::BEGIN@3.2 which was called: # once (39µs+9µs) by Params::Validate::BEGIN@5 at line 3 use strict; # spent 48µs making 1 call to Params::Validate::BEGIN@3.2 # spent 9µs making 1 call to strict::import
4	3	590µs	2	92µs	# spent 56µs (20+36) within Params::Validate::BEGIN@4 which was called: # once (20µs+36µs) by Params::Validate::BEGIN@5 at line 4 use warnings; # spent 56µs making 1 call to Params::Validate::BEGIN@4 # spent 36µs making 1 call to warnings::import
5
6	1	1µs			require XSLoader;
7	1	363µs	1	351µs	XSLoader::load( 'Params::Validate', $Params::Validate::VERSION ); # spent 351µs making 1 call to XSLoader::load
8
9
10					my $default_fail = sub { require Carp;
11	1	7µs			Carp::confess($_[0]) };
12
13					{
14	2	9µs			my %defaults = ( ignore_case => 0,
15					strip_leading => 0,
16					allow_extra => 0,
17					on_fail => $default_fail,
18					stack_skip => 1,
19					normalize_keys => undef,
20					);
21
22	1	3µs			*set_options = \&validation_options;
23					sub validation_options
24					{
25					my %opts = @_;
26
27					my $caller = caller;
28
29					foreach ( keys %defaults )
30					{
31					$opts{$_} = $defaults{$_} unless exists $opts{$_};
32					}
33
34					$OPTIONS{$caller} = \%opts;
35					}
36					}
37
38					sub _check_regex_from_xs { return ( defined $_[0] ? $_[0] : '' ) =~ /$_[1]/ ? 1 : 0 }
39
40					BEGIN
41					# spent 42µs within Params::Validate::BEGIN@41 which was called: # once (42µs+0s) by Params::Validate::BEGIN@5 at line 135 {
42	4	43µs			if ( $] >= 5.006 && $] < 5.007 )
43					{
44					eval <<'EOF';
45					sub check_for_error
46					{
47					if ( defined $Params::Validate::ERROR )
48					{
49					$Params::Validate::ON_FAIL \|\|= sub { require Carp; Carp::croak( $_[0] ) };
50
51					$Params::Validate::ON_FAIL->($Params::Validate::ERROR)
52					}
53					}
54
55					sub validate_pos (\@@)
56					{
57					local $Params::Validate::ERROR;
58					local $Params::Validate::ON_FAIL;
59					local $Params::Validate::CALLER = caller;
60
61					my $r;
62					if (defined wantarray)
63					{
64					$r = &_validate_pos;
65					}
66					else
67					{
68					&_validate_pos;
69					}
70
71					check_for_error();
72
73					return wantarray ? @$r : $r if defined wantarray;
74					}
75
76					sub validate (\@$)
77					{
78					local $Params::Validate::ERROR;
79					local $Params::Validate::ON_FAIL;
80					local $Params::Validate::CALLER = caller;
81
82					my $r;
83					if (defined wantarray)
84					{
85					$r = &_validate;
86					}
87					else
88					{
89					&_validate;
90					}
91
92					check_for_error();
93
94					return wantarray ? %$r : $r if defined wantarray;
95					}
96
97					sub validate_with
98					{
99					local $Params::Validate::ERROR;
100					local $Params::Validate::ON_FAIL;
101					local $Params::Validate::CALLER = caller;
102
103					my $r;
104					if (defined wantarray)
105					{
106					$r = &_validate_with;
107					}
108					else
109					{
110					&_validate_with;
111					}
112
113					check_for_error();
114
115					my %p = @_;
116					if ( UNIVERSAL::isa( $p{spec}, 'ARRAY' ) )
117					{
118					return wantarray ? @$r : $r if defined wantarray;
119					}
120					else
121					{
122					return wantarray ? %$r : $r if defined wantarray;
123					}
124					}
125					EOF
126
127					die $@ if $@;
128					}
129					else
130					{
131					*validate = \&_validate;
132					*validate_pos = \&_validate_pos;
133					*validate_with = \&_validate_with;
134					}
135	1	39µs	1	42µs	} # spent 42µs making 1 call to Params::Validate::BEGIN@41
136
137	1	14µs			1;
138
139					__END__

					# spent 29.6ms (29.4+186µs) within Params::Validate::_validate which was called 499 times, avg 59µs/call: # 466 times (27.4ms+0s) by DateTime::Locale::_register at line 41 of DateTime/Locale.pm, avg 59µs/call # 10 times (722µs+95µs) by DateTime::Format::Builder::Parser::create_single_parser at line 311 of DateTime/Format/Builder/Parser.pm, avg 82µs/call # 10 times (657µs+91µs) by DateTime::Format::Builder::Parser::create_single_parser at line 333 of DateTime/Format/Builder/Parser.pm, avg 75µs/call # 10 times (480µs+0s) by DateTime::Format::Builder::Parser::generic::generic_parser at line 69 of DateTime/Format/Builder/Parser/generic.pm, avg 48µs/call # 2 times (123µs+0s) by DateTime::TimeZone::new at line 34 of DateTime/TimeZone.pm, avg 62µs/call # once (59µs+0s) by DateTime::Format::Builder::create_class at line 61 of DateTime/Format/Builder.pm sub Params::Validate::_validate; # xsub
					# spent 13.4ms within Params::Validate::_validate_pos which was called 423 times, avg 32µs/call: # 422 times (13.4ms+0s) by DateTime::Locale::_registered_id at line 92 of DateTime/Locale.pm, avg 32µs/call # once (42µs+0s) by DateTime::Locale::load at line 182 of DateTime/Locale.pm sub Params::Validate::_validate_pos; # xsub