| line |
true |
false |
branch |
|
165
|
12 |
487 |
unless $what |
|
166
|
63 |
424 |
unless $BeaconFields{$what} |
|
167
|
189 |
235 |
wantarray ? : |
|
223
|
1 |
16 |
unless $what |
|
224
|
4 |
12 |
unless $OSDElements{$what} |
|
304
|
18 |
2 |
if ($self->{'dsn'}) |
|
305
|
0 |
18 |
unless $self->{'dsn'} =~ /^[\w!,.{}-]+$/ |
|
307
|
0 |
20 |
if ($self->{'dbroot'}) |
|
308
|
0 |
0 |
unless -d $self->{'dbroot'} |
|
309
|
0 |
0 |
unless $self->{'dbroot'} =~ m[/$] |
|
313
|
0 |
20 |
if ($self->{'dbh'}) { } |
|
|
18 |
2 |
elsif ($self->{'dsn'}) { } |
|
|
1 |
1 |
elsif ($dbfile = $self->{'file'}) { } |
|
318
|
0 |
18 |
if $self->{'dbroot'} |
|
321
|
0 |
1 |
if ($self->{'dbroot'}) |
|
325
|
1 |
19 |
unless $dbfile |
|
332
|
0 |
19 |
unless $dbh |
|
335
|
0 |
19 |
if ($self->{'cluster'}) |
|
337
|
0 |
0 |
if $self->{'dbroot'} |
|
338
|
0 |
0 |
unless $dbh->do("ATTACH DATABASE '${clusterfile}' AS cluster") |
|
353
|
1 |
3 |
unless $self->{'descriptioncached'} |
|
365
|
0 |
1 |
unless $self->{'descriptioncached'} |
|
375
|
0 |
0 |
unless $rawref->{$_} |
|
376
|
0 |
0 |
if (ref $rawref->{$_}) { } |
|
377
|
0 |
0 |
if ($_ =~ /^Example/) { } |
|
380
|
0 |
0 |
unless $item |
|
382
|
0 |
0 |
unless $i |
|
383
|
0 |
0 |
if ($r) { } |
|
388
|
0 |
0 |
if @ary |
|
394
|
0 |
0 |
if ($_ =~ /^Example/) { } |
|
396
|
0 |
0 |
unless $i |
|
397
|
0 |
0 |
if ($r) { } |
|
408
|
0 |
1 |
if ($self->{'description'}) { } |
|
|
0 |
1 |
elsif (%result) { } |
|
445
|
0 |
11 |
if ($self->{'cluster'}) |
|
447
|
0 |
0 |
if $ENV{'DBI_PROFILE'} |
|
460
|
0 |
11 |
if ($clusterid) { } |
|
470
|
0 |
0 |
if $ENV{'DBI_PROFILE'} |
|
471
|
0 |
0 |
unless $sth->execute($clusterid, $clusterid) |
|
482
|
0 |
11 |
if $ENV{'DBI_PROFILE'} |
|
483
|
0 |
11 |
unless $sth->execute($hash) |
|
490
|
2 |
11 |
if $onerow->[15] and exists $self->{'aliasfilter'}{$onerow->[15]} |
|
496
|
11 |
0 |
if ($h eq $hash) { } |
|
|
0 |
0 |
elsif ($clusterid and ref $c) { } |
|
501
|
0 |
0 |
$c->can('pretty') ? : |
|
503
|
0 |
0 |
$clusterid ? : |
|
|
0 |
11 |
unless defined $p |
|
506
|
2 |
9 |
if ($uri = $onerow->[5]) { } |
|
|
4 |
5 |
elsif ($onerow->[1] and $onerow->[7]) { } |
|
|
5 |
0 |
elsif ($onerow->[6]) { } |
|
|
0 |
0 |
elsif ($onerow->[7]) { } |
|
514
|
0 |
11 |
unless $uri |
|
518
|
0 |
11 |
if ($hits == 1) { } |
|
|
11 |
0 |
elsif ($hits == 0) { } |
|
|
0 |
0 |
elsif ($hits) { } |
|
519
|
0 |
0 |
if $onerow->[9] |
|
521
|
0 |
11 |
if $onerow->[10] |
|
523
|
0 |
0 |
unless $label =~ /(^|[^%])%s/ |
|
529
|
5 |
6 |
unless defined $onerow->[4] |
|
537
|
1 |
10 |
if ($onerow->[4] =~ /\d{2}/ and not $onerow->[4] =~ /[a-wyz]/) { } |
|
541
|
5 |
5 |
if $onerow->[4] |
|
542
|
3 |
7 |
if $onerow->[1] |
|
545
|
11 |
0 |
unless $didalready{join "\177", $label, $description, $uri}++ |
|
558
|
0 |
11 |
if (defined $c) { } |
|
|
0 |
11 |
elsif (ref $query) { } |
|
559
|
0 |
0 |
ref $query ? : |
|
562
|
0 |
0 |
$c->can('pretty') ? : |
|
563
|
0 |
0 |
$c->can('canonical') ? : |
|
567
|
0 |
0 |
$query->can('pretty') ? : |
|
568
|
0 |
0 |
$query->can('canonical') ? : |
|
600
|
10 |
0 |
if ($query) |
|
602
|
9 |
1 |
if ($colname =~ /^_(\w+)$/) { } |
|
|
1 |
0 |
elsif ($dbcolname = $self->beaconfields($colname)) { } |
|
608
|
1 |
9 |
$query =~ /%/ ? : |
|
616
|
10 |
0 |
$query ? : |
|
|
0 |
10 |
unless my $aryref = $self->{'dbh'}->selectcol_arrayref($sth, {'Columns', [1]}, $query ? $query : ()) |
|
617
|
10 |
0 |
$aryref ? : |
|
637
|
1 |
9 |
if ($colname =~ /^_(\w+)$/) { } |
|
|
9 |
0 |
elsif ($dbcolname = $self->beaconfields($colname)) { } |
|
648
|
0 |
10 |
unless my $aryref = $self->{'dbh'}->selectcol_arrayref($sth, {'Columns', [(1, 2)]}, @cval) |
|
649
|
10 |
0 |
if ($aryref) |
|
658
|
8 |
31 |
unless defined $_ |
|
659
|
9 |
22 |
if (/^%*$/) { } |
|
|
5 |
17 |
elsif (/^\d+$/) { } |
|
|
0 |
17 |
elsif (/%/) { } |
|
|
17 |
0 |
elsif ($_) { } |
|
678
|
0 |
2 |
if ($key =~ /%/) { } |
|
|
0 |
2 |
elsif ($key) { } |
|
686
|
0 |
0 |
$key ? : |
|
|
0 |
2 |
if $ENV{'DBI_PROFILE'} |
|
687
|
0 |
2 |
$key ? : |
|
|
0 |
2 |
unless $sth->execute($key ? $key : ()) |
|
693
|
0 |
7 |
if $key =~ /^bc/ |
|
694
|
6 |
1 |
if (exists $result{$key}) { } |
|
|
0 |
1 |
elsif ($key eq 'DateModified') { } |
|
695
|
5 |
1 |
if (ref $result{$key}) { } |
|
705
|
1 |
1 |
unless %result |
|
719
|
0 |
56 |
unless my($admh, $admexpl) = $self->stmtHdl('SELECT key, val FROM admin;') |
|
720
|
0 |
56 |
if $ENV{'DBI_PROFILE'} |
|
721
|
0 |
56 |
unless $admh->execute |
|
724
|
0 |
158 |
if ($admh->err) |
|
727
|
158 |
0 |
defined $val ? : |
|
742
|
8 |
22 |
if exists $self->{'identifierClass'} and ref $self->{'identifierClass'} |
|
745
|
0 |
22 |
unless my($admich, $admichexpl) = $self->stmtHdl('SELECT key, val FROM admin WHERE key=?;') |
|
746
|
0 |
22 |
if $ENV{'DBI_PROFILE'} |
|
747
|
0 |
22 |
unless $admich->execute('IDENTIFIER_CLASS') |
|
750
|
0 |
2 |
if ($admich->err) |
|
756
|
2 |
20 |
if (my $package = $adm{'IDENTIFIER_CLASS'}) |
|
758
|
2 |
0 |
unless $@ |
|
765
|
0 |
0 |
if ($@) |
|
792
|
2 |
2 |
unless ($sth) |
|
797
|
1 |
1 |
if defined $_[3] |
|
802
|
0 |
0 |
if ($sthexpl and $ENV{'DBI_PROFILE'}) |
|
807
|
0 |
4 |
unless $sth->execute |
|
808
|
2 |
2 |
if (my $onerow = $sth->fetchrow_arrayref) |
|
809
|
0 |
2 |
if (defined $self->{'identifierClass'}) { } |
|
814
|
0 |
0 |
$c->can('pretty') ? : |
|
856
|
0 |
340 |
$ENV{'DBI_PROFILE'} ? : |
|
858
|
0 |
340 |
unless my $sth = $self->{'dbh'}->prepare_cached($sql, {}, $if_active) |
|
859
|
38 |
302 |
unless wantarray |
|
860
|
0 |
302 |
if ($ENV{'DBI_PROFILE'}) { } |
|
862
|
0 |
0 |
if $sth->{'Executed'} |
|
864
|
0 |
0 |
unless my $esth = $self->{'dbh'}->prepare_cached("EXPLAIN QUERY PLAN $sql", {}, 0) |
|
877
|
0 |
0 |
unless $esth->execute(@args) |