Lines 50-56
sub target_syntax {
Link Here
|
50 |
$pqf .= $node_pqf; |
50 |
$pqf .= $node_pqf; |
51 |
} |
51 |
} |
52 |
} |
52 |
} |
53 |
$pqf = ($self->joiner eq '|' ? ' @or ' : ' @and ') x ($node_count - 1) . $pqf; |
53 |
$pqf = ($self->joiner eq '|' ? ' @or ' : ' @and ') x ($node_count - 1) . $pqf if $node_count > 1; |
54 |
$node_count = ($node_count ? '1' : '0'); |
54 |
$node_count = ($node_count ? '1' : '0'); |
55 |
for my $node ( @{$self->filters} ) { |
55 |
for my $node ( @{$self->filters} ) { |
56 |
if (ref($node)) { |
56 |
if (ref($node)) { |
Lines 59-65
sub target_syntax {
Link Here
|
59 |
$pqf .= $node_pqf; |
59 |
$pqf .= $node_pqf; |
60 |
} |
60 |
} |
61 |
} |
61 |
} |
62 |
$pqf = ($self->joiner eq '|' ? ' @or ' : ' @and ') x ($node_count - 1) . $pqf; |
62 |
$pqf = ($self->joiner eq '|' ? ' @or ' : ' @and ') x ($node_count - 1) . $pqf if $node_count > 1; |
63 |
foreach my $modifier ( @{$self->modifiers} ) { |
63 |
foreach my $modifier ( @{$self->modifiers} ) { |
64 |
my $modifierpqf = $modifier->target_syntax($server, $self); |
64 |
my $modifierpqf = $modifier->target_syntax($server, $self); |
65 |
$pqf = $modifierpqf . ' ' . $pqf if $modifierpqf; |
65 |
$pqf = $modifierpqf . ' ' . $pqf if $modifierpqf; |