Profile of Params/ValidateXS.pm

Filename	/usr/local/lib/perl/5.10.1/Params/ValidateXS.pm
Statements	Executed 17 statements in 725µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
468	2	2	25.9ms	25.9ms	Params::Validate::::_validateParams::Validate::_validate (xsub)
423	2	1	13.2ms	13.2ms	Params::Validate::::_validate_posParams::Validate::_validate_pos (xsub)
1	1	1	27µs	27µs	Params::Validate::::BEGIN@41Params::Validate::BEGIN@41
1	1	1	16µs	20µs	Params::Validate::::BEGIN@3.2Params::Validate::BEGIN@3.2
1	1	1	10µs	26µ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	32µs	2	23µs	# spent 20µs (16+3) within Params::Validate::BEGIN@3.2 which was called: # once (16µs+3µs) by Params::Validate::BEGIN@5 at line 3 use strict; # spent 20µs making 1 call to Params::Validate::BEGIN@3.2 # spent 4µs making 1 call to strict::import
4	3	442µs	2	42µs	# spent 26µs (10+16) within Params::Validate::BEGIN@4 which was called: # once (10µs+16µs) by Params::Validate::BEGIN@5 at line 4 use warnings; # spent 26µs making 1 call to Params::Validate::BEGIN@4 # spent 16µs making 1 call to warnings::import
5
6	1	500ns			require XSLoader;
7	1	185µs	1	179µs	XSLoader::load( 'Params::Validate', $Params::Validate::VERSION ); # spent 179µs making 1 call to XSLoader::load
8
9
10					my $default_fail = sub { require Carp;
11	1	4µs			Carp::confess($_[0]) };
12
13					{
14	2	4µ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	2µ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 27µs within Params::Validate::BEGIN@41 which was called: # once (27µs+0s) by Params::Validate::BEGIN@5 at line 135 {
42	1	7µ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	1	10µs			*validate = \&_validate;
132	1	4µs			*validate_pos = \&_validate_pos;
133	1	5µs			*validate_with = \&_validate_with;
134					}
135	1	21µs	1	27µs	} # spent 27µs making 1 call to Params::Validate::BEGIN@41
136
137	1	8µs			1;
138
139					__END__

					# spent 25.9ms within Params::Validate::_validate which was called 468 times, avg 55µs/call: # 466 times (25.8ms+0s) by DateTime::Locale::_register at line 41 of DateTime/Locale.pm, avg 55µs/call # 2 times (94µs+0s) by DateTime::TimeZone::new at line 35 of DateTime/TimeZone.pm, avg 47µs/call sub Params::Validate::_validate; # xsub
					# spent 13.2ms within Params::Validate::_validate_pos which was called 423 times, avg 31µs/call: # 422 times (13.1ms+0s) by DateTime::Locale::_registered_id at line 92 of DateTime/Locale.pm, avg 31µs/call # once (40µs+0s) by DateTime::Locale::load at line 182 of DateTime/Locale.pm sub Params::Validate::_validate_pos; # xsub