← 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:13 2013

Filename/usr/lib/perl5/Params/Validate.pm
StatementsExecuted 20 statements in 860µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111928µs1.43msParams::Validate::::BEGIN@5Params::Validate::BEGIN@5
11125µs32µsParams::Validate::::BEGIN@3Params::Validate::BEGIN@3
11122µs133µsParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
11116µs245µsParams::Validate::::BEGIN@7Params::Validate::BEGIN@7
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
3358µs239µs
# spent 32µs (25+7) within Params::Validate::BEGIN@3 which was called: # once (25µs+7µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 3
use strict;
# spent 32µs making 1 call to Params::Validate::BEGIN@3 # spent 7µs making 1 call to strict::import
4
5
# spent 1.43ms (928µs+497µs) within Params::Validate::BEGIN@5 which was called: # once (928µs+497µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 39
BEGIN {
6366µs2245µs
# spent 133µs (22+112) within Params::Validate::BEGIN@6 which was called: # once (22µs+112µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 6
use Exporter;
# spent 133µs making 1 call to Params::Validate::BEGIN@6 # spent 112µs making 1 call to Exporter::import
71229µs
# spent 245µs (16+229) within Params::Validate::BEGIN@7 which was called: # once (16µs+229µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 8
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK
# spent 229µs making 1 call to vars::import
83262µs1245µs %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION );
# spent 245µs making 1 call to Params::Validate::BEGIN@7
9
10978µs @ISA = 'Exporter';
11
12 $VERSION = '0.93';
13
14 my %tags = (
15 types => [
16 qw( SCALAR ARRAYREF HASHREF CODEREF GLOB GLOBREF
17 SCALARREF HANDLE BOOLEAN UNDEF OBJECT )
18 ],
19 );
20
21 %EXPORT_TAGS = (
22 'all' => [
23 qw( validate validate_pos validation_options validate_with ),
24 map { @{ $tags{$_} } } keys %tags
25 ],
26 %tags,
27 );
28
29 @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' );
30 @EXPORT = qw( validate validate_pos );
31
32 $NO_VALIDATION = $ENV{PERL_NO_VALIDATION};
33
341158µs eval { require Params::ValidateXS; } unless $ENV{PV_TEST_PERL};
35
36 if ( $@ || $ENV{PV_TEST_PERL} ) {
37 require Params::ValidatePP;
38 }
391231µs11.43ms}
# spent 1.43ms making 1 call to Params::Validate::BEGIN@5
40
4116µs1;
42
43__END__