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

Filename/usr/share/perl5/DateTime/Format/Builder/Parser/Quick.pm
StatementsExecuted 15 statements in 368µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11119µs23µsDateTime::Format::Builder::Parser::Quick::::BEGIN@2DateTime::Format::Builder::Parser::Quick::BEGIN@2
11116µs94µsDateTime::Format::Builder::Parser::Quick::::BEGIN@5DateTime::Format::Builder::Parser::Quick::BEGIN@5
11112µs132µsDateTime::Format::Builder::Parser::Quick::::BEGIN@4DateTime::Format::Builder::Parser::Quick::BEGIN@4
1118µs45µsDateTime::Format::Builder::Parser::Quick::::BEGIN@3DateTime::Format::Builder::Parser::Quick::BEGIN@3
0000s0sDateTime::Format::Builder::Parser::Quick::::__ANON__[:68]DateTime::Format::Builder::Parser::Quick::__ANON__[:68]
0000s0sDateTime::Format::Builder::Parser::Quick::::__ANON__[:92]DateTime::Format::Builder::Parser::Quick::__ANON__[:92]
0000s0sDateTime::Format::Builder::Parser::Quick::::create_parserDateTime::Format::Builder::Parser::Quick::create_parser
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package DateTime::Format::Builder::Parser::Quick;
2331µs228µs
# spent 23µs (19+4) within DateTime::Format::Builder::Parser::Quick::BEGIN@2 which was called: # once (19µs+4µs) by DateTime::Format::Builder::Parser::BEGIN@1.3 at line 2
use strict;
# spent 23µs making 1 call to DateTime::Format::Builder::Parser::Quick::BEGIN@2 # spent 4µs making 1 call to strict::import
3332µs283µs
# spent 45µs (8+37) within DateTime::Format::Builder::Parser::Quick::BEGIN@3 which was called: # once (8µs+37µs) by DateTime::Format::Builder::Parser::BEGIN@1.3 at line 3
use vars qw( $VERSION %dispatch_data );
# spent 45µs making 1 call to DateTime::Format::Builder::Parser::Quick::BEGIN@3 # spent 37µs making 1 call to vars::import
4339µs2252µs
# spent 132µs (12+120) within DateTime::Format::Builder::Parser::Quick::BEGIN@4 which was called: # once (12µs+120µs) by DateTime::Format::Builder::Parser::BEGIN@1.3 at line 4
use Params::Validate qw( SCALAR OBJECT CODEREF validate );
# spent 132µs making 1 call to DateTime::Format::Builder::Parser::Quick::BEGIN@4 # spent 120µs making 1 call to Exporter::import
53244µs2173µs
# spent 94µs (16+78) within DateTime::Format::Builder::Parser::Quick::BEGIN@5 which was called: # once (16µs+78µs) by DateTime::Format::Builder::Parser::BEGIN@1.3 at line 5
use base qw( DateTime::Format::Builder::Parser );
# spent 94µs making 1 call to DateTime::Format::Builder::Parser::Quick::BEGIN@5 # spent 79µs making 1 call to base::import
6
7=head1 NAME
8
- -
601700ns$VERSION = '0.77';
61
62__PACKAGE__->valid_params(
63 Quick => {
64 type => SCALAR|OBJECT,
65 callbacks => {
66 good_classname => sub {
67 (ref $_[0]) or ( $_[0] =~ /^\w+[:'\w+]*\w+/ )
68 },
69 }
70 },
71112µs122µs method => {
# spent 22µs making 1 call to DateTime::Format::Builder::Parser::valid_params
72 optional => 1,
73 type => SCALAR|CODEREF,
74 },
75);
76
77sub create_parser
78{
79 my ($self, %args) = @_;
80 my $class = $args{Quick};
81 my $method = $args{method};
82 $method = 'parse_datetime' unless defined $method;
83 eval "use $class";
84 die $@ if $@;
85
86 return sub {
87 my ($self, $date) = @_;
88 return unless defined $date;
89 my $rv = eval { $class->$method( $date ) };
90 return $rv if defined $rv;
91 return;
92 };
93}
94
9519µs1;
96
97__END__