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

Filename/usr/share/koha/lib/Koha/QueryParser/Driver/PQF/Util.pm
StatementsExecuted 10 statements in 285µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11124µs77µsKoha::QueryParser::Driver::PQF::Util::::BEGIN@2Koha::QueryParser::Driver::PQF::Util::BEGIN@2
11110µs14µsKoha::QueryParser::Driver::PQF::Util::::BEGIN@4Koha::QueryParser::Driver::PQF::Util::BEGIN@4
11110µs22µsKoha::QueryParser::Driver::PQF::Util::::BEGIN@5Koha::QueryParser::Driver::PQF::Util::BEGIN@5
0000s0sKoha::QueryParser::Driver::PQF::Util::::attributes_to_attr_stringKoha::QueryParser::Driver::PQF::Util::attributes_to_attr_string
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Koha::QueryParser::Driver::PQF::Util;
2338µs2129µs
# spent 77µs (24+52) within Koha::QueryParser::Driver::PQF::Util::BEGIN@2 which was called: # once (24µs+52µs) by Koha::QueryParser::Driver::PQF::BEGIN@8 at line 2
use Scalar::Util qw(looks_like_number);
# spent 77µs making 1 call to Koha::QueryParser::Driver::PQF::Util::BEGIN@2 # spent 52µs making 1 call to Exporter::import
3
4327µs218µs
# spent 14µs (10+4) within Koha::QueryParser::Driver::PQF::Util::BEGIN@4 which was called: # once (10µs+4µs) by Koha::QueryParser::Driver::PQF::BEGIN@8 at line 4
use strict;
# spent 14µs making 1 call to Koha::QueryParser::Driver::PQF::Util::BEGIN@4 # spent 4µs making 1 call to strict::import
53217µs234µs
# spent 22µs (10+12) within Koha::QueryParser::Driver::PQF::Util::BEGIN@5 which was called: # once (10µs+12µs) by Koha::QueryParser::Driver::PQF::BEGIN@8 at line 5
use warnings;
# spent 22µs making 1 call to Koha::QueryParser::Driver::PQF::Util::BEGIN@5 # spent 12µs making 1 call to warnings::import
6
7=head1 NAME
8
- -
23sub attributes_to_attr_string {
24 my ($attributes) = @_;
25 my $attr_string = '';
26 my $key;
27 my $value;
28 while (($key, $value) = each(%$attributes)) {
29 next unless looks_like_number($key);
30 $attr_string .= ' @attr ' . $key . '=' . $value . ' ';
31 }
32 $attr_string =~ s/^\s*//;
33 $attr_string =~ s/\s*$//;
34 $attr_string .= ' ' . $attributes->{''} if defined $attributes->{''};
35 return $attr_string;
36}
37
3813µs1;