← 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:12:53 2013

Filename/usr/share/koha/lib/Koha/QueryParser/Driver/PQF/Util.pm
StatementsExecuted 10 statements in 210µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11132µs87µsKoha::QueryParser::Driver::PQF::Util::::BEGIN@2Koha::QueryParser::Driver::PQF::Util::BEGIN@2
11111µs23µsKoha::QueryParser::Driver::PQF::Util::::BEGIN@5Koha::QueryParser::Driver::PQF::Util::BEGIN@5
11111µs14µsKoha::QueryParser::Driver::PQF::Util::::BEGIN@4Koha::QueryParser::Driver::PQF::Util::BEGIN@4
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;
2341µs2143µs
# spent 87µs (32+55) within Koha::QueryParser::Driver::PQF::Util::BEGIN@2 which was called: # once (32µs+55µs) by Koha::QueryParser::Driver::PQF::BEGIN@8 at line 2
use Scalar::Util qw(looks_like_number);
# spent 87µs making 1 call to Koha::QueryParser::Driver::PQF::Util::BEGIN@2 # spent 55µs making 1 call to Exporter::import
3
4327µs218µs
# spent 14µs (11+4) within Koha::QueryParser::Driver::PQF::Util::BEGIN@4 which was called: # once (11µ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
53139µs234µs
# spent 23µs (11+12) within Koha::QueryParser::Driver::PQF::Util::BEGIN@5 which was called: # once (11µs+12µs) by Koha::QueryParser::Driver::PQF::BEGIN@8 at line 5
use warnings;
# spent 23µ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;