← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:52 2013

Filename/usr/lib/perl5/Params/ValidateXS.pm
StatementsExecuted 17 statements in 1.13ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
4996529.4ms29.6msParams::Validate::::_validateParams::Validate::_validate (xsub)
4232113.4ms13.4msParams::Validate::::_validate_posParams::Validate::_validate_pos (xsub)
11142µs42µsParams::Validate::::BEGIN@41Params::Validate::BEGIN@41
11139µs48µsParams::Validate::::BEGIN@3.2Params::Validate::BEGIN@3.2
11120µs56µsParams::Validate::::BEGIN@4Params::Validate::BEGIN@4
0000s0sParams::Validate::::__ANON__[:11]Params::Validate::__ANON__[:11]
0000s0sParams::Validate::::_check_regex_from_xsParams::Validate::_check_regex_from_xs
0000s0sParams::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
1package Params::Validate;
2
3355µs257µ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
43590µs292µ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
611µsrequire XSLoader;
71363µs1351µsXSLoader::load( 'Params::Validate', $Params::Validate::VERSION );
# spent 351µs making 1 call to XSLoader::load
8
9
10my $default_fail = sub { require Carp;
1117µs Carp::confess($_[0]) };
12
13{
1429µ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
2213µ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
38sub _check_regex_from_xs { return ( defined $_[0] ? $_[0] : '' ) =~ /$_[1]/ ? 1 : 0 }
39
40BEGIN
41
# spent 42µs within Params::Validate::BEGIN@41 which was called: # once (42µs+0s) by Params::Validate::BEGIN@5 at line 135
{
42115µs if ( $] >= 5.006 && $] < 5.007 )
43 {
44 eval <<'EOF';
45sub 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
55sub 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
76sub 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
97sub 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}
125EOF
126
127 die $@ if $@;
128 }
129 else
130 {
131116µs *validate = \&_validate;
13216µs *validate_pos = \&_validate_pos;
13317µs *validate_with = \&_validate_with;
134 }
135139µs142µs}
# spent 42µs making 1 call to Params::Validate::BEGIN@41
136
137114µs1;
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