← 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:02:28 2013

Filename/usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan.pm
StatementsExecuted 10 statements in 344µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11119µs229µsKoha::QueryParser::Driver::PQF::query_plan::::BEGIN@2Koha::QueryParser::Driver::PQF::query_plan::BEGIN@2
11112µs15µsKoha::QueryParser::Driver::PQF::query_plan::::BEGIN@4Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4
11112µs25µsKoha::QueryParser::Driver::PQF::query_plan::::BEGIN@5Koha::QueryParser::Driver::PQF::query_plan::BEGIN@5
0000s0sKoha::QueryParser::Driver::PQF::query_plan::::target_syntaxKoha::QueryParser::Driver::PQF::query_plan::target_syntax
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::query_plan;
2338µs2439µs
# spent 229µs (19+210) within Koha::QueryParser::Driver::PQF::query_plan::BEGIN@2 which was called: # once (19µs+210µs) by Koha::QueryParser::Driver::PQF::BEGIN@9 at line 2
use base 'OpenILS::QueryParser::query_plan';
# spent 229µs making 1 call to Koha::QueryParser::Driver::PQF::query_plan::BEGIN@2 # spent 210µs making 1 call to base::import
3
4328µs219µs
# spent 15µs (12+3) within Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4 which was called: # once (12µs+3µs) by Koha::QueryParser::Driver::PQF::BEGIN@9 at line 4
use strict;
# spent 15µs making 1 call to Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4 # spent 3µs making 1 call to strict::import
53274µs239µs
# spent 25µs (12+14) within Koha::QueryParser::Driver::PQF::query_plan::BEGIN@5 which was called: # once (12µs+14µs) by Koha::QueryParser::Driver::PQF::BEGIN@9 at line 5
use warnings;
# spent 25µs making 1 call to Koha::QueryParser::Driver::PQF::query_plan::BEGIN@5 # spent 14µs making 1 call to warnings::import
6
7=head1 NAME
8
- -
21sub target_syntax {
22 my ($self, $server) = @_;
23 my $pqf = '';
24 my $node_pqf;
25 my $node_count = 0;
26
27 for my $node ( @{$self->query_nodes} ) {
28
29 if (ref($node)) {
30 $node_pqf = $node->target_syntax($server);
31 $node_count++ if $node_pqf;
32 $pqf .= $node_pqf;
33 }
34 }
35 $pqf = ($self->joiner eq '|' ? ' @or ' : ' @and ') x ($node_count - 1) . $pqf;
36 $node_count = ($node_count ? '1' : '0');
37 for my $node ( @{$self->filters} ) {
38 if (ref($node)) {
39 $node_pqf = $node->target_syntax($server);
40 $node_count++ if $node_pqf;
41 $pqf .= $node_pqf;
42 }
43 }
44 $pqf = ($self->joiner eq '|' ? ' @or ' : ' @and ') x ($node_count - 1) . $pqf;
45 foreach my $modifier ( @{$self->modifiers} ) {
46 my $modifierpqf = $modifier->target_syntax($server, $self);
47 $pqf = $modifierpqf . ' ' . $pqf if $modifierpqf;
48 }
49 return ($self->negate ? '@not @attr 1=_ALLRECORDS @attr 2=103 "" ' : '') . $pqf;
50}
51
5213µs1;