← 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 17:10:45 2013
Reported on Tue Oct 15 17:11:37 2013

Filename/usr/lib/perl5/Params/Validate.pm
StatementsExecuted 20 statements in 486µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111585µs941µsParams::Validate::::BEGIN@5Params::Validate::BEGIN@5
11134µs40µsParams::Validate::::BEGIN@3Params::Validate::BEGIN@3
11113µs48µsParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
11112µs167µ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
3341µs246µs
# spent 40µs (34+6) within Params::Validate::BEGIN@3 which was called: # once (34µs+6µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 3
use strict;
# spent 40µs making 1 call to Params::Validate::BEGIN@3 # spent 6µs making 1 call to strict::import
4
5
# spent 941µs (585+356) within Params::Validate::BEGIN@5 which was called: # once (585µs+356µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 39
BEGIN {
6338µs284µs
# spent 48µs (13+36) within Params::Validate::BEGIN@6 which was called: # once (13µs+36µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 6
use Exporter;
# spent 48µs making 1 call to Params::Validate::BEGIN@6 # spent 36µs making 1 call to Exporter::import
71155µs
# spent 167µs (12+155) within Params::Validate::BEGIN@7 which was called: # once (12µs+155µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 8
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK
# spent 155µs making 1 call to vars::import
83237µs1167µs %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION );
# spent 167µs making 1 call to Params::Validate::BEGIN@7
9
10940µ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
34184µs eval { require Params::ValidateXS; } unless $ENV{PV_TEST_PERL};
35
36 if ( $@ || $ENV{PV_TEST_PERL} ) {
37 require Params::ValidatePP;
38 }
39143µs1941µs}
# spent 941µs making 1 call to Params::Validate::BEGIN@5
40
4112µs1;
42
43__END__