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

Filename/usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan.pm
StatementsExecuted 10 statements in 286µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11119µs220µsKoha::QueryParser::Driver::PQF::query_plan::::BEGIN@2Koha::QueryParser::Driver::PQF::query_plan::BEGIN@2
11112µs23µsKoha::QueryParser::Driver::PQF::query_plan::::BEGIN@4Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4
11111µs24µ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;
2336µs2421µs
# spent 220µs (19+201) within Koha::QueryParser::Driver::PQF::query_plan::BEGIN@2 which was called: # once (19µs+201µs) by Koha::QueryParser::Driver::PQF::BEGIN@9 at line 2
use base 'OpenILS::QueryParser::query_plan';
# spent 220µs making 1 call to Koha::QueryParser::Driver::PQF::query_plan::BEGIN@2 # spent 201µs making 1 call to base::import
3
4330µs234µs
# spent 23µs (12+11) within Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4 which was called: # once (12µs+11µs) by Koha::QueryParser::Driver::PQF::BEGIN@9 at line 4
use strict;
# spent 23µs making 1 call to Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4 # spent 11µs making 1 call to strict::import
53218µs237µs
# spent 24µs (11+13) within Koha::QueryParser::Driver::PQF::query_plan::BEGIN@5 which was called: # once (11µs+13µs) by Koha::QueryParser::Driver::PQF::BEGIN@9 at line 5
use warnings;
# spent 24µs making 1 call to Koha::QueryParser::Driver::PQF::query_plan::BEGIN@5 # spent 13µ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;