| line |
true |
false |
branch |
|
34
|
1 |
0 |
unless $ENV{'PERL_DEBUG'} |
|
106
|
13 |
1 |
$self->parser ? : |
|
115
|
27 |
15 |
unless exists $self->{$prefix} |
|
119
|
0 |
28 |
unless (&blessed($clause)) |
|
123
|
0 |
28 |
if ($clause->can('tree')) { } |
|
|
4 |
24 |
elsif (&blessed(scalar $clause->value)) { } |
|
179
|
0 |
283 |
if (not $code && ref $code or ref $code ne 'CODE') |
|
184
|
550 |
295 |
unless exists $tree->{$prefix} |
|
203
|
0 |
1 |
unless my $dialect = shift() |
|
212
|
2 |
0 |
if (exists $clause->{'field'}) { } |
|
238
|
0 |
1 |
unless my $clause = $_[1] |
|
254
|
0 |
2 |
unless my $clause = $_[1] |
|
270
|
0 |
1 |
unless my $clause = $_[1] |
|
289
|
0 |
1 |
unless ($clause and &blessed($clause) and $clause->isa('Search::Query::Dialect')) |
|
328
|
0 |
16 |
unless defined $field |
|
329
|
0 |
16 |
unless (defined $field) |
|
332
|
16 |
0 |
ref $field ? : |
|
347
|
0 |
151 |
unless my $name = shift() |
|
349
|
0 |
151 |
unless ($field) |
|
350
|
0 |
0 |
if ($self->parser->croak_on_error) |